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

Package: Utilities

Routine: AUXINST


Information

AUXINST ; [ 04/11/86 3:34 PM ]

Source Information

Source file <AUXINST.m>

Entry Points

Name Comments DBIA/ICR reference
AB ; CHANGE ALPHA/BETA VALUES
D ; CHANGE ANY VALUES IN THE DELTA FIELDS
BKUPPKG ; SAVE ^DIC(9.4) FOR BACKUP
EXTR
SUB
XCHGLOC ; EXCHANGE LOCATION NAMES WITH ENTRY NUMBERS IN ^AUTTLOC
CHGINST ; CHANGE ENTRY NUMBERS BY 10000 IN ^DIC(4,
ADDLOC ; ADD IHS LOCATION NAMES TO VA INSTITUTION FILE
DMV ; CHANGE DELTA MULTI-VALUE FIELDS
BKUPLOC ; SAVE ^AUTTLOC FOR BACKUP
AUXGLOB ;
CHGPKG ; CHANGE INSTITUTION DATA IN ^DIC(9.4) PACKAGE FILE
BKUPINST ; SAVE ^DIC(4) FOR BACKUP
D1 ; RESTORE ^DMV(9.4) AS ^DIC(9.4,EN,10,MV+10000,0) ENTRY

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"AUXINST alters the ^DIC AND ^AUTTLOC globals.",!,"Therefore,..It must NOT be interrupted!!"
  • Line Location: AUXINST+1
Function Call: WRITE
  • Prompt: !,"OKIE DOKE - I QUIT!!",!,"AUXINST NOT EXECUTED!"
  • Line Location: AUXINST+2
Function Call: WRITE
  • Prompt: !,"AUXINST has completed its tasks.",!,"You may delete the ^DICBKUP and ^AUTTBKUP global at your pleasure!"
  • Line Location: AUXINST+4
Function Call: WRITE
  • Prompt: !,"Beginning to change ^DIC(4,EN, to ^TEMPINST(4,EN+10000,",!,"..PLEASE WAIT!"
  • Line Location: CHGINST+2
Function Call: WRITE
  • Prompt: " <DONE>",!,"Removing the ^DIC(4) global nodes!!"
  • Line Location: CHGINST+5
Function Call: WRITE
  • Prompt: " <DONE>",!,"Beginning to change ^TEMPINST(4, back to ^DIC(4,",!,"..PLEASE WAIT!"
  • Line Location: CHGINST+6
Function Call: WRITE
  • Prompt: " <DONE>"
  • Line Location: CHGINST+9
Function Call: WRITE
  • Prompt: !,"The ^DIC(4, global node has been altered!!",!,"Copying IHS Location names (^AUTTLOC) to VA Institution global (^DIC(4,",!,"..PLEASE WAIT!"
  • Line Location: ADDLOC+1
Function Call: WRITE
  • Prompt: " <DONE>"
  • Line Location: ADDLOC+3
Function Call: WRITE
  • Prompt: !,"Beginning to exchange the Location names with their entry numbers in ^AUTTLOC global.",!,"..PLEASE WAIT"
  • Line Location: XCHGLOC+2
Function Call: WRITE
  • Prompt: " <DONE>"
  • Line Location: XCHGLOC+5
Function Call: WRITE
  • Prompt: !,"Beginning to change ^DIC(9.4 Alpha, Beta and Delta data values by 10000",!,"..PLEASE WAIT!"
  • Line Location: CHGPKG+2
Function Call: WRITE
  • Prompt: " <DONE>"
  • Line Location: CHGPKG+4
Function Call: WRITE
  • Prompt: !,"Saving ^DIC(4) as ^DICBKUP(4) for backup.",!,"..PLEASE WAIT!"
  • Line Location: BKUPINST+1
Function Call: WRITE
  • Prompt: " <DONE>"
  • Line Location: BKUPINST+3
Function Call: WRITE
  • Prompt: !,"Saving ^DIC(9.4) as ^DICBKUP(9.4) for backup.",!,"..PLEASE WAIT!"
  • Line Location: BKUPPKG+1
Function Call: WRITE
  • Prompt: " <DONE>"
  • Line Location: BKUPPKG+3
Function Call: WRITE
  • Prompt: !,"Saving ^AUTTLOC, as ^AUTTBKUP for backup.",!,"..PLEASE WAIT!"
  • Line Location: BKUPLOC+1
Function Call: WRITE
  • Prompt: " <DONE>"
  • Line Location: BKUPLOC+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTLOC - [#9999999.06] ADDLOC+2, XCHGLOC+4, BKUPLOC+2
^DIC - [#1] BKUPINST+2, BKUPPKG+2
^DIC(4 - [#4] CHGINST+3, CHGINST+4, CHGINST+5!, CHGINST+7*, ADDLOC+2*
^DIC(9.4 - [#9.4] CHGPKG+3, AB+1*, D+1*, D+2, DMV+1!
^DMV CHGPKG+4!, D1+1
^DMV(9.4 DMV+1*
^TEMPINST CHGINST+9!
^TEMPINST(4 CHGINST+3*, CHGINST+7, CHGINST+8

Label References

Name Line Occurrences
AB CHGPKG+3
ADDLOC AUXINST+3
AUXGLOB CHGINST+4, CHGINST+8, D1+1, BKUPINST+2, BKUPPKG+2, BKUPLOC+2
BKUPINST CHGINST+1
BKUPLOC XCHGLOC+1
BKUPPKG CHGPKG+1
CHGINST AUXINST+3
CHGPKG AUXINST+3
D CHGPKG+3
D1 CHGPKG+4
DMV D+2
EXTR EXTR+1, EXTR+2
SUB EXTR+1
XCHGLOC AUXINST+3

Naked Globals

Name Field # of Occurrence
^( XCHGLOC+4*, CHGPKG+3
^(10 CHGPKG+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ANS AUXINST+2*!
C CHGPKG+4!, AUXGLOB+1*, AUXGLOB+2, AUXGLOB+3, EXTR, SUB, BKUPINST+3!, BKUPPKG+3!, BKUPLOC+3!
EN CHGINST+4*, CHGINST+8*, CHGINST+9!, ADDLOC+2*, CHGPKG+3*, CHGPKG+4!, AB+1, D+1, D+2, DMV+1
F CHGPKG+4!, AUXGLOB+1*, AUXGLOB+2, AUXGLOB+3, EXTR, EXTR+1, BKUPINST+3!, BKUPPKG+3!, BKUPLOC+3!
F1 CHGPKG+4!, AUXGLOB+1*, BKUPINST+3!, BKUPPKG+3!, BKUPLOC+3!
FROM CHGINST+4*, CHGINST+8*, CHGPKG+4!, D1+1*, AUXGLOB+1, AUXGLOB+2, BKUPINST+2*, BKUPINST+3!, BKUPPKG+2*, BKUPPKG+3!
, BKUPLOC+2*, BKUPLOC+3!
L CHGINST+4*, CHGINST+8*, CHGINST+9!, ADDLOC+2*, XCHGLOC+4*, XCHGLOC+5!, CHGPKG+3*, CHGPKG+4!, D+2*, D1+1*
, BKUPINST+2*, BKUPINST+3!, BKUPPKG+2*, BKUPPKG+3!, BKUPLOC+2*, BKUPLOC+3!
>> L1 AUXGLOB+2*, AUXGLOB+3*
LX CHGPKG+4!, AUXGLOB+1*, EXTR, EXTR+1*, EXTR+2*, SUB, BKUPINST+3!, BKUPPKG+3!, BKUPLOC+3!
MV CHGPKG+4!, D+2*, DMV+1
NF CHGPKG+4!, AUXGLOB+1*, EXTR, BKUPINST+3!, BKUPPKG+3!, BKUPLOC+3!
NT CHGPKG+4!, AUXGLOB+1*, SUB, BKUPINST+3!, BKUPPKG+3!, BKUPLOC+3!
P CHGPKG+4!, AUXGLOB+1*, EXTR, SUB, BKUPINST+3!, BKUPPKG+3!, BKUPLOC+3!
T CHGPKG+4!, AUXGLOB+1*, BKUPINST+3!, BKUPPKG+3!, BKUPLOC+3!
TF CHGPKG+4!, AUXGLOB+2*, EXTR, BKUPINST+3!, BKUPPKG+3!, BKUPLOC+3!
TO CHGINST+4*, CHGINST+8*, CHGPKG+4!, D1+1*, AUXGLOB+1, AUXGLOB+3, BKUPINST+2*, BKUPINST+3!, BKUPPKG+2*, BKUPPKG+3!
, BKUPLOC+2*, BKUPLOC+3!
TT CHGPKG+4!, AUXGLOB+3*, SUB, BKUPINST+3!, BKUPPKG+3!, BKUPLOC+3!
X XCHGLOC+3*, XCHGLOC+4*, XCHGLOC+5!, CHGPKG+4!, D1+1*, EXTR*, EXTR+1, BKUPINST+2*, BKUPINST+3!, BKUPPKG+2*
, BKUPPKG+3!, BKUPLOC+2*, BKUPLOC+3!
>> Y EXTR*, EXTR+1, SUB
>> Z SUB*
Info |  Source |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All