Routine: AVA93INS

Package	Total	Call Graph
IHS VA Utilities	2	$$DIR^XBDIR ^XBFMK
Kernel	2	$$CJ^XLFSTR MES^XPDUTL
VA Fileman	2	^DIE ENALL^DIK

Entry Points

Name	Comments	DBIA/ICR reference
PRE	; ; Check if site's Institution has the station field valued or not and if valued ; that it is the correctly assigned one
CHK1	;
CHK2	;
SORRY(X)	;
PRC2	;
PRC1	;
PROCS	; ; Set institution station number field ; STNM - station number assigned/to be assigned ; AVALOCPT - EIN for AUTTLOC, location table ; AVALOCDT - Data string from AUTTLOC(EIN,0) ; AVAINTPT - EIN for DIC(4, Institution table ; AVALASU - ASUFAC number key for "C" index read of AUTTLOC("C" ; AVAINTDT - Data string from DIC(4,EIN,0) ; AVAINTNM - Institution name ; EXTRASU - Extra location reference for a single ASUFAC number flag/array ; AVALC - Location index for array EXTRASU ; AVACNT - Count variable for number of extra locations per ASUFAC numbers ; AVALOCAF - ASUFAC (ASUFAC) reference from the ; STATION - Station number to be assigned ; QQ - Quit flag ;

External References

Name	Field # of Occurrence
^DIE	PRC2+20
ENALL^DIK	PRE+25, PROCS+32
$$DIR^XBDIR	SORRY+3
^XBFMK	PRE+21
$$CJ^XLFSTR	PRE+10, SORRY+3
MES^XPDUTL	PRE+12, PRE+13, PRE+17, PRE+18, PRE+30, PRE+31, PRE+34, PRE+35, CHK1+4, CHK1+7 , CHK1+8, PROCS+17, PROCS+18, PRC1+12, PRC2+5, PRC2+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ UNDEFINED OR 0." Line Location: PRE+7
Function Call: WRITE	Prompt: !,"DUZ(0) UNDEFINED OR NULL." Line Location: PRE+8
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Hello, "_$P(X,",",2)_" "_$P(X,","),IOM),! Line Location: PRE+10
Function Call: WRITE	Prompt: ! Line Location: PRE+12
Function Call: WRITE	Prompt: ! Line Location: PRE+13
Function Call: WRITE	Prompt: ! Line Location: PRE+17
Function Call: WRITE	Prompt: ! Line Location: PRE+18
Function Call: WRITE	Prompt: ! Line Location: PRE+34
Function Call: WRITE	Prompt: ! Line Location: PRE+34
Function Call: WRITE	Prompt: !,"INSTITUTION NAME: ",AVAINTNM Line Location: CHK1+14
Function Call: WRITE	Prompt: !,"INSTITUTION CODE: ",AVAINTPT Line Location: CHK1+15
Function Call: WRITE	Prompt: !,?5,"STATION NUMBER: ",AVASTAT Line Location: CHK1+16
Function Call: WRITE	Prompt: !,?5,"STATION NUMBER SHOULD BE: ",STATION Line Location: CHK1+18
Function Call: WRITE	Prompt: !,?5,"STATION NUMBER IS ALREADY ASSIGNED CORRECTLY!",! Line Location: CHK1+19
Function Call: WRITE	Prompt: !,"THERE ARE MULTIPLE LOCATION ASSOCIATED WITH THE ASUFAC: ",AVALASU Line Location: CHK2+16
Function Call: WRITE	Prompt: !!,?5,"Institution Name",?45,"ASUFAC #",?54,"STATION NUMBER",! Line Location: PROCS+21
Function Call: WRITE	Prompt: "_" Line Location: PROCS+22
Function Call: WRITE	Prompt: ! Line Location: PROCS+23
Function Call: WRITE	Prompt: ! Line Location: PROCS+28
Function Call: WRITE	Prompt: !,?5,AVAINTNM,?46,AVALASU,?60,STATION Line Location: PRC2+15
Routine Call	DIE Line Location: PRC2+20

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	Classic Fileman Calls
^AUTTLOC - [#9999999.06]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUTTLOC - [#9999999.06]	CHK1+5, CHK2+5, PRC1+5, PRC2+2
^AUTTLOC("C"	PRE+22!, PRE+27, CHK2+4, PROCS+25, PRC1+4
^AUTTSITE - [#9999999.39]	PRE+15, CHK1+2
^DIC(4 - [#4]	CHK1+9, CHK1+10, CHK2+7, CHK2+9, PROCS+29!, PRC1+7, PRC2+6
^VA(200 - [#200]	PRE+9
^XSTNUM("D"	CHK1+17, PRC2+11, PRC2+14
^XSTNUM(0	PRE+28*, PROCS+16

Label References

Name	Line Occurrences
CHK1	PRE+15
CHK2	PRE+27
PRC1	PROCS+25
PRC2	PRC1+13
SORRY	PRE+7, PRE+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PRE+12, PRE+13, PRE+17, PRE+18, PRE+30, PRE+31, PRE+34, PRE+35, CHK1+4, CHK1+7 , CHK1+8, PROCS+17, PROCS+18, PRC1+12, PRC2+5, PRC2+9
>> AUMDA	PRC2+19*
AVACNT	CHK2+3, CHK2+12, CHK2+14, PROCS+20~, PRC1+3, PRC1+10, PRC1+12
>> AVAINACT	CHK2+6, CHK2+10, PRC1+6, PRC1+8
AVAINT99	PRE+4~, CHK1+10*, CHK1+12
AVAINTDT	PRE+4~, CHK1+9, CHK1+11, CHK2+7, CHK2+8, PROCS+20~, PRC2+6*, PRC2+7
AVAINTNM	PRE+4~, CHK1+11, CHK1+14, CHK2+8, PROCS+20~, PRC2+7*, PRC2+15
AVAINTPT	PRE+4~, CHK1+6, CHK1+7, CHK1+9, CHK1+10, CHK1+15, CHK2+6, CHK2+7, CHK2+9, PROCS+20~ , PRC1+6, PRC1+7, PRC2+3, PRC2+6, PRC2+9, PRC2+16
AVALASU	PRE+4~, PRE+27, CHK1+6, CHK1+8, CHK1+17, CHK2+4, CHK2+16, PROCS+20~, PROCS+25*, PRC1+4 , PRC1+12, PRC2+5, PRC2+11, PRC2+14, PRC2+15
AVALC	CHK2+3, CHK2+4, CHK2+5, CHK2+11, PROCS+20~, PRC1+3, PRC1+4, PRC1+5, PRC1+9
>> AVALCNM	CHK2+6, PRC1+6
AVALOCAF	PROCS+20~, PRC2+4*, PRC2+5, PRC2+8, PRC2+9
AVALOCDT	PRE+4~, CHK1+5, CHK1+6, CHK2+5, CHK2+6, PROCS+20~, PRC1+5, PRC1+6, PRC2+2, PRC2+3 , PRC2+4
AVALOCPT	PRE+4~, CHK1+3, CHK1+4, CHK1+5, PROCS+20~, PRC1+13, PRC2+2
AVASITDT	PRE+4~, CHK1+2*, CHK1+3
AVASITE	PRE+4~, PRE+15*, CHK1+2
AVASTAT	PRE+5~, CHK1+12*, CHK1+13, CHK1+16, CHK1+18, CHK1+19
>> DA	PRC2+16*, PRC2+19
>> DIE	PRC2+18*
DIFQ	SORRY+1!
>> DIK	PRE+23, PROCS+30
>> DIK(1	PRE+24, PROCS+31
>> DR	PRC2+17*
DUZ	PRE+7, PRE+9
DUZ(0	PRE+8
EXTRASU	CHK2+2!, CHK2+14!, CHK2+15, PROCS+20~, PRC1+2!
EXTRASU(	CHK2+11, PRC1+9, PRC1+13
IOM	PRE+10, SORRY+3
NN	PROCS+20~, PROCS+22*
QQ	PRE+5~, PRE+6, PRE+28, PRE+29, PRE+33, CHK1+20, CHK2+17, PROCS+20~, PROCS+24
STATION	PRE+5~, CHK1+17, CHK1+18, CHK1+19, PROCS+20~, PRC2+14, PRC2+15, PRC2+17
U	PRE+6, PRE+9, CHK1+3, CHK1+6, CHK1+11, CHK1+12, CHK2+6, CHK2+8, PROCS+24, PRC1+6 , PRC2+3, PRC2+4, PRC2+7
X	PRE+9*, PRE+10, SORRY~, SORRY+2
>> XPDQUIT	SORRY+2*
>> ZTQUEUED	SORRY+3

Customize PDF page

Package: IHS VA Support Files

Routine: AVA93INS

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: