[prev in list] [next in list] [prev in thread] [next in thread] 

List:       gtm-perl
Subject:    [gtm-perl] RE: Mumps Gymnastics
From:       "Lavery, Michael" <MLavery () saintvincents ! com>
Date:       2001-01-15 15:16:22
[Download RAW message or body]

Tom,

Put this goose in your oven and see if it lays a golden egg.

TLOOP2 
        W ! S X="" F I=1:1 S X=$O(^prognote(X)) Q:X=""  D
        . S Y="" F  S Y=$O(^prognote(X,Y)) Q:Y=""  D
        .. S Z="" F  S Z=$O(^prognote(X,Y,Z)) Q:Z=""  D
        ... W "^prognote(",X,",",Y,",",Z,")= ",^prognote(X,Y,Z),!
        Q
        ;

Mike

P.S. Giants fans are a bunch of loud-mouth braggarts.

> -----Original Message-----
> From: Thomas Good [mailto:tomg@mailhost.nrnet.org]
> Sent: Monday, January 15, 2001 11:07 AM
> To: Michael Lavery
> Cc: gtm-perl@iris-advies.com
> Subject: Mumps Gymnastics
> 
> 
> Mike,
> 
> In trying to eMulate your pnote structure (to a degree) I have
> the following:
> 
> ^prognote(ptID,noteID,"subnodes")  where subnodes is about 10 items
> 
> Now, being a dope I'm not getting this multiple subscripts and
> global traversal thing.  Here is what I gots so far:
> 
> TLOOP2 
>  W ! S X="" F I=1:1 S X=$O(^prognote(X)) Q:X=""  D
>  . S Y="" F  S Y=$O(^prognote(X,Y)) Q:Y=""  D
>  .. S Z="" F  S Z=$O(^prognote(X,Y,Z)) Q:Z=""
>  .. W X," ",Y," ",Z," ",$O(^prognote(X,Y,Z)),!
>  Q
> 
> 
> I want it to spit out :
> 
> 11072,1,09.01.2001   (ndate)
> 11072,1,Core Service (nhdr)
> 
> And so on, similar to ^%G...but what I get is:
> 
> 11072,1,acronym   - which is the first subnode of the gaggle.
> 11072,2,acronym   - next note...and so on
> 
> How can I get a proper gander at this goose?  Any iders?
> 
> Tom
> 
> PS - I hate the Giants.  Got a spare coach?
> --------------------------------------------------------------------
>                SVCMC - Center for Behavioral Health                  
> --------------------------------------------------------------------
> Thomas Good                          tomg@ { admin | q8 } .nrnet.org
> IS Coordinator / DBA                 Phone: 718-354-5528 
>                                      Fax:   718-354-5056  
> --------------------------------------------------------------------
> Powered by:  PostgreSQL     s l a c k w a r e          FreeBSD:
>                RDBMS       |---------- linux      The Power To Serve
> --------------------------------------------------------------------
> 

[prev in list] [next in list] [prev in thread] [next in thread]