ORY71 ; SLC/MKB - Postinit for patch OR*3*71 ;11/4/99 08:36
;;3.0;ORDER ENTRY/RESULTS REPORTING;**71**;Dec 17, 1997
;
EN ; -- remove screen from Specimen field in Lab dialog
;
N DLG,PTR,DA
S DLG=+$O(^ORD(101.41,"AB","LR OTHER LAB TESTS",0)) Q:'DLG
S ^ORD(101.41,DLG,4)="K ORTIME,ORCOLLCT,ORMAX,ORTEST,ORDIV,ORIMTIME,ORSMAX,ORSTMS,ORSCH,ORCAT" ;add ORCAT to K stmt
S PTR=+$O(^ORD(101.41,"AB","OR GTX SPECIMEN",0)) I PTR D
. S DA=+$O(^ORD(101.41,DLG,10,"D",PTR,0))
. K:DA ^ORD(101.41,DLG,10,DA,4)
S PTR=+$O(^ORD(101.41,"AB","OR GTX ADMIN SCHEDULE",0)) I PTR D
. S DA=+$O(^ORD(101.41,DLG,10,"D",PTR,0))
. S:DA ^ORD(101.41,DLG,10,DA,6)="D XSCH^ORCDLR"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY71 679 printed Sep 23, 2025@20:19:19 Page 2
ORY71 ; SLC/MKB - Postinit for patch OR*3*71 ;11/4/99 08:36
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**71**;Dec 17, 1997
+2 ;
EN ; -- remove screen from Specimen field in Lab dialog
+1 ;
+2 NEW DLG,PTR,DA
+3 SET DLG=+$ORDER(^ORD(101.41,"AB","LR OTHER LAB TESTS",0))
if 'DLG
QUIT
+4 ;add ORCAT to K stmt
SET ^ORD(101.41,DLG,4)="K ORTIME,ORCOLLCT,ORMAX,ORTEST,ORDIV,ORIMTIME,ORSMAX,ORSTMS,ORSCH,ORCAT"
+5 SET PTR=+$ORDER(^ORD(101.41,"AB","OR GTX SPECIMEN",0))
IF PTR
Begin DoDot:1
+6 SET DA=+$ORDER(^ORD(101.41,DLG,10,"D",PTR,0))
+7 if DA
KILL ^ORD(101.41,DLG,10,DA,4)
End DoDot:1
+8 SET PTR=+$ORDER(^ORD(101.41,"AB","OR GTX ADMIN SCHEDULE",0))
IF PTR
Begin DoDot:1
+9 SET DA=+$ORDER(^ORD(101.41,DLG,10,"D",PTR,0))
+10 if DA
SET ^ORD(101.41,DLG,10,DA,6)="D XSCH^ORCDLR"
End DoDot:1
+11 QUIT
