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

ENFARB.m

Go to the documentation of this file.
  1. ENFARB ;WIRMFO/SAB-FIXED ASSET RPT, SUMMARY OF SGL $ BALANCES; 12/16/96
  1. ;;7.0;ENGINEERING;**39**;Aug 17, 1993
  1. ; Summary of $ Balances by Station, [Fund,] and SGL
  1. EN ;
  1. ; ask for period (month/year)
  1. S DIR(0)="D^::E^K:($E(Y,4,5)=""00"")!($E(Y,1,5)>$E(DT,1,5)) X"
  1. S DIR("A")="Enter month of desired closing balances"
  1. S X("Y")=$E(DT,1,3),X("M")=$E(DT,4,5)
  1. S X=$S(X("M")="01":(X("Y")-1)_"12",1:X("Y")_$E("00",1,2-$L(X("M")-1))_(X("M")-1))_"00"
  1. S DIR("B")=$$FMTE^XLFDT(X)
  1. K X
  1. S DIR("?",1)="Month and year are required and future dates are invalid."
  1. S DIR("?",2)="This date will be used to select the closing balances"
  1. S DIR("?",3)="that will be shown on the output."
  1. S DIR("?",4)=" "
  1. S DIR("?")="Enter the month and year."
  1. D ^DIR K DIR G:$D(DIRUT) EXIT
  1. S ENDTR=$E(Y,1,5)_"00" ; month to report
  1. ; ask type of breakdown
  1. S DIR(0)="Y",DIR("A")="Report SGL totals by Fund"
  1. S DIR("B")="YES"
  1. D ^DIR K DIR G:$D(DIRUT) EXIT
  1. S ENBYFUND=Y
  1. ; ask device
  1. S %ZIS="QM" D ^%ZIS G:POP EXIT
  1. I $D(IO("Q")) D G EXIT
  1. . S ZTRTN="QEN^ENFARB"
  1. . S ZTSAVE("ENDTR")="",ZTSAVE("ENBYFUND")=""
  1. . S ZTDESC="FAP $ Balances"
  1. . D ^%ZTLOAD,HOME^%ZIS K ZTSK
  1. QEN ; queued entry
  1. U IO
  1. COLLECT ; collect data
  1. S END=0 K ENT
  1. I 'ENBYFUND S ENFUND="all"
  1. ; loop thru stations
  1. S ENI(1)=0 F S ENI(1)=$O(^ENG(6915.9,ENI(1))) Q:'ENI(1) D
  1. . S ENSN=$$GET1^DIQ(6915.9,ENI(1)_",",.01)
  1. . ; loop thru funds
  1. . S ENI(2)=0 F S ENI(2)=$O(^ENG(6915.9,ENI(1),1,ENI(2))) Q:'ENI(2) D
  1. . . S:ENBYFUND ENFUND=$$GET1^DIQ(6915.91,ENI(2)_","_ENI(1)_",",.01)
  1. . . ; loop thru standard general ledgers
  1. . . S ENI(3)=0
  1. . . F S ENI(3)=$O(^ENG(6915.9,ENI(1),1,ENI(2),1,ENI(3))) Q:'ENI(3) D
  1. . . . S ENSGL=$$GET1^DIQ(6915.911,ENI(3)_","_ENI(2)_","_ENI(1)_",",.01)
  1. . . . S ENBAL=$$GETBAL^ENFABAL(ENI(1),ENI(2),ENI(3),ENDTR)
  1. . . . S:ENBAL>0 ENT(ENSN,ENFUND,ENSGL)=$G(ENT(ENSN,ENFUND,ENSGL))+ENBAL
  1. PRINT ; print results
  1. S ENPG=0 D NOW^%DTC S Y=% D DD^%DT S ENDT=Y
  1. S ENDTR("E")=$$FMTE^XLFDT(ENDTR)
  1. S ENL="",$P(ENL,"-",IOM)=""
  1. S ENSN="" F S ENSN=$O(ENT(ENSN)) Q:ENSN="" D Q:END
  1. . D HD Q:END
  1. . S ENTS="0^0" ; initialize station totals
  1. . S ENFUND="" F S ENFUND=$O(ENT(ENSN,ENFUND)) Q:ENFUND="" D Q:END
  1. . . S ENTF="0^0" ; initialize fund totals
  1. . . S ENSGL=""
  1. . . F S ENSGL=$O(ENT(ENSN,ENFUND,ENSGL)) Q:ENSGL="" D Q:END
  1. . . . I $Y+4>IOSL D HD Q:END
  1. . . . W !,?12,ENFUND,?22,ENSGL
  1. . . . W ?30,"$",$J($FN($P(ENT(ENSN,ENFUND,ENSGL),U),",",2),16)
  1. . . . S $P(ENTF,U)=$P(ENTF,U)+$P(ENT(ENSN,ENFUND,ENSGL),U)
  1. . . Q:END
  1. . . S $P(ENTS,U)=$P(ENTS,U)+$P(ENTF,U)
  1. . . Q:'ENBYFUND
  1. . . I $Y+5>IOSL D HD Q:END
  1. . . W !,?30,"-----------------"
  1. . . W !,?30,"$",$J($FN($P(ENTF,U),",",2),16),!
  1. . Q:END
  1. . I $Y+5>IOSL D HD Q:END
  1. . W !,?30,"-----------------"
  1. . W !,?16,"STATION TOTAL"
  1. . W ?30,"$",$J($FN($P(ENTS,U),",",2),16)
  1. I 'END,$E(IOST,1,2)="C-" S DIR(0)="E" D ^DIR K DIR
  1. D ^%ZISC
  1. EXIT I $D(ZTQUEUED) S ZTREQ="@"
  1. K DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
  1. K ENBAL,ENBYFUND,ENDA,ENDTR,ENFUND,ENI,ENSGL,ENSN,ENT,ENTF,ENTS
  1. K END,ENDT,ENL,ENPG
  1. Q
  1. HD ; header
  1. I $D(ZTQUEUED),$$S^%ZTLOAD S ZTSTOP=1,END=1 Q
  1. I $E(IOST,1,2)="C-",ENPG S DIR(0)="E" D ^DIR K DIR I 'Y S END=1 Q
  1. I $E(IOST,1,2)="C-"!ENPG W @IOF
  1. S ENPG=ENPG+1
  1. W !,ENDTR("E")," ",$S($E(ENDTR,1,5)=$E(DT,1,5):"CURRENT",1:"CLOSING")
  1. W " BALANCES FOR STATION: ",ENSN
  1. W ?49,ENDT,?72,"page ",ENPG
  1. W !,ENL
  1. W !!,?20,"STANDARD",?30,"TOTAL"
  1. W !,?20,"GENERAL",?30,"ASSET"
  1. W !,?12,"FUND",?20,"LEDGER",?30,"VALUE"
  1. W !,?12,"------",?20,"--------",?30,"-----------------"
  1. Q
  1. ;ENFARB