ORY287.m

ORY287 ;dcm - Pre and Post-init for patch OR*3*287 ;1/14/08  11:42

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**287**;Dec 17, 1997;Build 2

PRE ; initiate pre-init processes

 Q:$$PATCH^XPDUTL("OR*3.0*243")

 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

 Q

POST ; initiate post-init processes

 Q

ORY287    ;dcm - Pre and Post-init for patch OR*3*287 ;1/14/08  11:42

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**287**;Dec 17, 1997;Build 2

PRE       ; initiate pre-init processes

 +1        IF $$PATCH^XPDUTL("OR*3.0*243")

               QUIT 

 +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      ; initiate post-init processes

 +1        QUIT