Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: INHSYSUL

Package: IHS Generic Interface System

Routine: INHSYSUL


Information

INHSYSUL ;FRW,WOM; 23 Aug 1999 12:25;GIS Pre/Post init routines

Source Information

Source file <INHSYSUL.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 2 ($$YN,ET)^%ZTF  $$CDATASC^%ZTFDT  
Uncategorized 2 ^DWL  ENV^UTIL  
VA Fileman 2 ^DIC  IX1^DIK  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
IHS Generic Interface System 3 INHPCO  INHPOST  INHPRE  

Entry Points

Name Comments DBIA/ICR reference
BACKUP(QN,H,INQF) ;Backup utility
; Backup all GIS Control Globals before install into ^UTILITY.
; This function is not called directly by the GIS TRANSACTION MOVER but
; should be used by installation software prior to calls to EN5^INHSYS.
GLE(FN) ;return global name from file number or "" for error
ERR ; Error trap for tag RESTORE
DIC() ;Returns IEN of FILEMAN lookup or "B" x-ref
RESTORAL(QN,H,INQF) ; Restore entire ^UTILITY to GIS control files
LIST(INCOMP) ; ListMan front end for RESTORALL and RESTORE
; Input: INCOMP - 0 for restoration of site specific data only
; - 1 for restoration of all GIS control files
; - else ERROR
; Output: Returns 1 for success, 0 failure
RESTORE(QN,H,INQF) ; Restore fields from ^UTILITY built by tag BACKUP

External References

Name Field # of Occurrence
$$YN^%ZTF LIST+18
ET^%ZTF ERR+3
$$CDATASC^%ZTFDT LIST+12
^DIC DIC+4
IX1^DIK RESTORE+36
^DWL LIST+16
ENV^UTIL LIST+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: BACKUP+25
Function Call: WRITE
  • Prompt: !," Error detected - file #"_$P(ERD,"^",I)_" not saved for "_INQF
  • Line Location: BACKUP+25
Function Call: WRITE
  • Prompt: !,"Nothing to process."
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: !!,"Nothing selected."
  • Line Location: LIST+16
Function Call: WRITE
  • Prompt: !!,"You are about to restore ",$S(INCOMP:"all data",1:"site specific fields"),!," from the backup identified by: ",INARRAY(I,J),!,"Ok"
  • Line Location: LIST+17
Function Call: WRITE
  • Prompt: !,"Restoration aborted!"
  • Line Location: LIST+18
Function Call: WRITE
  • Prompt: !!,"Restoration in progress. Please wait."
  • Line Location: LIST+19
Function Call: WRITE
  • Prompt: !!,"Restore of ",$S(INCOMP:"all data",1:"site specific fields")," unsuccessful!!"
  • Line Location: LIST+21
Function Call: WRITE
  • Prompt: *7,!,"Subscript parameters are invalid - aborting restore."
  • Line Location: RESTORAL+11
Function Call: WRITE
  • Prompt: *7,!,"Backup global not found - aborting restore."
  • Line Location: RESTORAL+12
Function Call: WRITE
  • Prompt: !
  • Line Location: RESTORAL+17
Function Call: WRITE
  • Prompt: !," Error detected - file #"_$P(ERD,"^",FN)_" not restored for "_INQF
  • Line Location: RESTORAL+17
Function Call: WRITE
  • Prompt: *7,!,"Subscript parameters are invalid - aborting restore."
  • Line Location: RESTORE+13
Function Call: WRITE
  • Prompt: *7,!,"Backup global not found - aborting restore."
  • Line Location: RESTORE+14
Function Call: WRITE
  • Prompt: !,"Entry ",IEN,"=",X," for file #",FN," not found.",!,"This entry will not be restored!!"
  • Line Location: RESTORE+22
Function Call: WRITE
  • Prompt: !,"Entry # ",IEN,"for file #",FN,"has changed to ",+Y,!
  • Line Location: RESTORE+23
Function Call: WRITE
  • Prompt: !,"A MUMPS error has occurred during the restoration of",!," site specific GIS fields!",!
  • Line Location: ERR+1
Function Call: WRITE
  • Prompt: "Please validate that the active GIS Interfaces are configured correctly.",!
  • Line Location: ERR+2
Routine Call
  • DIC
  • Line Location:
    • DIC+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TRAP" RESTORE+10
^DD( RESTORE+25
^DIC - [#1] GLE+2, RESTORE+21
^UTILITY( RESTORAL+12, RESTORAL+13, RESTORE+14, RESTORE+20, RESTORE+21, RESTORE+27, RESTORE+33, RESTORE+34
^UTILITY("INSAVE" BACKUP+20!, BACKUP+23*, LIST+7, LIST+11, RESTORAL+15

Label References

Name Line Occurrences
$$DIC RESTORE+22
$$GLE BACKUP+22, RESTORAL+14
$$RESTORAL LIST+21
$$RESTORE LIST+21

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C BACKUP+13~*, BACKUP+22*, BACKUP+25, RESTORAL+8~*, RESTORAL+14*, RESTORAL+17, RESTORE+8~, RESTORE+12*
C1 LIST+8~*, LIST+11*, LIST+12
C2 LIST+8~, LIST+11*, LIST+12
DA RESTORE+8~, RESTORE+36*
DIC DIC+2, DIC+3, RESTORE+8~, RESTORE+21*, RESTORE+28, RESTORE+36
DIC(0 RESTORE+21*
DIK RESTORE+8~, RESTORE+36*
DWL LIST+8~, LIST+14*
DWLB LIST+8~, LIST+14*
>> DWLMK LIST+16
>> DWLMK( LIST+17
>> DWLMK("" LIST+17
DWLR LIST+8~
DWLRF LIST+8~, LIST+14*
ER BACKUP+13~*, BACKUP+22*, BACKUP+24, RESTORAL+8*, RESTORAL+14*, RESTORAL+16, RESTORE+8~, RESTORE+12*, RESTORE+22*, RESTORE+37
ERD BACKUP+13~*, BACKUP+22*, BACKUP+25, RESTORAL+8~, RESTORAL+14*, RESTORAL+17
FLD RESTORE+8~, RESTORE+24*, RESTORE+25
FLDS RESTORE+8~, RESTORE+15!
FLDS( RESTORE+19, RESTORE+24
FLDS(4000 RESTORE+16*
FLDS(4004 RESTORE+17*
FLDS(4005 RESTORE+18*
FN GLE~, GLE+2, RESTORAL+8~, RESTORAL+13*, RESTORAL+14, RESTORAL+15, RESTORAL+17*, RESTORE+8~, RESTORE+19*, RESTORE+20
, RESTORE+21, RESTORE+22, RESTORE+23, RESTORE+24, RESTORE+25, RESTORE+27, RESTORE+33, RESTORE+34
GL BACKUP+13~, BACKUP+18*, BACKUP+19, BACKUP+22*, BACKUP+23, GLE+1~, GLE+2*, GLE+3*, GLE+4, RESTORAL+8~
, RESTORAL+14*, RESTORAL+15, RESTORE+8~, RESTORE+25*, RESTORE+26*, RESTORE+27, RESTORE+28, RESTORE+33, RESTORE+34
GLBL RESTORE+8~, RESTORE+28*, RESTORE+30*, RESTORE+33, RESTORE+34
H BACKUP~, BACKUP+13*, BACKUP+14*, BACKUP+17, BACKUP+18, BACKUP+19*, BACKUP+20, BACKUP+23, RESTORAL~, RESTORAL+10*
, RESTORAL+11, RESTORAL+12, RESTORAL+13, RESTORAL+15, RESTORE~, RESTORE+12*, RESTORE+13, RESTORE+14, RESTORE+20, RESTORE+21
, RESTORE+27, RESTORE+33, RESTORE+34
I BACKUP+13~, BACKUP+18*, BACKUP+21*, BACKUP+22, BACKUP+23, BACKUP+25*, LIST+8~*, LIST+11*, LIST+12, LIST+17*
, LIST+20*, LIST+21, RESTORE+8~, RESTORE+17*, RESTORE+18*
IEN RESTORE+8~, RESTORE+20*, RESTORE+21, RESTORE+22, RESTORE+23, RESTORE+27, RESTORE+33, RESTORE+34, RESTORE+36
IN RESTORAL+8~, RESTORAL+10*, RESTORAL+12, RESTORAL+13, RESTORE+8~, RESTORE+12*, RESTORE+14, RESTORE+20, RESTORE+21, RESTORE+27
, RESTORE+33, RESTORE+34
INARRAY LIST+8~
INARRAY( LIST+12*, LIST+17, LIST+20
INCOMP LIST~, LIST+6*, LIST+17, LIST+21
>> INMUL RESTORE+25*, RESTORE+32
INQF BACKUP~, BACKUP+13*, BACKUP+14*, BACKUP+25, RESTORAL~, RESTORAL+10*, RESTORAL+17, RESTORE~, RESTORE+12*
J LIST+8~*, LIST+11*, LIST+12, LIST+17*, LIST+20*, LIST+21
J1 LIST+8~, LIST+20*
L GLE+1~, GLE+2*, GLE+3
PI RESTORE+8~, RESTORE+26*, RESTORE+27, RESTORE+30, RESTORE+32
QN BACKUP~, BACKUP+13*, BACKUP+14*, BACKUP+20, BACKUP+23, RESTORAL~, RESTORAL+10*, RESTORAL+12, RESTORAL+13, RESTORAL+15
, RESTORE~, RESTORE+12*, RESTORE+14, RESTORE+20, RESTORE+21, RESTORE+27, RESTORE+33, RESTORE+34
R RESTORE+8~, RESTORE+27*, RESTORE+30
U RESTORE+21, RESTORE+25, RESTORE+27, RESTORE+30
X DIC+1, DIC+2, DIC+3, RESTORE+8~, RESTORE+10*, RESTORE+21*, RESTORE+22
Y DIC+1*, DIC+2*, DIC+3*, DIC+4, RESTORE+8~, RESTORE+22*, RESTORE+23, RESTORE+28
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All