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

Package: Commitment Register

Routine: ACRFPAA


Information

ACRFPAA ;IHS/OIRM/DSD/THL,AEF - PRINT ADVICE OF ALLOWANCE; [ 11/01/2001 9:44 AM ]

Source Information

Source file <ACRFPAA.m>

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Commitment Register 1 ACRFCAA  

Entry Points

Name Comments DBIA/ICR reference
SET
EN1
WRITE
EN
EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EXIT+2
Function Call: WRITE
  • Prompt: !?80-$L(ACRX)\2,ACRX
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: "-"
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !,"TO:"
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: ?40,"ALLOWANCE"
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: ?52,"AMENDMENT"
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: ?63,"DATE"
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: !,"DIRECTOR"
  • Line Location: EN1+8
Function Call: WRITE
  • Prompt: ?40,$E(ACRFY,2),"-",ACRALW
  • Line Location: EN1+9
Function Call: WRITE
  • Prompt: ?56,ACRAMDNO
  • Line Location: EN1+10
Function Call: WRITE
  • Prompt: ?63,ACRTODAY
  • Line Location: EN1+11
Function Call: WRITE
  • Prompt: !,ACRTO
  • Line Location: EN1+12
Function Call: WRITE
  • Prompt: ?40
  • Line Location: EN1+13
Function Call: WRITE
  • Prompt: "-"
  • Line Location: EN1+14
Function Call: WRITE
  • Prompt: !,ACRSTRET
  • Line Location: EN1+15
Function Call: WRITE
  • Prompt: ?40,"ALLOTMENT NO."
  • Line Location: EN1+16
Function Call: WRITE
  • Prompt: !,ACRCITY,", ",ACRSTATE," ",ACRZIP
  • Line Location: EN1+17
Function Call: WRITE
  • Prompt: ?42,ACRALW
  • Line Location: EN1+18
Function Call: WRITE
  • Prompt: !?40
  • Line Location: EN1+19
Function Call: WRITE
  • Prompt: "-"
  • Line Location: EN1+20
Function Call: WRITE
  • Prompt: !?40,"APPROPRIATION SYMBOL"
  • Line Location: EN1+21
Function Call: WRITE
  • Prompt: !?42,ACRAPP
  • Line Location: EN1+22
Function Call: WRITE
  • Prompt: !?40
  • Line Location: EN1+23
Function Call: WRITE
  • Prompt: "-"
  • Line Location: EN1+24
Function Call: WRITE
  • Prompt: !?40,"ACTIVITY"
  • Line Location: EN1+25
Function Call: WRITE
  • Prompt: ?65,"ACC'T POINT"
  • Line Location: EN1+26
Function Call: WRITE
  • Prompt: !?40,ACRBA
  • Line Location: EN1+27
Function Call: WRITE
  • Prompt: ?67,ACRAPT
  • Line Location: EN1+28
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+29
Function Call: WRITE
  • Prompt: "-"
  • Line Location: EN1+30
Function Call: WRITE
  • Prompt: !?19,"FIRST"
  • Line Location: EN1+31
Function Call: WRITE
  • Prompt: ?32,"SECOND"
  • Line Location: EN1+32
Function Call: WRITE
  • Prompt: ?45,"THIRD"
  • Line Location: EN1+33
Function Call: WRITE
  • Prompt: ?59,"FOURTH"
  • Line Location: EN1+34
Function Call: WRITE
  • Prompt: !?19,"QUARTER"
  • Line Location: EN1+35
Function Call: WRITE
  • Prompt: ?32,"QUARTER"
  • Line Location: EN1+36
Function Call: WRITE
  • Prompt: ?45,"QUARTER"
  • Line Location: EN1+37
Function Call: WRITE
  • Prompt: ?59,"QUARTER"
  • Line Location: EN1+38
Function Call: WRITE
  • Prompt: ?71,"TOTAL"
  • Line Location: EN1+39
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+40
Function Call: WRITE
  • Prompt: "-"
  • Line Location: EN1+41
Function Call: WRITE
  • Prompt: !,"ORIGINAL"
  • Line Location: EN1+42
Function Call: WRITE
  • Prompt: !,"ALLOWANCE"
  • Line Location: EN1+44
Function Call: WRITE
  • Prompt: ?15,$J(ACRO1,11)
  • Line Location: EN1+45
Function Call: WRITE
  • Prompt: ?28,$J(ACRO2,11)
  • Line Location: EN1+46
Function Call: WRITE
  • Prompt: ?41,$J(ACRO3,11)
  • Line Location: EN1+47
Function Call: WRITE
  • Prompt: ?54,$J(ACRO4,11)
  • Line Location: EN1+48
Function Call: WRITE
  • Prompt: ?67,$J(ACRTO,11)
  • Line Location: EN1+49
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+50
Function Call: WRITE
  • Prompt: "-"
  • Line Location: EN1+51
Function Call: WRITE
  • Prompt: !!,"INCREASE"
  • Line Location: EN1+52
Function Call: WRITE
  • Prompt: ?15,$J(ACRI1,11)
  • Line Location: EN1+53
Function Call: WRITE
  • Prompt: ?28,$J(ACRI2,11)
  • Line Location: EN1+54
Function Call: WRITE
  • Prompt: ?41,$J(ACRI3,11)
  • Line Location: EN1+55
Function Call: WRITE
  • Prompt: ?54,$J(ACRI4,11)
  • Line Location: EN1+56
Function Call: WRITE
  • Prompt: ?67,$J(ACRTI,11)
  • Line Location: EN1+57
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+58
Function Call: WRITE
  • Prompt: "-"
  • Line Location: EN1+59
Function Call: WRITE
  • Prompt: !!,"DECREASE"
  • Line Location: EN1+60
Function Call: WRITE
  • Prompt: ?15,$J(ACRD1,11)
  • Line Location: EN1+61
Function Call: WRITE
  • Prompt: ?28,$J(ACRD2,11)
  • Line Location: EN1+62
Function Call: WRITE
  • Prompt: ?41,$J(ACRD3,11)
  • Line Location: EN1+63
Function Call: WRITE
  • Prompt: ?54,$J(ACRD4,11)
  • Line Location: EN1+64
Function Call: WRITE
  • Prompt: ?67,$J(ACRTD,11)
  • Line Location: EN1+65
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+66
Function Call: WRITE
  • Prompt: "-"
  • Line Location: EN1+67
Function Call: WRITE
  • Prompt: !!,"QUARTER"
  • Line Location: EN1+68
Function Call: WRITE
  • Prompt: ?15,$J(ACRQ1,11)
  • Line Location: EN1+69
Function Call: WRITE
  • Prompt: ?28,$J(ACRQ2,11)
  • Line Location: EN1+70
Function Call: WRITE
  • Prompt: ?41,$J(ACRQ3,11)
  • Line Location: EN1+71
Function Call: WRITE
  • Prompt: ?54,$J(ACRQ4,11)
  • Line Location: EN1+72
Function Call: WRITE
  • Prompt: ?67,$J(ACRGTOT,11)
  • Line Location: EN1+73
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+74
Function Call: WRITE
  • Prompt: "-"
  • Line Location: EN1+75
Function Call: WRITE
  • Prompt: !,"CURRENT DISTRIBUTION:"
  • Line Location: EN1+76
Function Call: WRITE
  • Prompt: !!,"DISTRIBUTION"
  • Line Location: EN1+81
Function Call: WRITE
  • Prompt: ?37,"RECURRING"
  • Line Location: EN1+82
Function Call: WRITE
  • Prompt: ?50,"NON-RECURRG"
  • Line Location: EN1+83
Function Call: WRITE
  • Prompt: ?68,"TOTAL"
  • Line Location: EN1+84
Function Call: WRITE
  • Prompt: !,"-----------------------------"
  • Line Location: EN1+85
Function Call: WRITE
  • Prompt: ?35,"-----------"
  • Line Location: EN1+86
Function Call: WRITE
  • Prompt: ?50,"-----------"
  • Line Location: EN1+87
Function Call: WRITE
  • Prompt: ?65,"-----------"
  • Line Location: EN1+88
Function Call: WRITE
  • Prompt: !,"-----------------------------"
  • Line Location: EN1+94
Function Call: WRITE
  • Prompt: ?35,"-----------"
  • Line Location: EN1+95
Function Call: WRITE
  • Prompt: ?50,"-----------"
  • Line Location: EN1+96
Function Call: WRITE
  • Prompt: ?65,"-----------"
  • Line Location: EN1+97
Function Call: WRITE
  • Prompt: !,"TOTAL ALLOWANCES"
  • Line Location: EN1+98
Function Call: WRITE
  • Prompt: ?35,$J(ACRRTOT,11)
  • Line Location: EN1+99
Function Call: WRITE
  • Prompt: ?50,$J(ACRNTOT,11)
  • Line Location: EN1+100
Function Call: WRITE
  • Prompt: ?65,$J(ACRGTOT,11)
  • Line Location: EN1+101
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+102
Function Call: WRITE
  • Prompt: "-"
  • Line Location: EN1+103
Function Call: WRITE
  • Prompt: !,"CERTIFIED-DIVISION OF FINANCE-PHS"
  • Line Location: EN1+104
Function Call: WRITE
  • Prompt: ?40,"SIGNATURE"
  • Line Location: EN1+105
Function Call: WRITE
  • Prompt: !!?40,"CARL FITZPATRICK"
  • Line Location: EN1+106
Function Call: WRITE
  • Prompt: !?40
  • Line Location: EN1+107
Function Call: WRITE
  • Prompt: "-"
  • Line Location: EN1+108
Function Call: WRITE
  • Prompt: !?40,"Director, Division of Resource Mgt"
  • Line Location: EN1+109
Function Call: WRITE
  • Prompt: !?40,"Indian Health Service"
  • Line Location: EN1+110
Function Call: WRITE
  • Prompt: !,ACRSSA
  • Line Location: WRITE+0
Function Call: WRITE
  • Prompt: ?35,$J(ACRREC,11)
  • Line Location: WRITE+1
Function Call: WRITE
  • Prompt: ?50,$J(ACRNREC,11)
  • Line Location: WRITE+2
Function Call: WRITE
  • Prompt: ?65,$J(ACRTOT,11)
  • Line Location: WRITE+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUTTSSA - [#9999999.56] SET+1
^TMP("SSA" EXIT!, EN1+90, SET+2

Label References

Name Line Occurrences
@( EN1+80
EN1 EN
SET EN1+91
WRITE EN1+92

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACRALW EXIT+1!, EN1+9, EN1+18
ACRAMDNO EXIT+1!, EN1+10
ACRAPP EXIT+1!, EN1+22
ACRAPPNO EXIT+1!
ACRAPT EXIT+1!, EN1+28
ACRBA EXIT+1!, EN1+27
ACRBANO EXIT+1!
ACRCITY EXIT+1!, EN1+17
ACRD1 EXIT!, EN1+43, EN1+61
ACRD2 EXIT!, EN1+43, EN1+62
ACRD3 EXIT!, EXIT+1!, EN1+43, EN1+63
ACRD4 EXIT!, EXIT+1!, EN1+43, EN1+64
ACRFY EXIT+1!, EN1+9
>> ACRGREF EN1+77
ACRGTOT EXIT!, EN1+43*, EN1+73, EN1+89*, EN1+93*, EN1+101
ACRI EXIT+1!, EN1+3*, EN1+14*, EN1+20*, EN1+24*, EN1+30*, EN1+41*, EN1+51*, EN1+59*, EN1+67*
, EN1+75*, EN1+103*, EN1+108*
ACRI1 EXIT!, EN1+43, EN1+53
ACRI2 EXIT!, EN1+43, EN1+54
ACRI3 EXIT!, EN1+43, EN1+55
ACRI4 EXIT!, EN1+43, EN1+56
ACRNREC EXIT+1!, SET*, SET+4*, SET+5, SET+7, WRITE+2
ACRNTOT EXIT+1!, EN1+89*, EN1+93, EN1+100, SET+7*
ACRO1 EXIT!, EN1+43, EN1+45
ACRO2 EXIT!, EN1+43, EN1+46
ACRO3 EXIT!, EN1+43, EN1+47
ACRO4 EXIT!, EN1+43, EN1+48
>> ACRPRT EN1+77*, EN1+80
ACRQ1 EXIT!, EN1+43*, EN1+69
ACRQ2 EXIT!, EN1+43*, EN1+70
ACRQ3 EXIT!, EN1+43*, EN1+71
ACRQ4 EXIT!, EN1+43*, EN1+72
ACRREC EXIT+1!, SET*, SET+3*, SET+5, SET+6, WRITE+1
ACRRTOT EXIT+1!, EN1+89*, EN1+93, EN1+99, SET+6*
ACRSSA EXIT+1!, SET+1*, WRITE
ACRSSANO EXIT+1!, EN1+89*, EN1+90*, SET+1, SET+2
ACRSTATE EXIT+1!, EN1+17
ACRSTRET EXIT+1!, EN1+15
ACRTD EXIT!, EN1+43*, EN1+65
ACRTI EXIT!, EN1+43*, EN1+57
ACRTO EXIT+1!, EN1+12, EN1+43*, EN1+49
ACRTODAY EXIT+1!, EN1+11
ACRTOT EXIT+1!, SET*, SET+5*, WRITE+3
ACRX EXIT+1!, EN1*, EN1+1, SET+2*, SET+3, SET+4
>> ACRZDA EN1+79
ACRZIP EXIT+1!, EN1+17
D0 EN1+78~, EN1+79*
DC EN1+78~
DIP EN1+78~
DN EN1+78~
DXS EN1+78~
IOF EXIT+2
U SET+1, SET+3, SET+4
Info |  Source |  Caller Graph |  Entry Points |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All