Routine: AUXINST

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Entry Points
Interaction Calls
Global Variables Directly Accessed
Label References
Naked Globals
Local Variables

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

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

Local Variables

>>	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*

Customize PDF page

Package: Utilities

Routine: AUXINST

Information

Source Information

Entry Points

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: