- 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 Mar 13, 2025@21:48:07 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
