Routine: AQAQVAR

Package	Total	Call Graph
IHS VA Utilities	1	^XBCLS
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
PRTOPT	;EP;***> exit action for print options
XQUIT
QUEUE	;check if delinquent report is queued
RPTENT	;EP;***> entry action for reports menu
XIT	;EP;***> exit actions for AQAQ MENU
ENTER	;EP;***> entry actions for AQAQ MENU
SUPENT	;EP;***> entry action for supervisor menu

External References

Name	Field # of Occurrence
^DIR	PRTOPT+1
^XBCLS	ENTER+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?22 Line Location: ENTER+4
Function Call: WRITE	Prompt: "*" Line Location: ENTER+4
Function Call: WRITE	Prompt: !?22,"",?56,"",!?22,"* INDIAN HEALTH SERVICE *" Line Location: ENTER+5
Function Call: WRITE	Prompt: !?22,"* MEDICAL STAFF CREDENTIALS *" Line Location: ENTER+6
Function Call: WRITE	Prompt: !?22,"* VERSION ",AQAQ("VERS"),", ",AQAQ("VERDT"),?56,"*" Line Location: ENTER+7
Function Call: WRITE	Prompt: !?22,"",?56,"",!?22 Line Location: ENTER+8
Function Call: WRITE	Prompt: "*" Line Location: ENTER+8
Function Call: WRITE	Prompt: !!,"YOU MUST SIGN ON PROPERLY THROUGH THE KERNEL TO USE STAFF CREDENTIALS!" Line Location: ENTER+10
Function Call: WRITE	Prompt: !!?80-$L(X)\2,X Line Location: ENTER+11
Function Call: WRITE	Prompt: !!,"INVALID FACILITY; NOTIFY YOUR SITE MANAGER!" Line Location: ENTER+12
Function Call: WRITE	Prompt: 7,!!?13,"OPTION TO RUN DELINQUENT CHART NUMBERS IS MISSING!",!?23,"PLEASE CALL YOUR SITE MANAGER*" Line Location: QUEUE+3
Function Call: WRITE	Prompt: 7,!!?11,"OPTION TO TRACK DELINQUENT CHART NUMBERS IS NOT QUEUED!!",!?20,"PLEASE CHECK WITH YOUR SITE MANAGER*",!! Line Location: QUEUE+4
Function Call: WRITE	Prompt: !!?3,"**DELINQUENT CHART TRACKING OPTION Scheduled to run on " Line Location: QUEUE+5
Function Call: WRITE	Prompt: Y,"**" Line Location: QUEUE+6
Function Call: WRITE	Prompt: !?18,"**Rescheduling frequency is every ",+AQAQY," " Line Location: QUEUE+8
Function Call: WRITE	Prompt: $S(AQAQZ="D":"day",AQAQZ="M":"month",AQAQZ="H":"hour",1:"second") Line Location: QUEUE+9
Function Call: WRITE	Prompt: "s" Condition for execution: +AQAQY>1 Line Location: QUEUE+10
Function Call: WRITE	Prompt: "**" Line Location: QUEUE+10
Function Call: WRITE	Prompt: ! Line Location: XQUIT+0
Function Call: WRITE	Prompt: @IOF,!!?80-$L(X)\2,X Line Location: RPTENT+1
Function Call: WRITE	Prompt: !!?80-$L(X)\2,X Line Location: RPTENT+2
Function Call: WRITE	Prompt: @IOF,!!?80-$L(X)\2,X Line Location: SUPENT+1
Function Call: WRITE	Prompt: !!?80-$L(X)\2,X Line Location: SUPENT+2
Function Call: WRITE	Prompt: @IOF Line Location: PRTOPT+1
Routine Call	DIR Line Location: PRTOPT+1

Name	Line Occurrences (* Changed, ! Killed)
^ADGIC - [#9009013]	QUEUE+1
^ADGIC(0	QUEUE+1
^DD("DD"	ENTER+2, QUEUE+6
^DIC(19 - [#19]	QUEUE+2, QUEUE+4, QUEUE+6, QUEUE+7
^DIC(4 - [#4]	ENTER+11, RPTENT+2, SUPENT+2
^DIC(9.4 - [#9.4]	ENTER+1, ENTER+2

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AQAQ	XQUIT!
AQAQ("I"	ENTER+4, ENTER+8
AQAQ("VERDT"	ENTER+2*, ENTER+7
AQAQ("VERS"	ENTER+1*, ENTER+2, ENTER+7
AQAQX	QUEUE+2*, QUEUE+3, QUEUE+4, QUEUE+6, QUEUE+7, XQUIT!
AQAQY	QUEUE+7*, QUEUE+8, QUEUE+10, XQUIT!
AQAQZ	QUEUE+7*, QUEUE+9, XQUIT!
DIR	PRTOPT+1!, PRTOPT+2!
DIR("A"	PRTOPT+1*
DIR(0	PRTOPT+1*
DT	QUEUE+4
DUZ(0	ENTER+10
DUZ(2	ENTER+10, ENTER+11, RPTENT+2, SUPENT+2
IOF	RPTENT+1, SUPENT+1, PRTOPT+1
U	ENTER+2, ENTER+11, QUEUE+4, QUEUE+6, QUEUE+7, RPTENT+2, SUPENT+2
X	ENTER+11, ENTER+12, XQUIT!, RPTENT+1, RPTENT+2, RPTENT+3!, SUPENT+1, SUPENT+2*, SUPENT+3!
>> XQUIT	ENTER+10, ENTER+12
Y	ENTER+1, ENTER+2, QUEUE+6*, XQUIT!

Customize PDF page

Package: Quality Assurance

Routine: AQAQVAR

Information

Source Information

Call Graph

Call Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: