ORY311.m

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 ---ORY311   1545     printed  Apr 09, 2024@21:34:27                                                                                                                                                                                                      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      ;