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

Package: Quality Assurance

Routine: AQAQVAR


Information

AQAQVAR ;IHS/ANMC/LJF - MENU ENTRY AND EXIT ACTIONS [ 09/28/92 1:30 PM ]

Source Information

Source file <AQAQVAR.m>

Call Graph

Call Graph Total: 2

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
XQUIT ENTER+10, QUEUE+1, QUEUE+3, QUEUE+4

Naked Globals

Name Field # of Occurrence
^(0 ENTER+11, RPTENT+2, SUPENT+2

Local Variables

Legend:

>> 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!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All