ORY312 ;;SLCOIFO - Pre and Post-init for patch OR*3*312 ;6/25/14 11:57
;;3.0;ORDER ENTRY/RESULTS REPORTING;**312**;;Build 31
;
PRE ;Pre-Init Entry Point
D PEOMRPT
Q
POST ;Post-Init Entry Point
Q
PEOMRPT ;Remove new & changed reports from OE/RR REPORTS file (101.24)
N ORI,DA,DIK
I $P($G(^ORD(101.24,3,0)),"^",1)="ORRP AP ALL" D
. S DA=3,DIK="^ORD(101.24," D ^DIK
. S ^ORD(101.24,3,0)="ORRP AP ALL",^ORD(101.24,"B","ORRP AP ALL",3)=""
I $P($G(^ORD(101.24,23,0)),"^",1)="ORL MICROBIOLOGY" D
. S DA=23,DIK="^ORD(101.24," D ^DIK
. S ^ORD(101.24,23,0)="ORL MICROBIOLOGY",^ORD(101.24,"B","ORL MICROBIOLOGY",23)=""
I $P($G(^ORD(101.24,24,0)),"^",1)="ORL ANATOMIC PATHOLOGY" D
. S DA=24,DIK="^ORD(101.24," D ^DIK
. S ^ORD(101.24,24,0)="ORL ANATOMIC PATHOLOGY",^ORD(101.24,"B","ORL ANATOMIC PATHOLOGY",24)=""
S ORI=999
F S ORI=$O(^ORD(101.24,ORI)) Q:'ORI S DA=ORI,DIK="^ORD(101.24," D ^DIK
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY312 926 printed Nov 22, 2024@17:51:03 Page 2
ORY312 ;;SLCOIFO - Pre and Post-init for patch OR*3*312 ;6/25/14 11:57
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**312**;;Build 31
+2 ;
PRE ;Pre-Init Entry Point
+1 DO PEOMRPT
+2 QUIT
POST ;Post-Init Entry Point
+1 QUIT
PEOMRPT ;Remove new & changed reports from OE/RR REPORTS file (101.24)
+1 NEW ORI,DA,DIK
+2 IF $PIECE($GET(^ORD(101.24,3,0)),"^",1)="ORRP AP ALL"
Begin DoDot:1
+3 SET DA=3
SET DIK="^ORD(101.24,"
DO ^DIK
+4 SET ^ORD(101.24,3,0)="ORRP AP ALL"
SET ^ORD(101.24,"B","ORRP AP ALL",3)=""
End DoDot:1
+5 IF $PIECE($GET(^ORD(101.24,23,0)),"^",1)="ORL MICROBIOLOGY"
Begin DoDot:1
+6 SET DA=23
SET DIK="^ORD(101.24,"
DO ^DIK
+7 SET ^ORD(101.24,23,0)="ORL MICROBIOLOGY"
SET ^ORD(101.24,"B","ORL MICROBIOLOGY",23)=""
End DoDot:1
+8 IF $PIECE($GET(^ORD(101.24,24,0)),"^",1)="ORL ANATOMIC PATHOLOGY"
Begin DoDot:1
+9 SET DA=24
SET DIK="^ORD(101.24,"
DO ^DIK
+10 SET ^ORD(101.24,24,0)="ORL ANATOMIC PATHOLOGY"
SET ^ORD(101.24,"B","ORL ANATOMIC PATHOLOGY",24)=""
End DoDot:1
+11 SET ORI=999
+12 FOR
SET ORI=$ORDER(^ORD(101.24,ORI))
if 'ORI
QUIT
SET DA=ORI
SET DIK="^ORD(101.24,"
DO ^DIK
+13 QUIT
