Routine: ADGVAR

Package	Total	Call Graph
Kernel	1	^%ZIS
VA Fileman	1	^DIR

Package

Total

Call Graph

Kernel

^%ZIS

VA Fileman

^DIR

Package	Total	Caller Graph
IHS Changes To ADT	27	ADGADPL ADGCDE ADGCEN32 ADGCRB0 ADGDSAU ADGDSIP1 ADGDSN ADGDSQA ADGDSQA1 ADGDSST ADGICAL1 ADGICAL3 ADGICPP ADGICUT ADGING21 ADGINPL ADGIP1 ADGOASP ADGPCAC ADGPM1 ADGREADM ADGSIL1 ADGSRVL ADGSTAT1 ADGSTAW1 ADGWMM ADGWMM1
Registration	20	DG BED AVAILABILITY DG IHS CEN A&D DG IHS DS LIST DG IHS IC DISCHARGES LIST DG IHS MENU BED CONTROL DG IHS MENU CEN REPORTS DG IHS MENU DAY SURGERY DG IHS MENU IC DG IHS MENU INPT REPORTS DG IHS MENU QI DG IHS MENU REPORTS DG IHS MENU SCHED VISIT DG IHS MENU SUPERVISOR DG IHS MENU SYS DEF DG IHS SCH VISIT LIST ALPHA DG IHS SCH VISIT LIST DATE DG IHS SCH VISIT LIST TYPE DG IHS TREAT LIST DGMENU DGPM PATIENT MOVEMENT LIST

Package

Total

Caller Graph

IHS Changes To ADT

ADGADPL  ADGCDE  ADGCEN32  ADGCRB0  ADGDSAU  ADGDSIP1  ADGDSN  ADGDSQA
ADGDSQA1  ADGDSST  ADGICAL1  ADGICAL3  ADGICPP  ADGICUT  ADGING21  ADGINPL
ADGIP1  ADGOASP  ADGPCAC  ADGPM1  ADGREADM  ADGSIL1  ADGSRVL  ADGSTAT1
ADGSTAW1  ADGWMM  ADGWMM1

Registration

DG BED AVAILABILITY  DG IHS CEN A&D  DG IHS DS LIST  DG IHS IC DISCHARGES LIST  DG IHS MENU BED CONTROL  DG IHS MENU CEN REPORTS  DG IHS MENU DAY SURGERY  DG IHS MENU IC
DG IHS MENU INPT REPORTS  DG IHS MENU QI  DG IHS MENU REPORTS  DG IHS MENU SCHED VISIT  DG IHS MENU SUPERVISOR  DG IHS MENU SYS DEF  DG IHS SCH VISIT LIST ALPHA  DG IHS SCH VISIT LIST DATE
DG IHS SCH VISIT LIST TYPE  DG IHS TREAT LIST  DGMENU  DGPM PATIENT MOVEMENT LIST

Entry Points

Name	Comments	DBIA/ICR reference
QUIT	;PEP - kill variables and quit
VERS
PRTOPT	;ENTRY POINT >>> exit action for print options
RVON	;EP;***> set reverse video variables
MENU	;ENTRY POINT >>> entry action for all submenus
SITE
VERSION	;EP; entry point called by main menu
L2
L1
VAR	;PEP;***> set package variables from site parameter file ; -- can be called by other packages that need to check ; mas parameters

Name	Field # of Occurrence
^%ZIS	RVON+2
^DIR	PRTOPT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: L1+0
Function Call: WRITE	Prompt: !?31,"***************",!?27,"",?50,"**" Line Location: L1+0
Function Call: WRITE	Prompt: !?24," INDIAN HEALTH SERVICE " Line Location: L2+0
Function Call: WRITE	Prompt: !?19," ADMISSION/DISCHARGE/TRANSFER SYSTEM " Line Location: L2+1
Function Call: WRITE	Prompt: !!,"VERSION ERROR; NOTIFY YOUR SITE MANAGER!",!! Line Location: L2+3
Function Call: WRITE	Prompt: !?24," VERSION ",^DIC(9.4,DGX,"VERSION")," " Line Location: VERS+0
Function Call: WRITE	Prompt: !?27,"",?50,"",!?30,"******************" Line Location: VERS+1
Function Call: WRITE	Prompt: !!,"YOU MUST SIGN ON PROPERLY THROUGH THE KERNEL TO USE ADT!" Line Location: SITE+0
Function Call: WRITE	Prompt: !!?80-$L(DGX)\2,DGX Line Location: SITE+1
Function Call: WRITE	Prompt: !!,"INVALID FACILITY; NOTIFY YOUR SITE MANAGER!" Line Location: SITE+2
Function Call: WRITE	Prompt: *7,!!,"ADMITTING FACILITY IS NOT DEFINED",!,"NOTIFY YOUR SITE MANGER" Line Location: SITE+4
Function Call: WRITE	Prompt: *7,!!,"YOU ARE NOT SET TO THE ADMITTING FACILITY",!,"NOTIFY YOUR SITE MANAGER" Line Location: SITE+6
Function Call: WRITE	Prompt: !!,*7,?20,"ADT Site Parameters are not set up!",!?10,"DO NOT use ADT until System Definition has been completed!",!! Line Location: VAR+3
Function Call: WRITE	Prompt: @IOF,!!?80-$L(ADG("TITLE"))/2,ADG("TITLE") Line Location: MENU+2
Function Call: WRITE	Prompt: !!?80-$L(X)\2,"(",X,")" Line Location: MENU+4
Function Call: WRITE	Prompt: @IOF Line Location: PRTOPT+3
Routine Call	DIR Line Location: PRTOPT+3
Routine Call	%ZIS Line Location: RVON+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(2 - [#3.2]	RVON+3
^AUTTSITE(1	SITE+3
^DG(43 - [#43]	VAR+3, VAR+4, VAR+6
^DIC(4 - [#4]	SITE+1, MENU+3
^DIC(9.4 - [#9.4]	L2+2, VERS

Name	Line Occurrences
QUIT	SITE+7, VAR+3
RVON	L1

Name	Field # of Occurrence
^(0	SITE+3
^(5	RVON+3

Local Variables

Name	Field # of Occurrence
ADG	MENU+5!
ADG("TITLE"	MENU+1*, MENU+2
DGAB	QUIT+1!
DGAB9	QUIT+1!
DGAS	QUIT+1!
DGAU	QUIT+1!
DGDE	QUIT+1!
DGDEWA	QUIT+1!
DGDIR	QUIT+1!
DGDIS	QUIT+1!
DGDOM	QUIT+1!
DGFA	QUIT+1!
DGFA9	QUIT+1!
DGFS	QUIT+2!
DGFU	QUIT+2!
DGHEM	QUIT+2!
DGNHCU	QUIT+2!
DGOP	QUIT+2!
DGOPT	QUIT+4!
DGOPT("GEN"	VAR+4*
DGOPT("QA"	VAR+4*
DGOPT("QA1"	VAR+6*
DGREH	QUIT+2!
DGSITE	SITE+3*, SITE+4!, SITE+6, SITE+7!
DGTI	QUIT+2!
DGTO	QUIT+2!
DGU	QUIT+2!
DGV	QUIT+3!
DGX	L2+2, L2+3, VERS, SITE+1, SITE+2, SITE+7!
DGZRVF	QUIT+4!, RVON+1, RVON+3
DGZRVN	QUIT+4!, RVON+1, RVON+3
DIR	PRTOPT+3!, PRTOPT+4!
DIR("A"	PRTOPT+3*
DIR(0	PRTOPT+3*
DUZ(2	SITE, SITE+1, SITE+6, MENU+3
IO	RVON+1*, RVON+2
IOF	L1, MENU+2, PRTOPT+3
>> IOP	RVON+2*
IOST	PRTOPT+2
IOST(0	RVON+3
L	QUIT+2!
MASD	QUIT+2!
MASDEV	QUIT+2!
PARA	QUIT+3!
STR	QUIT+3!
STR1	QUIT+3!
U	SITE+1, SITE+3, MENU+1, MENU+3, RVON+3
USER	QUIT+3!
X	MENU+3*, MENU+4, PRTOPT+1~
>> XQUIT	SITE, SITE+2, SITE+4, SITE+6, SITE+7
>> XQY0	MENU+1
Y	PRTOPT+1~
Z	PRTOPT+1~

Customize PDF page

Package: IHS Changes To ADT

Routine: ADGVAR

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 47

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed