ACRFCA ;IHS/OIRM/DSD/THL,AEF - COMPACT AWARD; [ 11/01/2001 9:44 AM ]
;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
;;UTILITY TO PRINT COMPACT AWARD
EN D EN1
EXIT K ACR
Q
EN1 D GATHER
W !,"1. DATE ISSUED: "
W ?20,"|2. Compact No:"
D 1
W ?45,"Dep of Health and Human Services"
W !?5,$G(ACR(1))
W ?20,"| "
W $G(ACR(2))
D 1
D 40
D 1
W ?49,"PHS/Indian Health Service"
W !,"3. Admin Code:"
W ?15,"Cat Fed Domestic Asst No."
D 1
W !?5,$G(ACR(3))
D 1
W ?49,"NOTICE OF SELF-GOVERNANCE"
D 40
D 1
W ?56,"COMPACT AWARD"
W !,"5. Award Period:"
D 1
W ?56,"SUPPLEMENT"
W !?3,"FROM: ",$G(ACR(51))
W ?30,"TO: ",$G(ACR(52))
D 1
D 40
D 1
D 41
W !,"6. Program Title:"
D 1
W "8. Compact Recipient/Address:"
W !?3,$G(ACR(6))
D 1
W ?42,$G(ACR(81))
D 40
D 1
W ?42,$G(ACR(82))
W !,"7. Authorization (Legislative):"
D 1
W ?42,$G(ACR(83))
W !?3,$G(ACR(7))
D 1
W ?42,$G(ACR(84))
W !
D 1
W ?42,$G(ACR(85))
D PAUSE^ACRFWARN
D 80
W !,"9. Fed Funds Approved (Current Period)"
D 1
W "13. Payment Information:"
W !?3,"A. Financial Assistance:"
W ?28,$J($FN($G(ACR(91)),"P,",0),12)
D 1
W ?42,"A. Frequency of Payment:"
W !?3,"B. Direct Assistance...:"
W ?28,$J($FN($G(ACR(92)),"P,",0),12)
D 1
W ?45,$G(ACR(13))
W !?3,"C. Carry Forward.......:"
W ?28,$J($FN($G(ACR(93)),"P,",0),12)
D 1
W !?3,"A. Financial Assistance:"
W ?28,$J($FN($G(ACR(94)),"P,",0),12)
D 1
W !,"10. Fed Funds Awarded (This Action)"
D 1
W ?42,"B. Fed Payment Office:"
W !?3,"A. Financial Assistance:"
W ?28,$J($FN($G(ACR(101)),"P,",0),12)
D 1
W ?45,$G(ACR(131))
W !?3,"B. Direct Assistance...:"
W ?28,$J($FN($G(ACR(102)),"P,",0),12)
D 1
W ?45,$G(ACR(132))
W !?3,"C. Carry Forward.......:"
W ?28,$J($FN($G(ACR(103)),"P,",0),12)
D 1
W ?45,$G(ACR(133))
W !?3,"A. Financial Assistance:"
W ?28,$J($FN($G(ACR(104)),"P,",0),12)
D 1
W ?45,$G(ACR(134))
W !,"11. Cumulative Awards (This Period)"
D 1
W !?3,"A. Financial Assistance:"
W ?28,$J($FN($G(ACR(111)),"P,",0),12)
D 1
W !?3,"B. Direct Assistance...:"
W ?28,$J($FN($G(ACR(112)),"P,",0),12)
D 1
W !?3,"C. Carry Forward.......:"
W ?28,$J($FN($G(ACR(113)),"P,",0),12)
D 1
W !?3,"A. Financial Assistance:"
W ?28,$J($FN($G(ACR(114)),"P,",0),12)
D 1
W !,"12. Unawarded Balance Current Year"
D 1
W !?28,$J($FN($G(ACR(114)),"P,",0),12)
D PAUSE^ACRFWARN
D 80
W !,"14. Remarks (Other Documents Attached |"
W:$G(ACR(14))="Y" "XX"
W ?45,"| Yes |"
W:$G(ACR(14))="N" "XX"
W ?58,"| No )"
D REMARKS
D 80
W !,"15. This Compact is subject to the Terms and Conditions incorporated directly"
W !," or by reference in the following:"
D TC
D 80
W !,"16. CRS-EIN: ",$G(ACR(16))
W ?25,"|17. Object Class: ",$G(ACR(17))
W ?60,"|18. List No.: ",$G(ACR(18))
D PAUSE^ACRFWARN
D 80
W !?6,"FY CAN"
W ?20,"DOCUMENT NO."
W ?40,"AMOUNT FIN. ASST."
W ?60,"AMOUNT DIR. ASST."
W !,"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)
W !,"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)
W !,"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)
W !,"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)
W !,"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)
W !,"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)
W !,"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)
W !,"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)
Q
GATHER ;GATHER ALL DATA FOR REPORT
Q
1 W ?40,"|"
Q
40 W $$DASH^ACRFMENU(40)
Q
41 W $$DASH1^ACRFMENU(39)
Q
80 W !
81 W $$DASH^ACRFMENU
Q
Q
TC ;PRINT TERMS AND CONDITIONS
Q
ACRFCA ;IHS/OIRM/DSD/THL,AEF - COMPACT AWARD; [ 11/01/2001 9:44 AM ]
+1 ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
+2 ;;UTILITY TO PRINT COMPACT AWARD
EN DO EN1
EXIT KILL ACR
+1 QUIT
EN1 DO GATHER
+1 WRITE !,"1. DATE ISSUED: "
+2 WRITE ?20,"|2. Compact No:"
+3 DO 1
+4 WRITE ?45,"Dep of Health and Human Services"
+5 WRITE !?5,$GET(ACR(1))
+6 WRITE ?20,"| "
+7 WRITE $GET(ACR(2))
+8 DO 1
+9 DO 40
+10 DO 1
+11 WRITE ?49,"PHS/Indian Health Service"
+12 WRITE !,"3. Admin Code:"
+13 WRITE ?15,"Cat Fed Domestic Asst No."
+14 DO 1
+15 WRITE !?5,$GET(ACR(3))
+16 DO 1
+17 WRITE ?49,"NOTICE OF SELF-GOVERNANCE"
+18 DO 40
+19 DO 1
+20 WRITE ?56,"COMPACT AWARD"
+21 WRITE !,"5. Award Period:"
+22 DO 1
+23 WRITE ?56,"SUPPLEMENT"
+24 WRITE !?3,"FROM: ",$GET(ACR(51))
+25 WRITE ?30,"TO: ",$GET(ACR(52))
+26 DO 1
+27 DO 40
+28 DO 1
+29 DO 41
+30 WRITE !,"6. Program Title:"
+31 DO 1
+32 WRITE "8. Compact Recipient/Address:"
+33 WRITE !?3,$GET(ACR(6))
+34 DO 1
+35 WRITE ?42,$GET(ACR(81))
+36 DO 40
+37 DO 1
+38 WRITE ?42,$GET(ACR(82))
+39 WRITE !,"7. Authorization (Legislative):"
+40 DO 1
+41 WRITE ?42,$GET(ACR(83))
+42 WRITE !?3,$GET(ACR(7))
+43 DO 1
+44 WRITE ?42,$GET(ACR(84))
+45 WRITE !
+46 DO 1
+47 WRITE ?42,$GET(ACR(85))
+48 DO PAUSE^ACRFWARN
+49 DO 80
+50 WRITE !,"9. Fed Funds Approved (Current Period)"
+51 DO 1
+52 WRITE "13. Payment Information:"
+53 WRITE !?3,"A. Financial Assistance:"
+54 WRITE ?28,$JUSTIFY($FNUMBER($GET(ACR(91)),"P,",0),12)
+55 DO 1
+56 WRITE ?42,"A. Frequency of Payment:"
+57 WRITE !?3,"B. Direct Assistance...:"
+58 WRITE ?28,$JUSTIFY($FNUMBER($GET(ACR(92)),"P,",0),12)
+59 DO 1
+60 WRITE ?45,$GET(ACR(13))
+61 WRITE !?3,"C. Carry Forward.......:"
+62 WRITE ?28,$JUSTIFY($FNUMBER($GET(ACR(93)),"P,",0),12)
+63 DO 1
+64 WRITE !?3,"A. Financial Assistance:"
+65 WRITE ?28,$JUSTIFY($FNUMBER($GET(ACR(94)),"P,",0),12)
+66 DO 1
+67 WRITE !,"10. Fed Funds Awarded (This Action)"
+68 DO 1
+69 WRITE ?42,"B. Fed Payment Office:"
+70 WRITE !?3,"A. Financial Assistance:"
+71 WRITE ?28,$JUSTIFY($FNUMBER($GET(ACR(101)),"P,",0),12)
+72 DO 1
+73 WRITE ?45,$GET(ACR(131))
+74 WRITE !?3,"B. Direct Assistance...:"
+75 WRITE ?28,$JUSTIFY($FNUMBER($GET(ACR(102)),"P,",0),12)
+76 DO 1
+77 WRITE ?45,$GET(ACR(132))
+78 WRITE !?3,"C. Carry Forward.......:"
+79 WRITE ?28,$JUSTIFY($FNUMBER($GET(ACR(103)),"P,",0),12)
+80 DO 1
+81 WRITE ?45,$GET(ACR(133))
+82 WRITE !?3,"A. Financial Assistance:"
+83 WRITE ?28,$JUSTIFY($FNUMBER($GET(ACR(104)),"P,",0),12)
+84 DO 1
+85 WRITE ?45,$GET(ACR(134))
+86 WRITE !,"11. Cumulative Awards (This Period)"
+87 DO 1
+88 WRITE !?3,"A. Financial Assistance:"
+89 WRITE ?28,$JUSTIFY($FNUMBER($GET(ACR(111)),"P,",0),12)
+90 DO 1
+91 WRITE !?3,"B. Direct Assistance...:"
+92 WRITE ?28,$JUSTIFY($FNUMBER($GET(ACR(112)),"P,",0),12)
+93 DO 1
+94 WRITE !?3,"C. Carry Forward.......:"
+95 WRITE ?28,$JUSTIFY($FNUMBER($GET(ACR(113)),"P,",0),12)
+96 DO 1
+97 WRITE !?3,"A. Financial Assistance:"
+98 WRITE ?28,$JUSTIFY($FNUMBER($GET(ACR(114)),"P,",0),12)
+99 DO 1
+100 WRITE !,"12. Unawarded Balance Current Year"
+101 DO 1
+102 WRITE !?28,$JUSTIFY($FNUMBER($GET(ACR(114)),"P,",0),12)
+103 DO PAUSE^ACRFWARN
+104 DO 80
+105 WRITE !,"14. Remarks (Other Documents Attached |"
+106 IF $GET(ACR(14))="Y"
WRITE "XX"
+107 WRITE ?45,"| Yes |"
+108 IF $GET(ACR(14))="N"
WRITE "XX"
+109 WRITE ?58,"| No )"
+110 DO REMARKS
+111 DO 80
+112 WRITE !,"15. This Compact is subject to the Terms and Conditions incorporated directly"
+113 WRITE !," or by reference in the following:"
+114 DO TC
+115 DO 80
+116 WRITE !,"16. CRS-EIN: ",$GET(ACR(16))
+117 WRITE ?25,"|17. Object Class: ",$GET(ACR(17))
+118 WRITE ?60,"|18. List No.: ",$GET(ACR(18))
+119 DO PAUSE^ACRFWARN
+120 DO 80
+121 WRITE !?6,"FY CAN"
+122 WRITE ?20,"DOCUMENT NO."
+123 WRITE ?40,"AMOUNT FIN. ASST."
+124 WRITE ?60,"AMOUNT DIR. ASST."
+125 WRITE !,"19a. ",$GET(ACR(191)),?20,"b. ",$GET(ACR(192)),?40,"c. ",$JUSTIFY($FNUMBER($GET(ACR(193)),"P,",0),12),?60,"d. ",$JUSTIFY($FNUMBER($GET(ACR(194)),"P,",0),12)
+126 WRITE !,"20a. ",$GET(ACR(201)),?20,"b. ",$GET(ACR(202)),?40,"c. ",$JUSTIFY($FNUMBER($GET(ACR(203)),"P,",0),12),?60,"d. ",$JUSTIFY($FNUMBER($GET(ACR(204)),"P,",0),12)
+127 WRITE !,"21a. ",$GET(ACR(211)),?20,"b. ",$GET(ACR(212)),?40,"c. ",$JUSTIFY($FNUMBER($GET(ACR(213)),"P,",0),12),?60,"d. ",$JUSTIFY($FNUMBER($GET(ACR(214)),"P,",0),12)
+128 WRITE !,"22a. ",$GET(ACR(221)),?20,"b. ",$GET(ACR(222)),?40,"c. ",$JUSTIFY($FNUMBER($GET(ACR(223)),"P,",0),12),?60,"d. ",$JUSTIFY($FNUMBER($GET(ACR(224)),"P,",0),12)
+129 WRITE !,"23a. ",$GET(ACR(231)),?20,"b. ",$GET(ACR(232)),?40,"c. ",$JUSTIFY($FNUMBER($GET(ACR(233)),"P,",0),12),?60,"d. ",$JUSTIFY($FNUMBER($GET(ACR(234)),"P,",0),12)
+130 WRITE !,"24a. ",$GET(ACR(241)),?20,"b. ",$GET(ACR(242)),?40,"c. ",$JUSTIFY($FNUMBER($GET(ACR(243)),"P,",0),12),?60,"d. ",$JUSTIFY($FNUMBER($GET(ACR(244)),"P,",0),12)
+131 WRITE !,"25a. ",$GET(ACR(251)),?20,"b. ",$GET(ACR(252)),?40,"c. ",$JUSTIFY($FNUMBER($GET(ACR(253)),"P,",0),12),?60,"d. ",$JUSTIFY($FNUMBER($GET(ACR(254)),"P,",0),12)
+132 WRITE !,"26a. ",$GET(ACR(261)),?20,"b. ",$GET(ACR(262)),?40,"c. ",$JUSTIFY($FNUMBER($GET(ACR(263)),"P,",0),12),?60,"d. ",$JUSTIFY($FNUMBER($GET(ACR(264)),"P,",0),12)
+133 QUIT
GATHER ;GATHER ALL DATA FOR REPORT
+1 QUIT
1 WRITE ?40,"|"
+1 QUIT
40 WRITE $$DASH^ACRFMENU(40)
+1 QUIT
41 WRITE $$DASH1^ACRFMENU(39)
+1 QUIT
80 WRITE !
81 WRITE $$DASH^ACRFMENU
+1 QUIT
+1 QUIT
TC ;PRINT TERMS AND CONDITIONS
+1 QUIT
