Routine: ACRFCA

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

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)

GATHER ;GATHER ALL DATA FOR REPORT

1 W ?40,"|"

40 W $$DASH^ACRFMENU(40)

41 W $$DASH1^ACRFMENU(39)

80 W !

81 W $$DASH^ACRFMENU

REMARKS ;PRINT REMARKS

TC ;PRINT TERMS AND CONDITIONS

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

REMARKS   ;PRINT REMARKS

 +1        QUIT

TC        ;PRINT TERMS AND CONDITIONS

 +1        QUIT

ACRFCA.m