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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: FHZVARS

Package: Dietetics

Routine: FHZVARS


Information

FHZVARS ;IHS/ANMC/LJF - MAIN MENU ENTRY ACTIONS ; [ 10/18/94 9:33 AM ]

Source Information

Source file <FHZVARS.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
IHS VA Utilities 1 ^XBCLS  

Entry Points

Name Comments DBIA/ICR reference
VERS
RVON ;set reverse video variables
SITE
EXIT
L1
L2

External References

Name Field # of Occurrence
^XBCLS L1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?33,"*************",!,?29,"****",?46,"****"
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: !,?27,"****",?48,"****"
  • Line Location: L1+1
Function Call: WRITE
  • Prompt: !,?25,"***"," INDIAN HEALTH SERVICE ","***"
  • Line Location: L2+0
Function Call: WRITE
  • Prompt: !,?26,"*** "," DIETETICS SYSTEM "," ***"
  • Line Location: L2+1
Function Call: WRITE
  • Prompt: !!,"VERSION ERROR; NOTIFY YOUR SITE MANAGER!",!!
  • Line Location: L2+3
Function Call: WRITE
  • Prompt: !,?27,"*** "," VERSION ",^DIC(9.4,X,"VERSION")," "," ***"
  • Line Location: VERS+0
Function Call: WRITE
  • Prompt: !,?29,"****",?46,"****",!,?31,"****",?44,"****",!?34,"**********"
  • Line Location: VERS+1
Function Call: WRITE
  • Prompt: !!,"YOU MUST SIGN ON PROPERLY THROUGH THE KERNEL TO USE THIS PACKAGE!"
  • Line Location: SITE+0
Function Call: WRITE
  • Prompt: !!,?80-$L(X)\2,X
  • Line Location: SITE+1
Function Call: WRITE
  • Prompt: !!,"INVALID FACILITY; NOTIFY YOUR SITE MANAGER!"
  • Line Location: SITE+2
Function Call: WRITE
  • Prompt: *7,!!,"RPMS SITE IS NOT DEFINED",!,"NOTIFY YOUR SITE MANGER"
  • Line Location: SITE+4
Function Call: WRITE
  • Prompt: *7,!!,"YOU ARE NOT SIGNED ON TO THE RPMS SITE",!,"NOTIFY YOUR SITE MANAGER"
  • Line Location: SITE+5

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZIS(2 - [#3.2] RVON+2
^AUTTSITE(1 SITE+3
^DD("SITE" FHZVARS+4
^DIC(4 - [#4] SITE+1
^DIC(9.4 - [#9.4] L2+2, VERS
^FH(119.9 - [#119.9] FHZVARS+4

Naked Globals

Name Field # of Occurrence
^(0 FHZVARS+4, SITE+1, SITE+3
^(5 RVON+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DUZ(2 SITE, SITE+1, SITE+5
FHNULL RVON+1*, EXIT!
FHPAR FHZVARS+4*, EXIT!
FHZRVF RVON+1*, RVON+2*, EXIT!
FHZRVN RVON+1*, RVON+2*, EXIT!
IOST(0 RVON+2
SITE SITE+3*, SITE+4, SITE+5, SITE+6!
X FHZVARS+4*, L2+2*, L2+3, VERS, SITE+1*, SITE+2, SITE+6!
>> XQUIT SITE*, SITE+2*, SITE+4*, SITE+5*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All