ORY61 ; SLC/MKB - Postinit for patch OR*3*61 ;7/16/99 15:31
;;3.0;ORDER ENTRY/RESULTS REPORTING;**61**;Dec 17, 1997
;
EN ; -- set Index field in Lab dialog
;
N DLG,PRMT,PTR,DA
S DLG=$O(^ORD(101.41,"AB","LR OTHER LAB TESTS",0)) Q:'DLG
S ^ORD(101.41,DLG,3)="D GETIMES^ORCDLR1 S ORMAX=$$GET^XPAR(""LOC.`""_+$G(ORL),""LR MAX DAYS CONTINUOUS"",1,""Q"")"
S ^ORD(101.41,DLG,3.1)="D GETIMES^ORCDLR1 S ORMAX=$S($G(ORL):$$GET^XPAR(""LOC.`""_+ORL,""LR MAX DAYS CONTINUOUS"",1,""Q""),1:0)"
F PRMT="COLLECTION SAMPLE","SPECIMEN" D
. S PTR=+$O(^ORD(101.41,"AB","OR GTX "_PRMT,0)) Q:'PTR
. S DA=$O(^ORD(101.41,DLG,10,"D",PTR,0)) Q:'DA
. S $P(^ORD(101.41,DLG,10,DA,0),U,10)="B;D" S:PRMT="SPECIMEN" ^(4)="I $L($P(^(0),U,5))"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY61 737 printed Dec 13, 2024@02:43:09 Page 2
ORY61 ; SLC/MKB - Postinit for patch OR*3*61 ;7/16/99 15:31
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**61**;Dec 17, 1997
+2 ;
EN ; -- set Index field in Lab dialog
+1 ;
+2 NEW DLG,PRMT,PTR,DA
+3 SET DLG=$ORDER(^ORD(101.41,"AB","LR OTHER LAB TESTS",0))
if 'DLG
QUIT
+4 SET ^ORD(101.41,DLG,3)="D GETIMES^ORCDLR1 S ORMAX=$$GET^XPAR(""LOC.`""_+$G(ORL),""LR MAX DAYS CONTINUOUS"",1,""Q"")"
+5 SET ^ORD(101.41,DLG,3.1)="D GETIMES^ORCDLR1 S ORMAX=$S($G(ORL):$$GET^XPAR(""LOC.`""_+ORL,""LR MAX DAYS CONTINUOUS"",1,""Q""),1:0)"
+6 FOR PRMT="COLLECTION SAMPLE","SPECIMEN"
Begin DoDot:1
+7 SET PTR=+$ORDER(^ORD(101.41,"AB","OR GTX "_PRMT,0))
if 'PTR
QUIT
+8 SET DA=$ORDER(^ORD(101.41,DLG,10,"D",PTR,0))
if 'DA
QUIT
+9 SET $PIECE(^ORD(101.41,DLG,10,DA,0),U,10)="B;D"
if PRMT="SPECIMEN"
SET ^(4)="I $L($P(^(0),U,5))"
End DoDot:1
+10 QUIT
