ORY588 ;ISL/AGP - INSTALLATION ACTIONS FOR CPRS READ ONLY ; Apr 24, 2023@10:13
;;3.0;ORDER ENTRY/RESULTS REPORTING;**588**;Dec 17, 1997;Build 29
;
Q
POST ;
N ORPAUSE
D POST^ORACCESS
S ORPAUSE=$$GET^XPAR("ALL","ORWCH PAUSE INPUT")
I ORPAUSE="" D
. D BMES^XPDUTL("Adding value for parameter: ORWCH PAUSE INPUT.")
. D ADD^XPAR("PKG","ORWCH PAUSE INPUT",,"YES")
;
N FILE,NAME,IEN,ORFDA,ORERR,ORLIST,ENT,ERRORS
S ERRORS=0,FILE=8994,NAME="ORACCESS CERNERACTIVE"
S IEN=$$FIND1^DIC(FILE,,,NAME) I +IEN D
. D BMES^XPDUTL("Remote procedure "_NAME_" found. Attempting to delete...")
. S ORFDA(FILE,IEN_",",.01)="@"
. D FILE^DIE("","ORFDA","ORERR") D ERRMSG
. I 'ERRORS D MES^XPDUTL("Delete successful.")
;
S FILE=8989.51,NAME="OR SIMULATE ON CERNER"
S IEN=$$FIND1^DIC(FILE,,,NAME) I '+IEN Q
S ERRORS=0,ENT=""
D BMES^XPDUTL("Parameter "_NAME_" found. Attempting to delete...")
D ENVAL^XPAR(.ORLIST,NAME,1,.ORERR) D ERRMSG2
I 'ERRORS,+$G(ORLIST) D
.;delete instances
. F S ENT=$O(ORLIST(ENT)) Q:ENT="" D
. . D DEL^XPAR(ENT,NAME,1,.ORERR) D ERRMSG2
. I 'ERRORS D MES^XPDUTL("Values have been removed.")
. ;delete parameter
I ERRORS Q
N DA,DIK
S DIK="^XTV(8989.51,",DA=IEN
D ^DIK
I +$G(DA)>0 D I 1
. D MES^XPDUTL("Delete successful.")
E S ORERR="Unknown error deleting "_NAME D ERRMSG
Q
;
ERRMSG2 ;
I $G(ORERR)=0 K ORERR
ERRMSG ;
I '$D(ORERR) Q
S ERRORS=1
D MES^XPDUTL("*** Error ***")
I ($D(ORERR)=1)!($D(ORERR)=11) D MES^XPDUTL(ORERR)
I $D(ORERR)>9 D
. N I
. S I="" F S I=$O(ORERR(I)) Q:I="" D MES^XPDUTL(ORERR(I))
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY588 1610 printed Dec 13, 2024@02:43:02 Page 2
ORY588 ;ISL/AGP - INSTALLATION ACTIONS FOR CPRS READ ONLY ; Apr 24, 2023@10:13
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**588**;Dec 17, 1997;Build 29
+2 ;
+3 QUIT
POST ;
+1 NEW ORPAUSE
+2 DO POST^ORACCESS
+3 SET ORPAUSE=$$GET^XPAR("ALL","ORWCH PAUSE INPUT")
+4 IF ORPAUSE=""
Begin DoDot:1
+5 DO BMES^XPDUTL("Adding value for parameter: ORWCH PAUSE INPUT.")
+6 DO ADD^XPAR("PKG","ORWCH PAUSE INPUT",,"YES")
End DoDot:1
+7 ;
+8 NEW FILE,NAME,IEN,ORFDA,ORERR,ORLIST,ENT,ERRORS
+9 SET ERRORS=0
SET FILE=8994
SET NAME="ORACCESS CERNERACTIVE"
+10 SET IEN=$$FIND1^DIC(FILE,,,NAME)
IF +IEN
Begin DoDot:1
+11 DO BMES^XPDUTL("Remote procedure "_NAME_" found. Attempting to delete...")
+12 SET ORFDA(FILE,IEN_",",.01)="@"
+13 DO FILE^DIE("","ORFDA","ORERR")
DO ERRMSG
+14 IF 'ERRORS
DO MES^XPDUTL("Delete successful.")
End DoDot:1
+15 ;
+16 SET FILE=8989.51
SET NAME="OR SIMULATE ON CERNER"
+17 SET IEN=$$FIND1^DIC(FILE,,,NAME)
IF '+IEN
QUIT
+18 SET ERRORS=0
SET ENT=""
+19 DO BMES^XPDUTL("Parameter "_NAME_" found. Attempting to delete...")
+20 DO ENVAL^XPAR(.ORLIST,NAME,1,.ORERR)
DO ERRMSG2
+21 IF 'ERRORS
IF +$GET(ORLIST)
Begin DoDot:1
+22 ;delete instances
+23 FOR
SET ENT=$ORDER(ORLIST(ENT))
if ENT=""
QUIT
Begin DoDot:2
+24 DO DEL^XPAR(ENT,NAME,1,.ORERR)
DO ERRMSG2
End DoDot:2
+25 IF 'ERRORS
DO MES^XPDUTL("Values have been removed.")
+26 ;delete parameter
End DoDot:1
+27 IF ERRORS
QUIT
+28 NEW DA,DIK
+29 SET DIK="^XTV(8989.51,"
SET DA=IEN
+30 DO ^DIK
+31 IF +$GET(DA)>0
Begin DoDot:1
+32 DO MES^XPDUTL("Delete successful.")
End DoDot:1
IF 1
+33 IF '$TEST
SET ORERR="Unknown error deleting "_NAME
DO ERRMSG
+34 QUIT
+35 ;
ERRMSG2 ;
+1 IF $GET(ORERR)=0
KILL ORERR
ERRMSG ;
+1 IF '$DATA(ORERR)
QUIT
+2 SET ERRORS=1
+3 DO MES^XPDUTL("*** Error ***")
+4 IF ($DATA(ORERR)=1)!($DATA(ORERR)=11)
DO MES^XPDUTL(ORERR)
+5 IF $DATA(ORERR)>9
Begin DoDot:1
+6 NEW I
+7 SET I=""
FOR
SET I=$ORDER(ORERR(I))
if I=""
QUIT
DO MES^XPDUTL(ORERR(I))
End DoDot:1
+8 QUIT
