ORY311 ;ISP/RFR - OR*3*311 POST-INSTALL ROUTINE;06/21/2013 08:27
;;3.0;ORDER ENTRY/RESULTS REPORTING;**311**;Dec 17, 1997;Build 30
Q
POST ;POST-INSTALL ACTIONS
D MES^XPDUTL(" Setting the dosage order check to mandatory...")
D MAND
D MES^XPDUTL(" DONE")
;
MAND ;SET DOSAGE ORDER CHECK TO MANDATORY
;Parameter is ORK EDITABLE BY USER
N ORERR,RETURN,ENTITY
S RETURN=$NA(^TMP($J,"ORPARAMS"))
K @RETURN
D ENVAL^XPAR(.RETURN,"ORK PROCESSING FLAG","DRUG DOSAGE",.ORERR,1)
I +ORERR>0 D Q
.N ORTEXT
.S ORTEXT(1)=" Unable to set the DRUG DOSAGE order check to mandatory."
.S ORTEXT(2)=" Error encountered while retrieving values for the"
.S ORTEXT(3)=" ORK PROCESSING FLAG parameter:"
.S ORTEXT(4)=" "_$P(ORERR,U,2)
.S ORTEXT(5)=" Please log a Remedy ticket for assistance."
.D MES^XPDUTL(.ORTEXT)
S ENTITY="" F S ENTITY=$O(^TMP($J,"ORPARAMS",ENTITY)) Q:$G(ENTITY)="" D
.I ^TMP($J,"ORPARAMS",ENTITY,34)="D" D
..D CHG^XPAR(ENTITY,"ORK PROCESSING FLAG","DRUG DOSAGE","E",.ORERR)
..I +ORERR>0 D
...N DIC,DO,ORTEXT
...S DIC=U_$P(ENTITY,";",2)
...D DO^DIC1
...S ORTEXT(1)=" Error encountered while enabling the DRUG DOSAGE order check for"
...S ORTEXT(2)=" the "_$$EXTERNAL^DILFD(8989.5,.01,,ENTITY,"ORERR")_" (#"_+ENTITY_") entry"
...S ORTEXT(3)=" in the "_$P(DO,U)_" file:"
...S ORTEXT(4)=" "_$P(ORERR,U,2)
...S ORTEXT(5)=" Please log a Remedy ticket for assistance."
...D MES^XPDUTL(.ORTEXT)
K ORERR,@RETURN
D EN^XPAR("SYS","ORK EDITABLE BY USER","DRUG DOSAGE","NO",.ORERR)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY311 1545 printed Nov 22, 2024@17:51:02 Page 2
ORY311 ;ISP/RFR - OR*3*311 POST-INSTALL ROUTINE;06/21/2013 08:27
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**311**;Dec 17, 1997;Build 30
+2 QUIT
POST ;POST-INSTALL ACTIONS
+1 DO MES^XPDUTL(" Setting the dosage order check to mandatory...")
+2 DO MAND
+3 DO MES^XPDUTL(" DONE")
+4 ;
MAND ;SET DOSAGE ORDER CHECK TO MANDATORY
+1 ;Parameter is ORK EDITABLE BY USER
+2 NEW ORERR,RETURN,ENTITY
+3 SET RETURN=$NAME(^TMP($JOB,"ORPARAMS"))
+4 KILL @RETURN
+5 DO ENVAL^XPAR(.RETURN,"ORK PROCESSING FLAG","DRUG DOSAGE",.ORERR,1)
+6 IF +ORERR>0
Begin DoDot:1
+7 NEW ORTEXT
+8 SET ORTEXT(1)=" Unable to set the DRUG DOSAGE order check to mandatory."
+9 SET ORTEXT(2)=" Error encountered while retrieving values for the"
+10 SET ORTEXT(3)=" ORK PROCESSING FLAG parameter:"
+11 SET ORTEXT(4)=" "_$PIECE(ORERR,U,2)
+12 SET ORTEXT(5)=" Please log a Remedy ticket for assistance."
+13 DO MES^XPDUTL(.ORTEXT)
End DoDot:1
QUIT
+14 SET ENTITY=""
FOR
SET ENTITY=$ORDER(^TMP($JOB,"ORPARAMS",ENTITY))
if $GET(ENTITY)=""
QUIT
Begin DoDot:1
+15 IF ^TMP($JOB,"ORPARAMS",ENTITY,34)="D"
Begin DoDot:2
+16 DO CHG^XPAR(ENTITY,"ORK PROCESSING FLAG","DRUG DOSAGE","E",.ORERR)
+17 IF +ORERR>0
Begin DoDot:3
+18 NEW DIC,DO,ORTEXT
+19 SET DIC=U_$PIECE(ENTITY,";",2)
+20 DO DO^DIC1
+21 SET ORTEXT(1)=" Error encountered while enabling the DRUG DOSAGE order check for"
+22 SET ORTEXT(2)=" the "_$$EXTERNAL^DILFD(8989.5,.01,,ENTITY,"ORERR")_" (#"_+ENTITY_") entry"
+23 SET ORTEXT(3)=" in the "_$PIECE(DO,U)_" file:"
+24 SET ORTEXT(4)=" "_$PIECE(ORERR,U,2)
+25 SET ORTEXT(5)=" Please log a Remedy ticket for assistance."
+26 DO MES^XPDUTL(.ORTEXT)
End DoDot:3
End DoDot:2
End DoDot:1
+27 KILL ORERR,@RETURN
+28 DO EN^XPAR("SYS","ORK EDITABLE BY USER","DRUG DOSAGE","NO",.ORERR)
+29 QUIT
+30 ;
