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 ---[H[J[2J[HORY313 494 printed Dec 13, 2024@02:41:09 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))