ORY313.m

ORY313 ;BP/SBR - Pre -init for patch OR*3*313 ; 11/4/10 2:00pm

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**313**;Dec 17, 1997;Build 12

 ;

DLG ; update GMRCOR REQUEST order dialog

 N DLG,PRMT,DA

 S DLG=$$PTR("GMRCOR REQUEST")

 S PRMT=$$PTR("OR GTX REQUEST SERVICE")

 S DA=+$O(^ORD(101.41,DLG,10,"D",PRMT,0))

 I DA,^ORD(101.41,DLG,10,DA,3)="I $G(ORDIALOG(PROMPT,""LIST""))>1" D  ;

 . S ^ORD(101.41,DLG,10,DA,3)="I $G(ORDIALOG(PROMPT,""LIST""))>0"

 Q

 ;

PTR(X) Q +$O(^ORD(101.41,"B",X,0))

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ORY313   494     printed  Apr 09, 2024@21:31:19                                                                                                                                                                                                       Page 2

ORY313    ;BP/SBR - Pre -init for patch OR*3*313 ; 11/4/10 2:00pm

 +1       ;;3.0;ORDER ENTRY/RESULTS REPORTING;**313**;Dec 17, 1997;Build 12

 +2       ;

DLG       ; update GMRCOR REQUEST order dialog

 +1        NEW DLG,PRMT,DA

 +2        SET DLG=$$PTR("GMRCOR REQUEST")

 +3        SET PRMT=$$PTR("OR GTX REQUEST SERVICE")

 +4        SET DA=+$ORDER(^ORD(101.41,DLG,10,"D",PRMT,0))

 +5       ;

           IF DA

               IF ^ORD(101.41,DLG,10,DA,3)="I $G(ORDIALOG(PROMPT,""LIST""))>1"

                   Begin DoDot:1

 +6                    SET ^ORD(101.41,DLG,10,DA,3)="I $G(ORDIALOG(PROMPT,""LIST""))>0"

                   End DoDot:1

 +7        QUIT 

 +8       ;

PTR(X)     QUIT +$ORDER(^ORD(101.41,"B",X,0))