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

Package: Contract Health Management Information System

Routine: ACHSDNL5


Information

ACHSDNL5 ; IHS/ITSC/TPF/PMF - DENIAL LTR/FS (FS2) (6/6) ;

Source Information

Source file <ACHSDNL5.m>

Call Graph

Call Graph Total: 3

Package Total Call Graph
Contract Health Management Information System 2 (CPI,RTRN)^ACHS  LINES^ACHSFU  
VA Fileman 1 COMMA^%DTC  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Contract Health Management Information System 2 ACHSDNL2  ACHSDNL4  

Entry Points

Name Comments DBIA/ICR reference
T5
END ;EP.
ADDR ;EP.
VEND2
SUBADDR ;EP.
VEND0
VEND1
T2
V1 ;
V2
TOTAL ;
TYPE1
T4

External References

Name Field # of Occurrence
COMMA^%DTC ACHSDNL5+5, ACHSDNL5+6, VEND0, VEND0+1, VEND1+1, VEND1+2, V2+1, V2+2, TOTAL+6, TOTAL+16
, TOTAL+20, TOTAL+21
CPI^ACHS END+1
RTRN^ACHS END+1
LINES^ACHSFU TOTAL+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $S(ACHSUMET=1:" VENDOR(S)",1:" VENDOR(S) suggested"),?48,"CHARGES"
  • Line Location: ACHSDNL5+3
Function Call: WRITE
  • Prompt: !,$P(^(0),U)
  • Line Location: ACHSDNL5+4
Function Call: WRITE
  • Prompt: ?40,$J(X,6),"(ACTUAL)"
  • Line Location: ACHSDNL5+5
Function Call: WRITE
  • Prompt: ?40,$J(X,6),"(EST.)"
  • Line Location: ACHSDNL5+6
Function Call: WRITE
  • Prompt: !,$P(ACHSPPRO,U,3)
  • Line Location: VEND0+0
Function Call: WRITE
  • Prompt: ?40,$J(X,6),"(ACTUAL)"
  • Line Location: VEND0+0
Function Call: WRITE
  • Prompt: ?40,$J(X,6),"(EST.)"
  • Line Location: VEND0+1
Function Call: WRITE
  • Prompt: !,$P(^(0),U),?40
  • Line Location: VEND1+0
Function Call: WRITE
  • Prompt: $J(X,6),"(ACTUAL)"
  • Line Location: VEND1+1
Function Call: WRITE
  • Prompt: $J(X,6),"(EST.)"
  • Line Location: VEND1+2
Function Call: WRITE
  • Prompt: !,$P(A(1),U)
  • Line Location: V2+0
Function Call: WRITE
  • Prompt: ?40,$J(X,6),"(ACTUAL)"
  • Line Location: V2+1
Function Call: WRITE
  • Prompt: ?40,$J(X,6),"(EST.)"
  • Line Location: V2+2
Function Call: WRITE
  • Prompt: ?30,$E(ACHS("-"),1,30),!
  • Line Location: TOTAL+6
Function Call: WRITE
  • Prompt: ?30,"TOTAL:",?40,$J(X,6)
  • Line Location: TOTAL+6
Function Call: WRITE
  • Prompt: !,ACHS("-"),!," OTHER RESOURCES",?37,"AMOUNT PAID (IF ANY)"
  • Line Location: TOTAL+8
Function Call: WRITE
  • Prompt: !,$P(INSR,U)
  • Line Location: TOTAL+14
Function Call: WRITE
  • Prompt: ?40,$J(X,6)
  • Line Location: TOTAL+16
Function Call: WRITE
  • Prompt: !?30,$E(ACHS("-"),1,30),!?30,"TOTAL: ",?40,$J(X,6)
  • Line Location: TOTAL+20
Function Call: WRITE
  • Prompt: !,ACHS("-"),!?28,"BALANCE:",?40,$J(X,6),!
  • Line Location: TOTAL+21
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !?DIWL-1,$P(X,U),!?DIWL-1,$P(X,U,2)
  • Line Location: SUBADDR+2
Function Call: WRITE
  • Prompt: " ",$P(^(0),U,2)
  • Line Location: SUBADDR+2
Function Call: WRITE
  • Prompt: " ",$P(X,U,4),!
  • Line Location: SUBADDR+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ACHSDEN - [#9002071] ACHSDNL5+4, V1+1, VEND1, VEND2, V2, TOTAL+7, TOTAL+10, TOTAL+11
^AUTNINS - [#9999999.18] TOTAL+13
^AUTTVNDR - [#9999999.11] ACHSDNL5+4, VEND1, ADDR+2
^DIC(5 - [#5] SUBADDR+2

Label References

Name Line Occurrences
ADDR T2, TYPE1
END TOTAL+7
SUBADDR T4, T5
T2 ACHSDNL5+5
T4 VEND0
T5 V2+1
TOTAL VEND2, V2
TYPE1 VEND1+1
V1 T2+1
V2 T5+1
VEND0 ACHSDNL5+4
VEND1 VEND1, TYPE1+1
VEND2 V1+1, VEND1

Naked Globals

Name Field # of Occurrence
^( VEND1, V2
^(0 ACHSDNL5+4, V1+1, VEND1, VEND2, TOTAL+7, SUBADDR+2
^(13 ADDR+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A ACHSDNL5+4*, TOTAL+10*, TOTAL+11, END+2!, ADDR+2*
A(1 VEND1*, VEND1+1, VEND1+2, V2*, V2+1, V2+2, T5
A(2 VEND1*, TYPE1
>> ACHS("-" TOTAL+6, TOTAL+8, TOTAL+20, TOTAL+21
>> ACHSA ACHSDNL5+4, V1+1, VEND1, VEND2, V2, TOTAL+7, TOTAL+10, TOTAL+11
ACHSDOS END+2!
ACHSISDT END+2!
ACHSNAME END+2!
ACHSNAMP END+2!
ACHSPDR END+2!
ACHSPPRO ACHSDNL5+4*, ACHSDNL5+5, ACHSDNL5+6, VEND0, VEND0+1, T4, END+2!
>> ACHSQUIT ACHSDNL5+2, TOTAL+5
ACHSRQDT END+2!
ACHSST END+2!, SUBADDR+2*
ACHSTOT END+2!
ACHSTOT("$" ACHSDNL5+3*, ACHSDNL5+5*, ACHSDNL5+6*, VEND0*, VEND0+1*, VEND1+1*, VEND1+2*, V2+1*, V2+2*, TOTAL+6
, TOTAL+21
ACHSTOT1 END+2!
ACHSTOT1("$" TOTAL+8*, TOTAL+15*, TOTAL+20, TOTAL+21
>> ACHSUMET ACHSDNL5+3
ACHSVPTR ACHSDNL5+4*, TYPE1*, END+2!, ADDR+1, ADDR+2
>> DA(1 V1+1*, VEND1*
>> DA(2 VEND2*, V2*
>> DIWL SUBADDR+1*, SUBADDR+2
DTOUT END+2!
DUOUT END+2!
DUZ(2 ACHSDNL5+4, V1+1, VEND1, VEND2, V2, TOTAL+7, TOTAL+10, TOTAL+11
INSR TOTAL+12*, TOTAL+13*, TOTAL+14, TOTAL+18!
IOF END+1
OTHRES TOTAL+11*, TOTAL+12, TOTAL+15, TOTAL+18!
U ACHSDNL5+4, ACHSDNL5+5, ACHSDNL5+6, VEND0, VEND0+1, T4, V1+1, VEND1, VEND1+1, VEND1+2
, VEND2, V2, V2+1, V2+2, T5, TOTAL+7, TOTAL+12, TOTAL+14, TOTAL+15, ADDR+2
, SUBADDR+2, SUBADDR+3
X ACHSDNL5+5*, ACHSDNL5+6*, VEND0*, VEND0+1*, T4*, VEND1+1*, VEND1+2*, V2+1*, V2+2*, T5*
, TOTAL+6*, TOTAL+15*, TOTAL+16, TOTAL+18!, TOTAL+20*, TOTAL+21*, ADDR+2*, SUBADDR+2, SUBADDR+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All