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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: ADGVAR

Package: IHS Changes To ADT

Routine: ADGVAR


Information

ADGVAR ; IHS/ADC/PDW/ENM - VARIABLE SET AND KILL ; [ 03/25/1999 11:48 AM ]

Source Information

Source file <ADGVAR.m>

Call Graph

Call Graph Total: 2

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

Caller Graph

Caller Graph Total: 47

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  

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

External References

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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