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

ACRFDTP2.m

Go to the documentation of this file. 
  1. ACRFDTP2 ;IHS/OIRM/DSD/THL,AEF - SET VARIABLES AND DISPLAY FINANCIAL DATA-ROUTINE 2;  [ 11/01/2001   9:44 AM ]
  1.  ;;2.1;ADMIN RESOURCE MGT SYSTEM;;NOV 05, 2001
  1.  ;;CONTINUATION OF ACRFDTP
  1.  ;;SET VARIABLES AND DISPLAY FINANCIAL DATA
  1. EN ;EP;
  1.  Q:$D(ACRTRN)
  1.  S ACRFDNY=ACRY
  1.  S (ACRFD,ACRDISDA,ACRFDNDA)=DA
  1.  S ACRFDX=@ACRGREF@(DA,0)
  1.  S ACRFTOT=$P(ACRFDX,U,10)
  1.  S ACRFDX=$P(ACRFDX,U)
  1.  D TOT^ACRFDTP5
  1.  ;;ACRFD=DFN OF THE ENTRY
  1.  ;;ACRDISDA      "
  1.  ;;ACRFDNDA      "
  1.  ;;ACRFDX=TOTAL IN THE DISTRIBUTION
  1.  ;;ACRGREF=GLOBAL NODE OF FUNDS SELECTED
  1.  ;;ACRFTOT=TOTAL DISTRIBUTED
  1.  D AMEND^ACRFDTP5
  1.  S ACRFDNAM=ACRFDX
  1.  S ACRFDNDD=ACRFDX-ACRFTOT
  1.  ;;ACRFDNAM=TOTAL IN THE DISTRIBUTION
  1.  ;;ACRDNDD=UNDISTRIBUTED FUNDS
  1.  S ACRFDNPD=$P($S(ACRFDX>0:ACRFTOT/ACRFDX*100,ACRFTOT>0:100,1:0),".")
  1.  S:ACRFDNPD<0 ACRFDNPD=0
  1.  S ACRFDNPD=ACRFDNPD_"%"
  1.  ;;ACRFDNPD=PERCENT OF DISTRIBUTED
  1.  S ACRFRM=$P($S(ACRFDX>0:((ACRFDX-ACRFTOT)/ACRFDX)*100,ACRFDX>0:100,1:0),".")
  1.  S:ACRFRM<0 ACRFRM=0
  1.  S ACRFRM=ACRFRM_"%"
  1.  ;;ACRFRM=PERCENT OF REMAINING
  1.  S ACRFDNDT=$G(@ACRGREF@(DA,"DT"))
  1.  ;;ACRFDNDT=VARIALBE CONTAINING ADDITIONAL INFO ON THE DISTRIBUTION
  1.  S ACRFDNFY=$S($P(ACRFDNDT,U)]"":$P(ACRFDNDT,U),1:"")
  1.  S ACRFDNQ=$S($P(ACRFDNDT,U,2)]"":$P(ACRFDNDT,U,2),1:"")
  1.  S ACRFDNRC=$S($P(ACRFDNDT,U,3)]"":$P(ACRFDNDT,U,3),1:"")
  1.  ;;ACRFDNFY=FISCAL YEAR
  1.  ;;ACRFDNQ=QUARTER
  1.  ;;ACRFDNRC=RECURRING OR NON-RECURRING
  1.  S:ACRFDNRC]"" ACRFDNRC=$S($E(ACRFDNRC)="R":"RECURRING",1:"NON-RECRNG")
  1.  S ACRAPPDA=$S($P(ACRFDNDT,U,4)]"":$P(ACRFDNDT,U,4),1:"")
  1.  ;;ACRAPPDA=DFN OF THE APPROPRIATION
  1.  S:ACRAPPDA]"" ACRFDNAP=$P(^AUTTPRO(ACRAPPDA,0),U)
  1.  ;;ACRFDNAP=APPROPRIATION NUMBER
  1.  I ACRENTR1'["APP" D  I 1
  1.  .S ACRALWDA=$S($P(ACRFDNDT,U,5)]"":$P(ACRFDNDT,U,5),1:"")
  1.  .S:ACRALWDA ACRFDNAL=$P(^AUTTALLW(ACRALWDA,0),U)
  1.  E  S ACRFDNAL=""
  1.  ;;ACRALWDA=DFN OF THE ALLOWANCE
  1.  ;;ACRFDNAL=ALLOWANCE NUMBER
  1.  I ACRENTR1'["APP"&(ACRENTR1'["ALW") D  I 1
  1.  .S ACRSSADA=$S($P(ACRFDNDT,U,8)]"":$P(ACRFDNDT,U,8),1:"")
  1.  .S:ACRSSADA ACRFDNSA=$P(^AUTTSSA(ACRSSADA,0),U)
  1.  E  S ACRFDNSA=""
  1.  ;;ACRSSADA=DFN OF THE SUB-SUB-ACTIVITY
  1.  ;;ACRFDNSA=SUB-SUB-ACTIVITY
  1.  I ACRENTR1'["APP"&(ACRENTR1'["ALW") D  I 1
  1.  .S ACRFDNCA=$S($P(ACRFDNDT,U,9)]"":$P(ACRFDNDT,U,9),1:"")
  1.  .I ACRFDNCA D
  1.  ..S ACRFDNCA=$P(^AUTTCAN(ACRFDNCA,0),U)
  1.  ..S ACRLCODE=$E(ACRFDNCA,4,5)
  1.  E  S ACRFDNCA=""
  1.  ;;ACRFDNCA=CAN NUMBER
  1.  I $D(@ACRGREF@(DA,"BA")) S ACRFDNAC=@ACRGREF@(DA,"BA")
  1.  E  S ACRFDNAC="0^0^0"
  1.  ;;ACRFDNAC=VARIABLE CONTAINS SUMMARY OF FUNDS BALANCE
  1.  S ACRFDNRQ=$S($P(ACRFDNAC,U,2)]"":$P(ACRFDNAC,U,2),1:0)
  1.  ;;ACRFDNRQ=TOTAL REQUESTED
  1.  S ACRFDNSP=$S($P(ACRFDNAC,U,3)]"":$P(ACRFDNAC,U,3),1:0)
  1.  ;;ACRFDNSP=TOTAL SPENT
  1.  S ACRFDNOB=$S($P(ACRFDNAC,U,5)]"":$P(ACRFDNAC,U,5),1:0)
  1.  ;;ACRFDNOB=TOTAL OBLIGATED
  1.  S ACRFDNBA=ACRFDX-ACRFDNSP
  1.  S ACRFDNUR=ACRFDX-ACRFDNRQ
  1.  S ACRFDNUO=ACRFDX-ACRFDNOB
  1.  ;;ACRFDNBA=TOTAL IN ACCOUNT-TOTAL SPENT
  1.  ;;ACRFDNUR=TOTAL IN ACCOUNT-TOTAL UNREQUESTED
  1.  ;;ACRFDNUO=TOTAL IN ACCOUNT-TOTAL OBLIGATED
  1.  D EOY^ACRFEOY
  1.  S ACRYRM=ACRYRM_"%"
  1.  ;;ACRYRM=PERCENT OF CURRENT FISCAL YEAR REMAINING
  1.  Q
  1. SUBHEAD ;EP;TO DISPLAY FINANCIAL DATA
  1.  I $D(ACRDISDA) D  Q
  1.  .S DA=ACRDISDA
  1.  .N ACRGREF,ACRY
  1.  .D SET
  1.  .D EN
  1.  .D SUBHEAD1
  1. SUBHEAD1 I $D(ACRNODIS) K ACRNODIS Q
  1.  ;;ACRNODIS CONTROLS DISPLAY OR NO DISPLAY OF DISTRIBUTION
  1.  W !!?10,"Selected ",ACRFDNY
  1.  W ?$X+3,"(Number ",@ACRON,ACRFDNDA,@ACROF,")"
  1.  I $D(ACRFD0),$P(ACRFD0,U,12)]"" W ?$X+2,$P(ACRFD0,U,12)
  1. SUBSET ;EP;
  1.  S ACRFDNQT=$S(ACRFDNQ=1:"  FIRST",ACRFDNQ=2:" SECOND",ACRFDNQ=3:"  THIRD",1:" FOURTH")
  1.  ;;ACRFDQT=FISCAL YEAR QUARTER
  1.  ;;THE NEXT SET OF VARIABLES (ACR0-ACR17) ARE USED FOR DISPLAY OF
  1.  ;;DISTRIBUTION
  1.  S ACR0="!,""ALLOWANCE:"",@ACRON,$J($FN(ACRFDX,""P"",0),11),@ACROF"
  1.  S ACR14="!,""% UNCOMTD:"",@ACRON,$J(ACRFRM,11),@ACROF"
  1.  S ACR141="?$X+1,""% DSTBD:"",@ACRON,$J(ACRFDNPD,11),@ACROF"
  1.  S ACR15="?$X+1,""%FY RMG:"",@ACRON,$J(ACRYRM,11),@ACROF"
  1.  S ACR1="?$X+1,""DISTRBD:"",@ACRON,$J($FN(ACRFTOT,""P"",0),11),@ACROF"
  1.  S ACR2="!,""COMMITTED:"",@ACRON,$J($FN(ACRFDNRQ,""P"",0),11),@ACROF"
  1.  S ACR16="?$X+1,""OBLGATD:"",@ACRON,$J($FN(ACRFDNOB,""P"",0),11),@ACROF"
  1.  S ACR3="?$X+1,""  SPENT:"",@ACRON,$J($FN(ACRFDNSP,""P"",0),11),@ACROF"
  1.  S ACR4="?$X+1,""UNDSTRD:"",@ACRON,$J($FN(ACRFDNDD,""P"",0),11),@ACROF"
  1.  S ACR5="!,""UNCOMMTTD:"",@ACRON,$J($FN(ACRFDNUR,""P"",0),11),@ACROF"
  1.  S ACR17="?$X+1,""UNOBLTD:"",@ACRON,$J($FN(ACRFDNUO,""P"",0),11),@ACROF"
  1.  S ACR6="?$X+1,""UNSPENT:"",@ACRON,$J($FN(ACRFDNBA,""P"",0),11),@ACROF"
  1.  S ACR8="!?2,""QUARTER:"",@ACRON,$J(ACRFDNQT,11),@ACROF"
  1.  S ACR9="?$X+1,$J(""FY:"",8),@ACRON,$J(ACRFDNFY,11),@ACROF"
  1.  S ACR10="?$X+1,$J(""RECURRG:"",8),@ACRON,$J(ACRFDNRC,11),@ACROF"
  1.  I $G(ACRFDNAP)]"" S ACR11="!,""APPROP NO:"",@ACRON,$J(ACRFDNAP,11),@ACROF"
  1.  E  S ACR11="!?$X"
  1.  I $G(ACRFDNAL)]"" S ACR12="?$X+1,$J(""ALLOWNC:"",8),@ACRON,$J(ACRFDNAL,11),@ACROF"
  1.  E  S ACR12="?$X"
  1.  I $G(ACRFDNSA)]"" S ACR13="?$X+1,$J(""SUB-SUB:"",8),@ACRON,$J(ACRFDNSA,11),@ACROF"
  1.  E  S ACR13="?$X"
  1.  I '$D(ACRDISDX) F ACRI=ACR0,ACR1,ACR4,ACR14,ACR141,ACR15,ACR2,ACR16,ACR3,ACR5,ACR17,ACR6,ACR11,ACR12,ACR13 W @ACRI
  1.  Q
  1. SET S ACRGREF=$P($P(ACRDATA1,";;",3),"(")
  1.  S (ACRY,ACRTYPS)=$P(ACRDATA1,";;",2)
  1.  ;ACRGREF GLOBAL NODE OF FUNDS SELECTED
  1.  Q