Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: ORY256

ORY256.m

Go to the documentation of this file.

ORY256 ;;SLC/dcm - Pre and Post-init for patch OR*3*256 ;11/6/07  14:27

 ;;3.0;ORDER ENTRY RESULTS REPORTING;**256**;Dec 17, 1997;Build 5

PRE ; Pre-init

 N ORI

 S ORI=999

 F  S ORI=$O(^ORD(101.24,ORI)) Q:'ORI  I ORI<1110!(ORI>1116) S DA=ORI,DIK="^ORD(101.24," D ^DIK

POST ; Post-init

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY256   303     printed  Apr 09, 2024@21:34:07                                                                                                                                                                                                       Page 2

ORY256    ;;SLC/dcm - Pre and Post-init for patch OR*3*256 ;11/6/07  14:27

 +1       ;;3.0;ORDER ENTRY RESULTS REPORTING;**256**;Dec 17, 1997;Build 5

 +2       ;

PRE       ; Pre-init

 +1        NEW ORI

 +2        SET ORI=999

 +3        FOR

               SET ORI=$ORDER(^ORD(101.24,ORI))

               if 'ORI

                   QUIT

               IF ORI<1110!(ORI>1116)

                   SET DA=ORI

                   SET DIK="^ORD(101.24,"

                   DO ^DIK

 +4        QUIT

POST      ; Post-init

 +1        QUIT