Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ORY588

ORY588.m

Go to the documentation of this file.
  1. 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
  1. ;
  1. Q
  1. POST ;
  1. N ORPAUSE
  1. D POST^ORACCESS
  1. S ORPAUSE=$$GET^XPAR("ALL","ORWCH PAUSE INPUT")
  1. I ORPAUSE="" D
  1. . D BMES^XPDUTL("Adding value for parameter: ORWCH PAUSE INPUT.")
  1. . D ADD^XPAR("PKG","ORWCH PAUSE INPUT",,"YES")
  1. ;
  1. N FILE,NAME,IEN,ORFDA,ORERR,ORLIST,ENT,ERRORS
  1. S ERRORS=0,FILE=8994,NAME="ORACCESS CERNERACTIVE"
  1. S IEN=$$FIND1^DIC(FILE,,,NAME) I +IEN D
  1. . D BMES^XPDUTL("Remote procedure "_NAME_" found. Attempting to delete...")
  1. . S ORFDA(FILE,IEN_",",.01)="@"
  1. . D FILE^DIE("","ORFDA","ORERR") D ERRMSG
  1. . I 'ERRORS D MES^XPDUTL("Delete successful.")
  1. ;
  1. S FILE=8989.51,NAME="OR SIMULATE ON CERNER"
  1. S IEN=$$FIND1^DIC(FILE,,,NAME) I '+IEN Q
  1. S ERRORS=0,ENT=""
  1. D BMES^XPDUTL("Parameter "_NAME_" found. Attempting to delete...")
  1. D ENVAL^XPAR(.ORLIST,NAME,1,.ORERR) D ERRMSG2
  1. I 'ERRORS,+$G(ORLIST) D
  1. .;delete instances
  1. . F S ENT=$O(ORLIST(ENT)) Q:ENT="" D
  1. . . D DEL^XPAR(ENT,NAME,1,.ORERR) D ERRMSG2
  1. . I 'ERRORS D MES^XPDUTL("Values have been removed.")
  1. . ;delete parameter
  1. I ERRORS Q
  1. N DA,DIK
  1. S DIK="^XTV(8989.51,",DA=IEN
  1. D ^DIK
  1. I +$G(DA)>0 D I 1
  1. . D MES^XPDUTL("Delete successful.")
  1. E S ORERR="Unknown error deleting "_NAME D ERRMSG
  1. Q
  1. ;
  1. ERRMSG2 ;
  1. I $G(ORERR)=0 K ORERR
  1. ERRMSG ;
  1. I '$D(ORERR) Q
  1. S ERRORS=1
  1. D MES^XPDUTL("*** Error ***")
  1. I ($D(ORERR)=1)!($D(ORERR)=11) D MES^XPDUTL(ORERR)
  1. I $D(ORERR)>9 D
  1. . N I
  1. . S I="" F S I=$O(ORERR(I)) Q:I="" D MES^XPDUTL(ORERR(I))
  1. Q