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 |  Label References |  Local Variables |  All
Print Page as PDF
Routine: ACRFCA

Package: Commitment Register

Routine: ACRFCA


Information

ACRFCA ;IHS/OIRM/DSD/THL,AEF - COMPACT AWARD; [ 11/01/2001 9:44 AM ]

Source Information

Source file <ACRFCA.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Commitment Register 2 ($$DASH,$$DASH1)^ACRFMENU  PAUSE^ACRFWARN  

Entry Points

Name Comments DBIA/ICR reference
EN
GATHER ;GATHER ALL DATA FOR REPORT
40
41
1
EN1
EXIT
REMARKS ;PRINT REMARKS
80
81
TC ;PRINT TERMS AND CONDITIONS

External References

Name Field # of Occurrence
$$DASH^ACRFMENU 40, 81
$$DASH1^ACRFMENU 41
PAUSE^ACRFWARN EN1+48, EN1+103, EN1+119

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"1. DATE ISSUED: "
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: ?20,"|2. Compact No:"
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: ?45,"Dep of Health and Human Services"
  • Line Location: EN1+4
Function Call: WRITE
  • Prompt: !?5,$G(ACR(1))
  • Line Location: EN1+5
Function Call: WRITE
  • Prompt: ?20,"| "
  • Line Location: EN1+6
Function Call: WRITE
  • Prompt: $G(ACR(2))
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: ?49,"PHS/Indian Health Service"
  • Line Location: EN1+11
Function Call: WRITE
  • Prompt: !,"3. Admin Code:"
  • Line Location: EN1+12
Function Call: WRITE
  • Prompt: ?15,"Cat Fed Domestic Asst No."
  • Line Location: EN1+13
Function Call: WRITE
  • Prompt: !?5,$G(ACR(3))
  • Line Location: EN1+15
Function Call: WRITE
  • Prompt: ?49,"NOTICE OF SELF-GOVERNANCE"
  • Line Location: EN1+17
Function Call: WRITE
  • Prompt: ?56,"COMPACT AWARD"
  • Line Location: EN1+20
Function Call: WRITE
  • Prompt: !,"5. Award Period:"
  • Line Location: EN1+21
Function Call: WRITE
  • Prompt: ?56,"SUPPLEMENT"
  • Line Location: EN1+23
Function Call: WRITE
  • Prompt: !?3,"FROM: ",$G(ACR(51))
  • Line Location: EN1+24
Function Call: WRITE
  • Prompt: ?30,"TO: ",$G(ACR(52))
  • Line Location: EN1+25
Function Call: WRITE
  • Prompt: !,"6. Program Title:"
  • Line Location: EN1+30
Function Call: WRITE
  • Prompt: "8. Compact Recipient/Address:"
  • Line Location: EN1+32
Function Call: WRITE
  • Prompt: !?3,$G(ACR(6))
  • Line Location: EN1+33
Function Call: WRITE
  • Prompt: ?42,$G(ACR(81))
  • Line Location: EN1+35
Function Call: WRITE
  • Prompt: ?42,$G(ACR(82))
  • Line Location: EN1+38
Function Call: WRITE
  • Prompt: !,"7. Authorization (Legislative):"
  • Line Location: EN1+39
Function Call: WRITE
  • Prompt: ?42,$G(ACR(83))
  • Line Location: EN1+41
Function Call: WRITE
  • Prompt: !?3,$G(ACR(7))
  • Line Location: EN1+42
Function Call: WRITE
  • Prompt: ?42,$G(ACR(84))
  • Line Location: EN1+44
Function Call: WRITE
  • Prompt: !
  • Line Location: EN1+45
Function Call: WRITE
  • Prompt: ?42,$G(ACR(85))
  • Line Location: EN1+47
Function Call: WRITE
  • Prompt: !,"9. Fed Funds Approved (Current Period)"
  • Line Location: EN1+50
Function Call: WRITE
  • Prompt: "13. Payment Information:"
  • Line Location: EN1+52
Function Call: WRITE
  • Prompt: !?3,"A. Financial Assistance:"
  • Line Location: EN1+53
Function Call: WRITE
  • Prompt: ?28,$J($FN($G(ACR(91)),"P,",0),12)
  • Line Location: EN1+54
Function Call: WRITE
  • Prompt: ?42,"A. Frequency of Payment:"
  • Line Location: EN1+56
Function Call: WRITE
  • Prompt: !?3,"B. Direct Assistance...:"
  • Line Location: EN1+57
Function Call: WRITE
  • Prompt: ?28,$J($FN($G(ACR(92)),"P,",0),12)
  • Line Location: EN1+58
Function Call: WRITE
  • Prompt: ?45,$G(ACR(13))
  • Line Location: EN1+60
Function Call: WRITE
  • Prompt: !?3,"C. Carry Forward.......:"
  • Line Location: EN1+61
Function Call: WRITE
  • Prompt: ?28,$J($FN($G(ACR(93)),"P,",0),12)
  • Line Location: EN1+62
Function Call: WRITE
  • Prompt: !?3,"A. Financial Assistance:"
  • Line Location: EN1+64
Function Call: WRITE
  • Prompt: ?28,$J($FN($G(ACR(94)),"P,",0),12)
  • Line Location: EN1+65
Function Call: WRITE
  • Prompt: !,"10. Fed Funds Awarded (This Action)"
  • Line Location: EN1+67
Function Call: WRITE
  • Prompt: ?42,"B. Fed Payment Office:"
  • Line Location: EN1+69
Function Call: WRITE
  • Prompt: !?3,"A. Financial Assistance:"
  • Line Location: EN1+70
Function Call: WRITE
  • Prompt: ?28,$J($FN($G(ACR(101)),"P,",0),12)
  • Line Location: EN1+71
Function Call: WRITE
  • Prompt: ?45,$G(ACR(131))
  • Line Location: EN1+73
Function Call: WRITE
  • Prompt: !?3,"B. Direct Assistance...:"
  • Line Location: EN1+74
Function Call: WRITE
  • Prompt: ?28,$J($FN($G(ACR(102)),"P,",0),12)
  • Line Location: EN1+75
Function Call: WRITE
  • Prompt: ?45,$G(ACR(132))
  • Line Location: EN1+77
Function Call: WRITE
  • Prompt: !?3,"C. Carry Forward.......:"
  • Line Location: EN1+78
Function Call: WRITE
  • Prompt: ?28,$J($FN($G(ACR(103)),"P,",0),12)
  • Line Location: EN1+79
Function Call: WRITE
  • Prompt: ?45,$G(ACR(133))
  • Line Location: EN1+81
Function Call: WRITE
  • Prompt: !?3,"A. Financial Assistance:"
  • Line Location: EN1+82
Function Call: WRITE
  • Prompt: ?28,$J($FN($G(ACR(104)),"P,",0),12)
  • Line Location: EN1+83
Function Call: WRITE
  • Prompt: ?45,$G(ACR(134))
  • Line Location: EN1+85
Function Call: WRITE
  • Prompt: !,"11. Cumulative Awards (This Period)"
  • Line Location: EN1+86
Function Call: WRITE
  • Prompt: !?3,"A. Financial Assistance:"
  • Line Location: EN1+88
Function Call: WRITE
  • Prompt: ?28,$J($FN($G(ACR(111)),"P,",0),12)
  • Line Location: EN1+89
Function Call: WRITE
  • Prompt: !?3,"B. Direct Assistance...:"
  • Line Location: EN1+91
Function Call: WRITE
  • Prompt: ?28,$J($FN($G(ACR(112)),"P,",0),12)
  • Line Location: EN1+92
Function Call: WRITE
  • Prompt: !?3,"C. Carry Forward.......:"
  • Line Location: EN1+94
Function Call: WRITE
  • Prompt: ?28,$J($FN($G(ACR(113)),"P,",0),12)
  • Line Location: EN1+95
Function Call: WRITE
  • Prompt: !?3,"A. Financial Assistance:"
  • Line Location: EN1+97
Function Call: WRITE
  • Prompt: ?28,$J($FN($G(ACR(114)),"P,",0),12)
  • Line Location: EN1+98
Function Call: WRITE
  • Prompt: !,"12. Unawarded Balance Current Year"
  • Line Location: EN1+100
Function Call: WRITE
  • Prompt: !?28,$J($FN($G(ACR(114)),"P,",0),12)
  • Line Location: EN1+102
Function Call: WRITE
  • Prompt: !,"14. Remarks (Other Documents Attached |"
  • Line Location: EN1+105
Function Call: WRITE
  • Prompt: ?45,"| Yes |"
  • Line Location: EN1+107
Function Call: WRITE
  • Prompt: ?58,"| No )"
  • Line Location: EN1+109
Function Call: WRITE
  • Prompt: !,"15. This Compact is subject to the Terms and Conditions incorporated directly"
  • Line Location: EN1+112
Function Call: WRITE
  • Prompt: !," or by reference in the following:"
  • Line Location: EN1+113
Function Call: WRITE
  • Prompt: !,"16. CRS-EIN: ",$G(ACR(16))
  • Line Location: EN1+116
Function Call: WRITE
  • Prompt: ?25,"|17. Object Class: ",$G(ACR(17))
  • Line Location: EN1+117
Function Call: WRITE
  • Prompt: ?60,"|18. List No.: ",$G(ACR(18))
  • Line Location: EN1+118
Function Call: WRITE
  • Prompt: !?6,"FY CAN"
  • Line Location: EN1+121
Function Call: WRITE
  • Prompt: ?20,"DOCUMENT NO."
  • Line Location: EN1+122
Function Call: WRITE
  • Prompt: ?40,"AMOUNT FIN. ASST."
  • Line Location: EN1+123
Function Call: WRITE
  • Prompt: ?60,"AMOUNT DIR. ASST."
  • Line Location: EN1+124
Function Call: WRITE
  • Prompt: !,"19a. ",$G(ACR(191)),?20,"b. ",$G(ACR(192)),?40,"c. ",$J($FN($G(ACR(193)),"P,",0),12),?60,"d. ",$J($FN($G(ACR(194)),"P,",0),12)
  • Line Location: EN1+125
Function Call: WRITE
  • Prompt: !,"20a. ",$G(ACR(201)),?20,"b. ",$G(ACR(202)),?40,"c. ",$J($FN($G(ACR(203)),"P,",0),12),?60,"d. ",$J($FN($G(ACR(204)),"P,",0),12)
  • Line Location: EN1+126
Function Call: WRITE
  • Prompt: !,"21a. ",$G(ACR(211)),?20,"b. ",$G(ACR(212)),?40,"c. ",$J($FN($G(ACR(213)),"P,",0),12),?60,"d. ",$J($FN($G(ACR(214)),"P,",0),12)
  • Line Location: EN1+127
Function Call: WRITE
  • Prompt: !,"22a. ",$G(ACR(221)),?20,"b. ",$G(ACR(222)),?40,"c. ",$J($FN($G(ACR(223)),"P,",0),12),?60,"d. ",$J($FN($G(ACR(224)),"P,",0),12)
  • Line Location: EN1+128
Function Call: WRITE
  • Prompt: !,"23a. ",$G(ACR(231)),?20,"b. ",$G(ACR(232)),?40,"c. ",$J($FN($G(ACR(233)),"P,",0),12),?60,"d. ",$J($FN($G(ACR(234)),"P,",0),12)
  • Line Location: EN1+129
Function Call: WRITE
  • Prompt: !,"24a. ",$G(ACR(241)),?20,"b. ",$G(ACR(242)),?40,"c. ",$J($FN($G(ACR(243)),"P,",0),12),?60,"d. ",$J($FN($G(ACR(244)),"P,",0),12)
  • Line Location: EN1+130
Function Call: WRITE
  • Prompt: !,"25a. ",$G(ACR(251)),?20,"b. ",$G(ACR(252)),?40,"c. ",$J($FN($G(ACR(253)),"P,",0),12),?60,"d. ",$J($FN($G(ACR(254)),"P,",0),12)
  • Line Location: EN1+131
Function Call: WRITE
  • Prompt: !,"26a. ",$G(ACR(261)),?20,"b. ",$G(ACR(262)),?40,"c. ",$J($FN($G(ACR(263)),"P,",0),12),?60,"d. ",$J($FN($G(ACR(264)),"P,",0),12)
  • Line Location: EN1+132
Function Call: WRITE
  • Prompt: ?40,"|"
  • Line Location: 1+0
Function Call: WRITE
  • Prompt: $$DASH^ACRFMENU(40)
  • Line Location: 40+0
Function Call: WRITE
  • Prompt: $$DASH1^ACRFMENU(39)
  • Line Location: 41+0
Function Call: WRITE
  • Prompt: !
  • Line Location: 80+0
Function Call: WRITE
  • Prompt: $$DASH^ACRFMENU
  • Line Location: 81+0

Label References

Name Line Occurrences
1 EN1+3, EN1+8, EN1+10, EN1+14, EN1+16, EN1+19, EN1+22, EN1+26, EN1+28, EN1+31
, EN1+34, EN1+37, EN1+40, EN1+43, EN1+46, EN1+51, EN1+55, EN1+59, EN1+63, EN1+66
, EN1+68, EN1+72, EN1+76, EN1+80, EN1+84, EN1+87, EN1+90, EN1+93, EN1+96, EN1+99
, EN1+101
40 EN1+9, EN1+18, EN1+27, EN1+36
41 EN1+29
80 EN1+49, EN1+104, EN1+111, EN1+115, EN1+120
EN1 EN
GATHER EN1
REMARKS EN1+110
TC EN1+114

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACR EXIT!
ACR(1 EN1+5
ACR(101 EN1+71
ACR(102 EN1+75
ACR(103 EN1+79
ACR(104 EN1+83
ACR(111 EN1+89
ACR(112 EN1+92
ACR(113 EN1+95
ACR(114 EN1+98, EN1+102
ACR(13 EN1+60
ACR(131 EN1+73
ACR(132 EN1+77
ACR(133 EN1+81
ACR(134 EN1+85
ACR(14 EN1+106, EN1+108
ACR(16 EN1+116
ACR(17 EN1+117
ACR(18 EN1+118
ACR(191 EN1+125
ACR(192 EN1+125
ACR(193 EN1+125
ACR(194 EN1+125
ACR(2 EN1+7
ACR(201 EN1+126
ACR(202 EN1+126
ACR(203 EN1+126
ACR(204 EN1+126
ACR(211 EN1+127
ACR(212 EN1+127
ACR(213 EN1+127
ACR(214 EN1+127
ACR(221 EN1+128
ACR(222 EN1+128
ACR(223 EN1+128
ACR(224 EN1+128
ACR(231 EN1+129
ACR(232 EN1+129
ACR(233 EN1+129
ACR(234 EN1+129
ACR(241 EN1+130
ACR(242 EN1+130
ACR(243 EN1+130
ACR(244 EN1+130
ACR(251 EN1+131
ACR(252 EN1+131
ACR(253 EN1+131
ACR(254 EN1+131
ACR(261 EN1+132
ACR(262 EN1+132
ACR(263 EN1+132
ACR(264 EN1+132
ACR(3 EN1+15
ACR(51 EN1+24
ACR(52 EN1+25
ACR(6 EN1+33
ACR(7 EN1+42
ACR(81 EN1+35
ACR(82 EN1+38
ACR(83 EN1+41
ACR(84 EN1+44
ACR(85 EN1+47
ACR(91 EN1+54
ACR(92 EN1+58
ACR(93 EN1+62
ACR(94 EN1+65
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All