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

ENFAR4.m

Go to the documentation of this file.
  1. ENFAR4 ;WIRMFO/SAB-FIXED ASSET RPT, CAPITALIZED EQUIP FOR STATION; 3/11/96
  1. ;;7.0;ENGINEERING;**25**;Aug 17, 1993
  1. ; Capitalized Equipment List for STATION by CSN and CMR
  1. ;
  1. EN ;
  1. ; ask STATION
  1. S DIR(0)="F^3:5",DIR("A")="STATION NUMBER"
  1. S DIR("B")=$$GET1^DIQ(6910,"1,",1)
  1. D ^DIR K DIR G:$D(DIRUT) EXIT
  1. S ENSNR=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^ENFAR4",ZTDESC="Capitalized Equip for Station"
  1. . S ZTSAVE("ENSNR")=""
  1. . D ^%ZTLOAD,HOME^%ZIS K ZTSK
  1. QEN ; queued entry
  1. U IO
  1. ; collect and sort equipment
  1. K ^TMP($J)
  1. S ENSND=$$GET1^DIQ(6910,"1,",1) ; default station number
  1. S ENDA=0 F S ENDA=$O(^ENG(6914,ENDA)) Q:'ENDA D
  1. . Q:$P($G(^ENG(6914,ENDA,8)),U,2)'=1 ; not capitalized
  1. . S ENSN=$P($G(^ENG(6914,ENDA,9)),U,5) S:ENSN="" ENSN=ENSND
  1. . Q:ENSN'=ENSNR ; not station
  1. . S ENY2=$G(^ENG(6914,ENDA,2))
  1. . S X=$P(ENY2,U,9),ENCMR=$S(X:$E($P($G(^ENG(6914.1,X,0)),U),1,5),1:"")
  1. . Q:ENCMR="" ; not on a CMR
  1. . S ENCSNI=$P(ENY2,U,8)
  1. . S ENCSN=$S(ENCSNI:$P($G(^ENCSN(6917,ENCSNI,0)),U),1:"")
  1. . I ENCSN="" S (ENCSN,ENCSNI)="<null value>"
  1. . S ^TMP($J,ENCSN,ENCMR,ENDA)=""
  1. . I $D(^TMP($J,ENCSN))#10=0 S ^TMP($J,ENCSN)=ENCSNI
  1. ; generate output
  1. K ENT
  1. S (END,ENPG)=0 D NOW^%DTC S Y=% D DD^%DT S ENDT=Y
  1. S ENL="",$P(ENL,"-",IOM)=""
  1. S ENCSN="" D HD
  1. I 'END F S ENCSN=$O(^TMP($J,ENCSN)) Q:ENCSN="" D Q:END
  1. . ; category stock number
  1. . S ENC="0^0" ; initialize CSN count and value
  1. . S ENCSNI=$P($G(^TMP($J,ENCSN)),U)
  1. . I $Y+4>IOSL D HD Q:END
  1. . W !! W:ENCSNI $P($G(^ENCSN(6917,ENCSNI,0)),U,3) W " (CSN: ",ENCSN,")"
  1. . S ENCMR="" F S ENCMR=$O(^TMP($J,ENCSN,ENCMR)) Q:ENCMR="" D Q:END
  1. . . ; cmr
  1. . . S ENDA=0 F S ENDA=$O(^TMP($J,ENCSN,ENCMR,ENDA)) Q:'ENDA D Q:END
  1. . . . ; equipment item
  1. . . . I $Y+8>IOSL D HD Q:END D HDCSN
  1. . . . S ENY2=$G(^ENG(6914,ENDA,2))
  1. . . . S X=$P($G(^ENG(6914,ENDA,8)),U,6)
  1. . . . S ENSGL=$S(X:$P($G(^ENG(6914.3,X,0)),U),1:"")
  1. . . . W !!,?2,ENDA ; equipment id
  1. . . . W ?13,$P(ENY2,U,7) ; NXRN
  1. . . . W ?22,$E($P(ENY2,U,4),4,5),?24,"/",$E($P(ENY2,U,4),2,3) ; acq date
  1. . . . W ?28,ENSGL ; sgl
  1. . . . W ?33,$J("$"_$FN($P(ENY2,U,3),",",2),14) ; asset value
  1. . . . W ?48,$P(ENY2,U,6) ; le
  1. . . . W ?51,$E($P(ENY2,U,10),4,5),?53,"/",$E($P(ENY2,U,10),2,3) ; repl
  1. . . . W ?57,$E($P($G(^ENG(6914,ENDA,1)),U,3),1,16) ; serial #
  1. . . . W ?74,ENCMR ; cmr
  1. . . . S ENPM=$P($G(^ENG(6914,ENDA,3)),U,6)
  1. . . . W:ENPM]"" !,?4,"PM: ",ENPM
  1. . . . S ENMAN=$E($$GET1^DIQ(6914,ENDA_",",1),1,30)
  1. . . . W:ENMAN]"" !,?4,"Manf: ",ENMAN
  1. . . . S ENMOD=$P($G(^ENG(6914,ENDA,1)),U,2)
  1. . . . W:ENMOD]"" !,?4,"Model: ",ENMOD
  1. . . . S:ENSGL="" ENSGL="<null>"
  1. . . . S $P(ENT(ENSGL),U)=$P($G(ENT(ENSGL)),U)+1
  1. . . . S $P(ENT(ENSGL),U,2)=$P($G(ENT(ENSGL)),U,2)+$P(ENY2,U,3)
  1. . . . S $P(ENC,U)=$P($G(ENC),U)+1
  1. . . . S $P(ENC,U,2)=$P($G(ENC),U,2)+$P(ENY2,U,3)
  1. . Q:END
  1. . W !,?16,"(CSN TOTAL",?27,$J("#"_$P(ENC,U),3)
  1. . W ?33,$J("$"_$FN($P(ENC,U,2),",",2),14),")"
  1. I 'END D
  1. . ; report footer
  1. . S ENSGL="",ENC=0 F S ENSGL=$O(ENT(ENSGL)) Q:ENSGL="" S ENC=ENC+1
  1. . I $Y+ENC+6>IOSL D HD Q:END
  1. . W !,ENL,!,"TOTALS",?19,"COUNT",?27,"ASSET VALUE"
  1. . S ENT="0^0"
  1. . S ENSGL="" F S ENSGL=$O(ENT(ENSGL)) Q:ENSGL="" D
  1. . . W !,?8,"SGL ",ENSGL
  1. . . W ?19,$J($P(ENT(ENSGL),U),5)
  1. . . W ?27,"$",$J($FN($P(ENT(ENSGL),U,2),",",2),15)
  1. . . S $P(ENT,U)=$P(ENT,U)+$P(ENT(ENSGL),U)
  1. . . S $P(ENT,U,2)=$P(ENT,U,2)+$P(ENT(ENSGL),U,2)
  1. . W !,?19,"-----",?27,"----------------"
  1. . W !,?5,"REPORT TOTAL"
  1. . W ?19,$J($P(ENT,U),5)
  1. . W ?27,"$",$J($FN($P(ENT,U,2),",",2),15)
  1. . I $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 ^TMP($J)
  1. K DIR,DIROUT,DIRUT,DIWF,DIWL,DTOUT,DUOUT,X,Y
  1. K ENC,ENCMR,ENCMRI,ENCSN,ENCSNI,ENDA,ENMAN,ENMOD,ENPM,ENSGL
  1. K ENSN,ENSND,ENSNR,ENT,ENY2
  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 !,"CAPITALIZED EQUIPMENT BY CSN FOR STATION: ",ENSNR
  1. W ?48,ENDT,?72,"page ",ENPG
  1. W !!,?2,"EQUIP ID #",?13,"NXRN",?22,"ACQ",?28,"SGL",?33,"ASSET VALUE"
  1. W ?48,"LE",?51,"REPL",?57,"SERIAL NUMBER",?74,"CMR"
  1. W !,?2,$E(ENL,1,10),?13,$E(ENL,1,8),?22,$E(ENL,1,5),?28,$E(ENL,1,4)
  1. W ?33,$E(ENL,1,14),?48,$E(ENL,1,2),?51,$E(ENL,1,5),?57,$E(ENL,1,16)
  1. W ?74,$E(ENL,1,5)
  1. Q
  1. HDCSN ; header for continued CSN
  1. I $G(ENCSN)]"" D
  1. . W ! W:$G(ENCSNI) $P($G(^ENCSN(6917,ENCSNI,0)),U,3)
  1. . W " (CSN: ",ENCSN," continued)"
  1. Q
  1. ;ENFAR4