- 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 Feb 19, 2025@00:09:33 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