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: ACHSYPVR

Package: Contract Health Management Information System

Routine: ACHSYPVR


Information

ACHSYPVR ; IHS/ITSC/PMF - RESET CHS TX DATE IN IHS PATIENT & VENDOR FILE ; [ 10/16/2001 8:16 AM ]

Source Information

Source file <ACHSYPVR.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
IHS VA Utilities 2 $$DIR^XBDIR  $$C^XBFUNC  
Kernel 2 HOME^%ZIS  $$REPEAT^XLFSTR  
VA Fileman 1 DT^DICRW  

Entry Points

Name Comments DBIA/ICR reference
A1 ;
START ;EP
A3 ;
A2 ;
VEND ;

External References

Name Field # of Occurrence
HOME^%ZIS START+4
DT^DICRW START+4
$$DIR^XBDIR A1+1
$$C^XBFUNC START+6
$$REPEAT^XLFSTR START+5, START+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"DUZ UNDEFINED OR 0."
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !,"DUZ(2) UNDEFINED OR 0."
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !,"You're not a manager."
  • Line Location: START+3
Function Call: WRITE
  • Prompt: @IOF,$$REPEAT^XLFSTR("*",70)
  • Line Location: START+5
Function Call: WRITE
  • Prompt: !,$$C^XBFUNC("RESET CHS TX DATE IN PATIENT & VENDOR FILES",80),!
  • Line Location: START+6
Function Call: WRITE
  • Prompt: $$REPEAT^XLFSTR("*",70),!!
  • Line Location: START+7
Function Call: WRITE
  • Prompt: !!,"Please be PATIENT -- This process could take a while",!!
  • Line Location: A1+3
Function Call: WRITE
  • Prompt: "Resetting Patient CHS TX DATE in ",N," NODES",!
  • Line Location: A2+1
Function Call: WRITE
  • Prompt: $J(C,8)," of ",$J(N,8)
  • Line Location: A3+1
Function Call: WRITE
  • Prompt: !!,"Number of Patient Nodes Reset = ",C,!!
  • Line Location: A3+3
Function Call: WRITE
  • Prompt: "Resetting Vendor CHS TX DATE in ",N," NODES",!
  • Line Location: VEND+2
Function Call: WRITE
  • Prompt: $J(C,8)," of ",$J(N,8)
  • Line Location: VEND+5
Function Call: WRITE
  • Prompt: !!,"Number of Vendor Nodes Reset = ",C,!!!,"JOB COMPLETED"
  • Line Location: VEND+7
Routine Call
  • %ZIS
  • Line Location:
    • START+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] A3+1
^AUPNPAT(0 A1+5
^AUTTVNDR - [#9999999.11] VEND+5
^AUTTVNDR(0 VEND+1
^XUSEC("XUMGR" START+3

Naked Globals

Name Field # of Occurrence
^(0 A3+1*
^(11 VEND+5*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C A1+4~, A2+2*, A3+1*, A3+3, VEND+3*, VEND+5*, VEND+7
>> DTOUT A1+2
>> DUOUT A1+2
DUZ START+1, START+3
DUZ(2 START+2
>> DX A2+2*, VEND+3*
>> DY A2+2*, VEND+3*
I A1+4~
IOF START+5
>> IOXY A3+1, VEND+5
N A1+4~, A1+5*, A2+1, A3+1, VEND+1*, VEND+2, VEND+5
R A1+4~, A2+2*, A3+1*, VEND+3*, VEND+5*
U A1+5, A3+1, VEND+1, VEND+5
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All