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

ASURMBSP.m

Go to the documentation of this file. 
  1. ASURMBSP ; IHS/ITSC/LMH -PRINT BALANCE SHEETS ; 
  1.  ;;4.2T2;Supply Accounting Mgmt. System;;JUN 30, 2000
  1.  ;This routine formats and prints the Balance Sheet report
  1. EN1 ;
  1.  I '$D(DUZ(2)) W !,"Report must be run from Kernel option" Q
  1.  I '$D(IO) D HOME^%ZIS
  1.  D:'$D(U) ^XBKVAR
  1.  D:'$D(ASUK("DT","FM")) DATE^ASUUDATE
  1.  I '$D(ASUL(1,"AR","AP")) D SETAREA^ASULARST
  1.  S ASUK("PTRSEL")=$G(ASUK("PTRSEL"))
  1.  I ASUK("PTRSEL")']"" D
  1.  .S ZTRTN="PSER^ASUMBSP",ZTDESC="SAMS BALANCE SHEETS" D O^ASUUZIS
  1.  .I POP S IOP=$I D ^%ZIS
  1.  I '$D(ASUK(ASUK("PTR"),"Q")) Q
  1.  I ASUK(ASUK("PTR"),"Q") Q
  1. PSER ;EP;FOR TASKMAN QUEUE OF PRINT
  1.  D U^ASUUZIS
  1.  S ASUC("LN")=IOSL+1,ASUC("PG")=2
  1.  D ASUMBSP1,ASUMBSP2 S ASUMC=3 D ASUMBSP3 S ASUMC=4 D ASUMBSP3
  1.  K ASUX
  1.  I ASUK("PTRSEL")]"" Q
  1.  D C^ASUUZIS
  1.  Q
  1. EN2 ;EP ; SELECT DATE
  1.  W !,"ENTER BALANCE SHEET DATE"
  1.  D ASKDATE^ASUUDATE
  1.  G EN1
  1. ASUMBSP1 ;
  1.  S ASUT="BAL"
  1.  S ASUMC("ACC")=0,ASUX("TOT")=""
  1.  D HDR1
  1.  F  S ASUMC("ACC")=$O(^ASUMC(ASUL(2,"STA","E#"),1,ASUK("DT","FYM#"),1,ASUMC("ACC"))) Q:ASUMC("ACC")'?1N.N  D
  1.  .N X,Y
  1.  .S X=^ASUMC(ASUL(2,"STA","E#"),1,ASUK("DT","FYM#"),1,ASUMC("ACC"),0)
  1.  .S ASUT(0)=$P(X,U,2)
  1.  .S ASUT(0)=ASUT(0)_U_($P(X,U,3)+$P(X,U,4)+$P(X,U,5))
  1.  .S ASUT(0)=ASUT(0)_U_($P(X,U,6)+$P(X,U,7)+$P(X,U,8))
  1.  .S ASUT(0)=ASUT(0)_U_$P(X,U,9)
  1.  .S ASUT(0)=ASUT(0)_U_$P(X,U,10)_U_$P(X,U,11)_U
  1.  .F Y=1:1:4 S $P(ASUT(0),U,7)=$P(ASUT(0),U,7)+$P(ASUT(0),U,Y)
  1.  .S $P(ASUT(0),U,7)=$P(ASUT(0),U,7)-$P(ASUT(0),U,5)
  1.  .W !!,"125.",ASUMC("ACC")
  1.  .N X F X=1:1:6 D
  1.  ..S Y=$P(ASUT(0),U,X),Y=$S(Y']"":Y,Y=0:"",1:$J($FN(Y,"P,",2),12))
  1.  ..W ?X*15,Y
  1.  ..S $P(ASUX("TOT"),U,X)=$P(ASUX("TOT"),U,X)+$P(ASUT(0),U,X)
  1.  .W:$P(ASUT(0),U,7)'=0 ?105,"**",$J($FN($P(ASUT(0),U,7),"P,",2),12),"OUTBAL**"
  1.  D DASH
  1.  W !,"TOTAL"
  1.  F X=1:1:5 D
  1.  .S Y=$P(ASUX("TOT"),U,X),Y=$S(Y']"":Y,1:$J($FN(Y,"P,",2),12))
  1.  .W ?X*15,Y
  1.  Q
  1. HDR1 ;
  1.  D CLS^ASUUHDG
  1.  W "SAMS MONTHLY BALANCE SHEET -ACCOUNT BALANCES",?60,ASUK("DT","MONTH")," ",ASUK("DT","YEAR"),?100,"PAGE 1",!!
  1.  W "ACCT#          OPENING BALANCE   RECEIPTS         ISSUES      ADJUSTMENTS  CLOSING BALANCE DIRECT ISSUES"
  1. DASH ;
  1.  W !,"_____            ____________   ____________   ____________   ____________   ____________   ____________",!!
  1.  Q
  1. ASUMBSP2 ;
  1.  S (ASUMC("VOU"),ASUX("TOT"))=0,ASUC("LN")=ASUK(ASUK("PTR"),"IOSL")+1
  1.  F  S ASUMC("VOU")=$O(^ASUMC(ASUL(2,"STA","E#"),1,ASUK("DT","FYM#"),2,ASUMC("VOU"))) Q:ASUMC("VOU")'?1N.N  D
  1.  .S ASUT(ASUT,"VOU")=$P(^ASUMC(ASUL(2,"STA","E#"),1,ASUK("DT","FYM#"),2,ASUMC("VOU"),0),U)
  1.  .S ASUC("LN")=ASUC("LN")+1 D:ASUC("LN")>ASUK(ASUK("PTR"),"IOSL") HDR2
  1.  .W !,ASUT(ASUT,"VOU")
  1.  .S Z=0
  1.  .F X=1:1:5,9 D
  1.  ..S Z=Z+1
  1.  ..S ASUT(0)=$G(^ASUMC(ASUL(2,"STA","E#"),1,ASUK("DT","FYM#"),2,ASUMC("VOU"),1,X,0))
  1.  ..S Y=$J($FN($P(ASUT(0),U,2),",",2),12)
  1.  ..W:Y'["0.00" ?Z*15,Y
  1.  ..S $P(ASUX("TOT"),U,X)=$P(ASUX("TOT"),U,X)+$P(ASUT(0),U,2)
  1.  D DASH2
  1.  W !,"TOTAL"
  1.  S Z=0
  1.  F X=1:1:5,9 D
  1.  .S Z=Z+1
  1.  .S Y=$P(ASUX("TOT"),U,X),Y=$S(Y']"":Y,0=+Y:"",1:$J($FN(Y,",",2),12))
  1.  .W ?Z*15,Y
  1.  Q
  1. HDR2 ;
  1.  D CLS^ASUUHDG
  1.  W "SAMS MONTHLY BALANCE SHEET - RECEIPT VOUCHERS",?60,ASUK("DT","MONTH")," ",ASUK("DT","YEAR"),?100,"PAGE ",ASUC("PG"),!!
  1.  W "VOUCHER #           125.1          125.2          125.3          125.4          125.5          125.9"
  1.  S ASUC("PG")=ASUC("PG")+1,ASUC("LN")=3
  1. DASH2 ;
  1.  W !,"____________     ____________   ____________   ____________   ____________   ____________   ____________",!!
  1.  Q
  1. ASUMBSP3 ;
  1.  S (ASUMC("CAN"),ASUX("TOT"))=0,ASUC("LN")=ASUK(ASUK("PTR"),"IOSL")+1
  1.  F  S ASUMC("CAN")=$O(^ASUMC(ASUL(2,"STA","E#"),1,ASUK("DT","FYM#"),ASUMC,ASUMC("CAN"))) Q:ASUMC("CAN")'?1N.N  D
  1.  .S ASUT(ASUT,"CAN")=$P(^ASUMC(ASUL(2,"STA","E#"),1,ASUK("DT","FYM#"),ASUMC,ASUMC("CAN"),0),U)
  1.  .S ASUC("LN")=ASUC("LN")+1 D:ASUC("LN")>ASUK(ASUK("PTR"),"IOSL") HDR3
  1.  .W !,$S(ASUT(ASUT,"CAN")=" ":"UNKNOWN",1:ASUT(ASUT,"CAN"))
  1.  .S Z=0,ASUX=0
  1.  .F X=1:1:5,9 D
  1.  ..S Z=Z+1
  1.  ..S ASUT(0)=$G(^ASUMC(ASUL(2,"STA","E#"),1,ASUK("DT","FYM#"),ASUMC,ASUMC("CAN"),1,X,0))
  1.  ..S Y=$J($FN($P(ASUT(0),U,2),"P,",2),12)
  1.  ..W:Y'["0.00" ?Z*15,Y
  1.  ..S $P(ASUX("TOT"),U,X)=$P(ASUX("TOT"),U,X)-$P(ASUT(0),U,2)
  1.  ..S ASUX=ASUX-$P(ASUT(0),U,X)
  1.  .W ?105,$J($FN(ASUX,"P,",2),12)
  1.  D DASH3
  1.  W !,"TOTAL"
  1.  S Z=0,ASUX=0
  1.  F X=1:1:5,9 D
  1.  .S Z=Z+1
  1.  .S Y=$P(ASUX("TOT"),U,X),Y=$S(Y']"":Y,Y=0:"",1:$J($FN(Y,",",2),12))
  1.  .W:Z'="0.00" ?Z*15,Y
  1.  .S ASUX=ASUX+$P(ASUX("TOT"),U,X)
  1.  W ?105,$J($FN(ASUX,",",2),12)
  1.  Q
  1. HDR3 ;
  1.  D CLS^ASUUHDG
  1.  W "SAMS MONTHLY BALANCE SHEET -",$S(ASUMC=3:"ISS",1:"DIR")," CANS ",?60,ASUK("DT","MONTH")," ",ASUK("DT","YEAR"),?100,"PAGE ",ASUC("PG"),!!
  1.  W "CAN NUMBER          125.1          125.2          125.3          125.4          125.5          125.9        TOTAL"
  1.  S ASUC("PG")=ASUC("PG")+1,ASUC("LN")=3
  1. DASH3 ;
  1.  W !,"____________     ____________   ____________   ____________   ____________   ____________   ____________   ____________",!!
  1.  Q