Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: ACRFCA1

ACRFCA1.m

Go to the documentation of this file. 
  1. ACRFCA1 ;IHS/OIRM/DSD/THL,AEF - COMPACT AWARD CON'T; [ 11/01/2001   9:44 AM ]
  1.  ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
  1.  ;;UTILITY TO PRINT COMPACT AWARD
  1. EN D EN1
  1. EXIT K ACR,ACRAPP
  1.  Q
  1. EN1 N X
  1.  S X="NOTICE OF SELF-GOVERNANCE COMPACT AWARD"
  1.  W !?(80-$L(X))\2,X
  1.  D 81
  1.  W !,"COMPACT NO."
  1.  W ?18,"| DATE ISSUED"
  1.  W ?35,"| AWARDEE: ",$G(ACR(81))
  1.  W !,$G(ACR(2))
  1.  W ?18,"|  "
  1.  W $G(ACR(1))
  1.  W ?35,"|",?44,$G(ACR(82))
  1.  W !?18,"|",?35,"|",?44,$G(ACR(84))
  1.  D 81
  1.  W !,"28. Budget Detail by Approp"
  1.  W ?28,"| SERIVCES"
  1.  W ?41,"| FACILITIES"
  1.  W ?54,"| CONTRACT HLTH"
  1.  W ?67,"| ISD"
  1.  D 81
  1.  W !,"Appropriation No."
  1.  W ?28,$G(ACRAPP(1))
  1.  W ?41,$G(ACRAPP(2))
  1.  W ?54,$G(ACRAPP(3))
  1.  W ?67,$G(ACRAPP(4))
  1.  D 81
  1.  W !,"A. Fin Asst By Approp",?28,$J($FN($G(ACR("28A1")),"P,",0),12),?41,$J($FN($G(ACR("28A2")),"P,",0),12),?54,$J($FN($G(ACR("28A3")),"P,",0),12),?67,$J($FN($G(ACR("28A4")),"P,",0),12)
  1.  W !,"B. Dir Asst By Approp",?28,$J($FN($G(ACR("28B1")),"P,",0),12),?41,$J($FN($G(ACR("28B2")),"P,",0),12),?54,$J($FN($G(ACR("28B3")),"P,",0),12),?67,$J($FN($G(ACR("28B4")),"P,",0),12)
  1.  W !,"C. Fed Funds Approved",?28,$J($FN($G(ACR("28C1")),"P,",0),12),?41,$J($FN($G(ACR("28C2")),"P,",0),12),?54,$J($FN($G(ACR("28C3")),"P,",0),12),?67,$J($FN($G(ACR("28C4")),"P,",0),12)
  1.  W !,"D. Current Years Funds"
  1.  W !,"  1) Financial Asst",?28,$J($FN($G(ACR("28D11")),"P,",0),12),?41,$J($FN($G(ACR("28D12")),"P,",0),12),?54,$J($FN($G(ACR("28D13")),"P,",0),12),?67,$J($FN($G(ACR("28D14")),"P,",0),12)
  1.  W !,"  2) Direct Asst",?28,$J($FN($G(ACR("28D21")),"P,",0),12),?41,$J($FN($G(ACR("28D22")),"P,",0),12),?54,$J($FN($G(ACR("28D23")),"P,",0),12),?67,$J($FN($G(ACR("28D24")),"P,",0),12)
  1.  W !,"  3) Amt THIS ACTION",?28,$J($FN($G(ACR("28D31")),"P,",0),12),?41,$J($FN($G(ACR("28D32")),"P,",0),12),?54,$J($FN($G(ACR("28D33")),"P,",0),12),?67,$J($FN($G(ACR("28D34")),"P,",0),12)
  1.  W !,"E. Cumulative Awards"
  1.  W !,"  1) Financial Asst",?28,$J($FN($G(ACR("28E11")),"P,",0),12),?41,$J($FN($G(ACR("28E12")),"P,",0),12),?54,$J($FN($G(ACR("28E13")),"P,",0),12),?67,$J($FN($G(ACR("28E14")),"P,",0),12)
  1.  W !,"  2) Direct Asst",?28,$J($FN($G(ACR("28E21")),"P,",0),12),?41,$J($FN($G(ACR("28E22")),"P,",0),12),?54,$J($FN($G(ACR("28E23")),"P,",0),12),?67,$J($FN($G(ACR("28E24")),"P,",0),12)
  1.  W !,"  3) Amt THIS ACTION",?28,$J($FN($G(ACR("28E31")),"P,",0),12),?41,$J($FN($G(ACR("28E32")),"P,",0),12),?54,$J($FN($G(ACR("28E33")),"P,",0),12),?67,$J($FN($G(ACR("28E34")),"P,",0),12)
  1.  W !,"F. Unawarded Balance",?28,$J($FN($G(ACR("28F1")),"P,",0),12),?41,$J($FN($G(ACR("28F2")),"P,",0),12),?54,$J($FN($G(ACR("28F3")),"P,",0),12),?67,$J($FN($G(ACR("28F4")),"P,",0),12)
  1.  W !,"G. Carry Forward",?28,$J($FN($G(ACR("28G1")),"P,",0),12),?41,$J($FN($G(ACR("28G2")),"P,",0),12),?54,$J($FN($G(ACR("28G3")),"P,",0),12),?67,$J($FN($G(ACR("28G4")),"P,",0),12)
  1.  D PAUSE^ACRFWARN
  1.  D 81
  1.  W !,"29. Budget Detail by Approp"
  1.  W ?28,"| SERIVCES"
  1.  W ?41,"| FACILITIES"
  1.  W ?54,"| CONTRACT HLTH"
  1.  W ?67,"| ISD"
  1.  D 81
  1.  W !,"Appropriation No."
  1.  W ?28,$G(ACRAPP(5))
  1.  W ?41,$G(ACRAPP(6))
  1.  W ?54,$G(ACRAPP(7))
  1.  W ?67,$G(ACRAPP(8))
  1.  D 81
  1.  W !,"A. Fin Asst By Approp",?28,$J($FN($G(ACR("29A1")),"P,",0),12),?41,$J($FN($G(ACR("29A2")),"P,",0),12),?54,$J($FN($G(ACR("29A3")),"P,",0),12),?67,$J($FN($G(ACR("29A4")),"P,",0),12)
  1.  W !,"B. Dir Asst By Approp",?28,$J($FN($G(ACR("29B1")),"P,",0),12),?41,$J($FN($G(ACR("29B2")),"P,",0),12),?54,$J($FN($G(ACR("29B3")),"P,",0),12),?67,$J($FN($G(ACR("29B4")),"P,",0),12)
  1.  W !,"C. Fed Funds Approved",?28,$J($FN($G(ACR("29C1")),"P,",0),12),?41,$J($FN($G(ACR("29C2")),"P,",0),12),?54,$J($FN($G(ACR("29C3")),"P,",0),12),?67,$J($FN($G(ACR("29C4")),"P,",0),12)
  1.  W !,"D. Current Years Funds"
  1.  W !,"  1)) Financial Asst",?28,$J($FN($G(ACR("29D11")),"P,",0),12),?41,$J($FN($G(ACR("29D12")),"P,",0),12),?54,$J($FN($G(ACR("29D13")),"P,",0),12),?67,$J($FN($G(ACR("29D14")),"P,",0),12)
  1.  W !,"  2)) Direct Asst",?28,$J($FN($G(ACR("29D21")),"P,",0),12),?41,$J($FN($G(ACR("29D22")),"P,",0),12),?54,$J($FN($G(ACR("29D23")),"P,",0),12),?67,$J($FN($G(ACR("29D24")),"P,",0),12)
  1.  W !,"  3)) Amt THIS ACTION",?28,$J($FN($G(ACR("29D31")),"P,",0),12),?41,$J($FN($G(ACR("29D32")),"P,",0),12),?54,$J($FN($G(ACR("29D33")),"P,",0),12),?67,$J($FN($G(ACR("29D34")),"P,",0),12)
  1.  W !,"E. Cumulative Awards"
  1.  W !,"  1) Financial Asst",?28,$J($FN($G(ACR("29E11")),"P,",0),12),?41,$J($FN($G(ACR("29E12")),"P,",0),12),?54,$J($FN($G(ACR("29E13")),"P,",0),12),?67,$J($FN($G(ACR("29E14")),"P,",0),12)
  1.  W !,"  2) Direct Asst",?28,$J($FN($G(ACR("29E21")),"P,",0),12),?41,$J($FN($G(ACR("29E22")),"P,",0),12),?54,$J($FN($G(ACR("29E23")),"P,",0),12),?67,$J($FN($G(ACR("29E24")),"P,",0),12)
  1.  W !,"  3) Amt THIS ACTION",?28,$J($FN($G(ACR("29E31")),"P,",0),12),?41,$J($FN($G(ACR("29E32")),"P,",0),12),?54,$J($FN($G(ACR("29E33")),"P,",0),12),?67,$J($FN($G(ACR("29E34")),"P,",0),12)
  1.  W !,"F. Unawarded Balance",?28,$J($FN($G(ACR("29F1")),"P,",0),12),?41,$J($FN($G(ACR("29F2")),"P,",0),12),?54,$J($FN($G(ACR("29F3")),"P,",0),12),?67,$J($FN($G(ACR("29F4")),"P,",0),12)
  1.  W !,"G. Carry Forward",?28,$J($FN($G(ACR("29G1")),"P,",0),12),?41,$J($FN($G(ACR("29G2")),"P,",0),12),?54,$J($FN($G(ACR("29G3")),"P,",0),12),?67,$J($FN($G(ACR("29G4")),"P,",0),12)
  1.  Q
  1. 1 W ?40,"|"
  1.  Q
  1. 40 W $$DASH^ACRFMENU(40)
  1.  Q
  1. 41 W $$DASH1^ACRFMENU(39)
  1.  Q
  1. 81 W $$DASH^ACRFMENU
  1.  Q
  1. REMARKS ;PRINT REMARKS
  1.  Q
  1. TC ;PRINT TERMS AND CONDITIONS
  1.  Q