OR498P ; SPOIFO/AJB - Post-Install ;Apr 20, 2021@12:23:32
;;3.0;ORDER ENTRY/RESULTS REPORTING;**498**;Dec 17, 1997;Build 38
;
; ICR# 2051,2053
Q
PRE ;
; CLEAR OUT OLD 100.9 DD
N DIU S DIU="^ORD(100.9,",DIU(0)="" D EN^DIU2
; KILL OFF THE 100.9 "E" CROSS REFERENCE
K ^ORD(100.9,"E")
; CLEAR OUT OLD DATA IN REMOVED NODES OF 100.9
N ORNI S ORNI=0 F S ORNI=$O(^ORD(100.9,ORNI)) Q:'ORNI D
.I $D(^ORD(100.9,ORNI,6)) D
..S $P(^ORD(100.9,ORNI,6),U,5)=""
..S $P(^ORD(100.9,ORNI,6),U,6)=""
.K ^ORD(100.9,ORNI,7)
;
N ORRAORDDLG,ORSEQ10,ORIENS,ORFDA,ORERR
;
S ORRAORDDLG=$O(^ORD(101.41,"B","RA OERR EXAM",0))
I 'ORRAORDDLG D Q
. D BMES^XPDUTL("Error: Could not find RA OERR EXAM Order Dialog. Contact the implmentation team.")
S ORSEQ10=$O(^ORD(101.41,ORRAORDDLG,10,"B",10,0))
I 'ORSEQ10 D Q
. D BMES^XPDUTL("Error: Could not find sequence 10 (OR GTX URGENCY) in the RA OERR EXAM Order Dialog. Contact the implmentation team.")
;
; Update Input Transform and Screen for Seq #10 in the RA OERR EXAM Order Dialog entry
S ORIENS=ORSEQ10_","_ORRAORDDLG_","
S ORFDA(101.412,ORIENS,.1)="@"
S ORFDA(101.412,ORIENS,14)="I $$RADURG^ORWDRA32(Y)"
D FILE^DIE("E","ORFDA","ORERR")
I $D(ORERR) D BMES^XPDUTL("Error updating RA OERR EXAM Order Dialog. Contact the implmentation team.")
;
Q
;
;
POST ;
N ERR,FDA,IEN
S IEN=$$FIND1^DIC(101.24,"","X","ORCV ACTIVE MEDICATIONS","","","ERR"),IEN=IEN_","
S FDA(101.24,IEN,.1)="" ; remove 'YES' from INVERT field
D FILE^DIE("","FDA","ERR")
D BMES^XPDUTL("Updating Cover Sheet Immunizations Report")
N ORERR,ORFDA,ORIEN
S ORIEN=$$FIND1^DIC(101.24,"","X","ORCV IMMUNIZATIONS","","","ORERR"),ORIEN=ORIEN_","
S ORFDA(101.24,ORIEN,.21)="A"
D FILE^DIE("","ORFDA","ORERR")
I $D(ORERR) D BMES^XPDUTL("Error Updating Immunizations Report. Contact the implmentation team.")
; change file security for 100.3
N SECURITY
S SECURITY("DD")=""
S SECURITY("RD")=""
S SECURITY("WR")=""
S SECURITY("DEL")="@"
S SECURITY("LAYGO")="@"
S SECURITY("AUDIT")=""
D FILESEC^DDMOD(100.3,.SECURITY)
D BMES^XPDUTL("Updating ORB URGENCY to Low at PKG level for notification SMART NON-CRITICAL IMAGING RES")
N ORURGER
D EN^XPAR("PKG.ORDER ENTRY/RESULTS REPORTING","ORB URGENCY",85,"Low",.ORURGER)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HOR498P 2303 printed Oct 16, 2024@18:27:21 Page 2
OR498P ; SPOIFO/AJB - Post-Install ;Apr 20, 2021@12:23:32
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**498**;Dec 17, 1997;Build 38
+2 ;
+3 ; ICR# 2051,2053
+4 QUIT
PRE ;
+1 ; CLEAR OUT OLD 100.9 DD
+2 NEW DIU
SET DIU="^ORD(100.9,"
SET DIU(0)=""
DO EN^DIU2
+3 ; KILL OFF THE 100.9 "E" CROSS REFERENCE
+4 KILL ^ORD(100.9,"E")
+5 ; CLEAR OUT OLD DATA IN REMOVED NODES OF 100.9
+6 NEW ORNI
SET ORNI=0
FOR
SET ORNI=$ORDER(^ORD(100.9,ORNI))
if 'ORNI
QUIT
Begin DoDot:1
+7 IF $DATA(^ORD(100.9,ORNI,6))
Begin DoDot:2
+8 SET $PIECE(^ORD(100.9,ORNI,6),U,5)=""
+9 SET $PIECE(^ORD(100.9,ORNI,6),U,6)=""
End DoDot:2
+10 KILL ^ORD(100.9,ORNI,7)
End DoDot:1
+11 ;
+12 NEW ORRAORDDLG,ORSEQ10,ORIENS,ORFDA,ORERR
+13 ;
+14 SET ORRAORDDLG=$ORDER(^ORD(101.41,"B","RA OERR EXAM",0))
+15 IF 'ORRAORDDLG
Begin DoDot:1
+16 DO BMES^XPDUTL("Error: Could not find RA OERR EXAM Order Dialog. Contact the implmentation team.")
End DoDot:1
QUIT
+17 SET ORSEQ10=$ORDER(^ORD(101.41,ORRAORDDLG,10,"B",10,0))
+18 IF 'ORSEQ10
Begin DoDot:1
+19 DO BMES^XPDUTL("Error: Could not find sequence 10 (OR GTX URGENCY) in the RA OERR EXAM Order Dialog. Contact the implmentation team.")
End DoDot:1
QUIT
+20 ;
+21 ; Update Input Transform and Screen for Seq #10 in the RA OERR EXAM Order Dialog entry
+22 SET ORIENS=ORSEQ10_","_ORRAORDDLG_","
+23 SET ORFDA(101.412,ORIENS,.1)="@"
+24 SET ORFDA(101.412,ORIENS,14)="I $$RADURG^ORWDRA32(Y)"
+25 DO FILE^DIE("E","ORFDA","ORERR")
+26 IF $DATA(ORERR)
DO BMES^XPDUTL("Error updating RA OERR EXAM Order Dialog. Contact the implmentation team.")
+27 ;
+28 QUIT
+29 ;
+30 ;
POST ;
+1 NEW ERR,FDA,IEN
+2 SET IEN=$$FIND1^DIC(101.24,"","X","ORCV ACTIVE MEDICATIONS","","","ERR")
SET IEN=IEN_","
+3 ; remove 'YES' from INVERT field
SET FDA(101.24,IEN,.1)=""
+4 DO FILE^DIE("","FDA","ERR")
+5 DO BMES^XPDUTL("Updating Cover Sheet Immunizations Report")
+6 NEW ORERR,ORFDA,ORIEN
+7 SET ORIEN=$$FIND1^DIC(101.24,"","X","ORCV IMMUNIZATIONS","","","ORERR")
SET ORIEN=ORIEN_","
+8 SET ORFDA(101.24,ORIEN,.21)="A"
+9 DO FILE^DIE("","ORFDA","ORERR")
+10 IF $DATA(ORERR)
DO BMES^XPDUTL("Error Updating Immunizations Report. Contact the implmentation team.")
+11 ; change file security for 100.3
+12 NEW SECURITY
+13 SET SECURITY("DD")=""
+14 SET SECURITY("RD")=""
+15 SET SECURITY("WR")=""
+16 SET SECURITY("DEL")="@"
+17 SET SECURITY("LAYGO")="@"
+18 SET SECURITY("AUDIT")=""
+19 DO FILESEC^DDMOD(100.3,.SECURITY)
+20 DO BMES^XPDUTL("Updating ORB URGENCY to Low at PKG level for notification SMART NON-CRITICAL IMAGING RES")
+21 NEW ORURGER
+22 DO EN^XPAR("PKG.ORDER ENTRY/RESULTS REPORTING","ORB URGENCY",85,"Low",.ORURGER)
+23 QUIT
