- ENFAR2 ;WIRMFO/SAB-FIXED ASSET RPT, CAPITALIZED EQUIPMENT SUMMARY; 7/19/96
- ;;7.0;ENGINEERING;**25,33**;Aug 17, 1993
- ; Summary of Capitalized NX Equipment Assets by Station, Fund, SGL
- EN ;
- ; ask type of breakdown
- S DIR(0)="Y",DIR("A")="Report SGL totals by Fund"
- S DIR("B")="YES"
- D ^DIR K DIR G:$D(DIRUT) EXIT
- S ENBYFUND=Y
- ; ask device
- W !!,"This report searches the entire equipment file and may take some"
- W !,"time to complete. Consider queuing this report to run after-hours."
- S %ZIS="QM" D ^%ZIS G:POP EXIT
- I $D(IO("Q")) D G EXIT
- . S ZTRTN="QEN^ENFAR2",ZTSAVE("ENBYFUND")=""
- . S ZTDESC="Capitalized NX Equip. Summary for Station"
- . D ^%ZTLOAD,HOME^%ZIS K ZTSK
- QEN ; queued entry
- U IO
- ; collect data
- S (ENC,END)=0 K ENT
- S ENSND=$$GET1^DIQ(6910,"1,",1) S:ENSND="" ENSND="Unk" ; default station
- I 'ENBYFUND S ENFUND="all"
- S ENDA=0 F S ENDA=$O(^ENG(6914,ENDA)) Q:'ENDA D Q:END
- . S ENC=ENC+1
- . I '(ENC#500),$D(ZTQUEUED),$$S^%ZTLOAD S ZTSTOP=1,END=1 Q
- . S ENY8=$G(^ENG(6914,ENDA,8))
- . Q:$P(ENY8,U,2)'=1 ; not capitalized
- . Q:$P($G(^ENG(6914,ENDA,3)),U,11)]"" ; disposition date exists
- . Q:$P($G(^ENG(6914,ENDA,0)),U,4)'="NX" ; not NX
- . S ENY9=$G(^ENG(6914,ENDA,9))
- . S ENSN=$P(ENY9,U,5) S:ENSN="" ENSN=ENSND
- . I ENBYFUND S X=$P(ENY9,U,7),ENFUND=$S(X:$P($G(^ENG(6914.6,X,0)),U),1:"<null>")
- . S ENSGL=$$GET1^DIQ(6914,ENDA_",",38) I ENSGL="" S ENSGL="<null>"
- . S:ENSGL="" ENSGL="<null>" ; for dangling pointers
- . S $P(ENT(ENSN,ENFUND,ENSGL),U)=$P($G(ENT(ENSN,ENFUND,ENSGL)),U)+1 ; count
- . S $P(ENT(ENSN,ENFUND,ENSGL),U,2)=$P($G(ENT(ENSN,ENFUND,ENSGL)),U,2)+$P($G(^ENG(6914,ENDA,2)),U,3) ; asset value
- K ENY8,ENY9
- ; print results
- S ENPG=0 D NOW^%DTC S Y=% D DD^%DT S ENDT=Y
- S ENL="",$P(ENL,"-",IOM)=""
- I 'END S ENSN="" F S ENSN=$O(ENT(ENSN)) Q:ENSN="" D Q:END
- . D HD Q:END
- . S ENTS="0^0" ; initialize station totals
- . S ENFUND="" F S ENFUND=$O(ENT(ENSN,ENFUND)) Q:ENFUND="" D Q:END
- . . S ENTF="0^0" ; initialize fund totals
- . . S ENSGL=""
- . . F S ENSGL=$O(ENT(ENSN,ENFUND,ENSGL)) Q:ENSGL="" D Q:END
- . . . I $Y+4>IOSL D HD Q:END
- . . . W !,?12,ENFUND,?22,ENSGL
- . . . W ?30,$J($P(ENT(ENSN,ENFUND,ENSGL),U),5)
- . . . W ?38,"$",$J($FN($P(ENT(ENSN,ENFUND,ENSGL),U,2),",",2),16)
- . . . S $P(ENTF,U)=$P(ENTF,U)+$P(ENT(ENSN,ENFUND,ENSGL),U)
- . . . S $P(ENTF,U,2)=$P(ENTF,U,2)+$P(ENT(ENSN,ENFUND,ENSGL),U,2)
- . . S $P(ENTS,U)=$P(ENTS,U)+$P(ENTF,U)
- . . S $P(ENTS,U,2)=$P(ENTS,U,2)+$P(ENTF,U,2)
- . . Q:'ENBYFUND
- . . I $Y+5>IOSL D HD Q:END
- . . W !,?30,"-----",?38,"-----------------"
- . . W !,?30,$J($P(ENTF,U),5),?38,"$",$J($FN($P(ENTF,U,2),",",2),16),!
- . I $Y+5>IOSL D HD Q:END
- . W !,?30,"-----",?38,"-----------------"
- . W !,?16,"STATION TOTAL"
- . W ?30,$J($P(ENTS,U),5),?38,"$",$J($FN($P(ENTS,U,2),",",2),16)
- I 'END,$E(IOST,1,2)="C-" S DIR(0)="E" D ^DIR K DIR
- D ^%ZISC
- EXIT I $D(ZTQUEUED) S ZTREQ="@"
- K DIR,DIROUT,DIRUT,DIWF,DIWL,DTOUT,DUOUT,X,Y
- K ENBYFUND,ENC,ENDA,ENFUND,ENSGL,ENSN,ENSND,ENT,ENTF,ENTS
- K END,ENDT,ENL,ENPG
- Q
- HD ; header
- I $D(ZTQUEUED),$$S^%ZTLOAD S ZTSTOP=1,END=1 Q
- I $E(IOST,1,2)="C-",ENPG S DIR(0)="E" D ^DIR K DIR I 'Y S END=1 Q
- I $E(IOST,1,2)="C-"!ENPG W @IOF
- S ENPG=ENPG+1
- W !,"CAPITALIZED NX EQUIP. SUMMARY FOR STATION: ",ENSN
- W ?49,ENDT,?72,"page ",ENPG
- W !,ENL
- W !!,?20,"STANDARD",?38,"TOTAL"
- W !,?20,"GENERAL",?30,"ITEM",?38,"ASSET"
- W !,?12,"FUND",?20,"LEDGER",?30,"COUNT",?38,"VALUE"
- W !,?12,"------",?20,"--------",?30,"-----",?38,"-----------------"
- Q
- ;ENFAR2
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENFAR2 3551 printed Mar 13, 2025@20:58:13 Page 2
- ENFAR2 ;WIRMFO/SAB-FIXED ASSET RPT, CAPITALIZED EQUIPMENT SUMMARY; 7/19/96
- +1 ;;7.0;ENGINEERING;**25,33**;Aug 17, 1993
- +2 ; Summary of Capitalized NX Equipment Assets by Station, Fund, SGL
- EN ;
- +1 ; ask type of breakdown
- +2 SET DIR(0)="Y"
- SET DIR("A")="Report SGL totals by Fund"
- +3 SET DIR("B")="YES"
- +4 DO ^DIR
- KILL DIR
- if $DATA(DIRUT)
- GOTO EXIT
- +5 SET ENBYFUND=Y
- +6 ; ask device
- +7 WRITE !!,"This report searches the entire equipment file and may take some"
- +8 WRITE !,"time to complete. Consider queuing this report to run after-hours."
- +9 SET %ZIS="QM"
- DO ^%ZIS
- if POP
- GOTO EXIT
- +10 IF $DATA(IO("Q"))
- Begin DoDot:1
- +11 SET ZTRTN="QEN^ENFAR2"
- SET ZTSAVE("ENBYFUND")=""
- +12 SET ZTDESC="Capitalized NX Equip. Summary for Station"
- +13 DO ^%ZTLOAD
- DO HOME^%ZIS
- KILL ZTSK
- End DoDot:1
- GOTO EXIT
- QEN ; queued entry
- +1 USE IO
- +2 ; collect data
- +3 SET (ENC,END)=0
- KILL ENT
- +4 ; default station
- SET ENSND=$$GET1^DIQ(6910,"1,",1)
- if ENSND=""
- SET ENSND="Unk"
- +5 IF 'ENBYFUND
- SET ENFUND="all"
- +6 SET ENDA=0
- FOR
- SET ENDA=$ORDER(^ENG(6914,ENDA))
- if 'ENDA
- QUIT
- Begin DoDot:1
- +7 SET ENC=ENC+1
- +8 IF '(ENC#500)
- IF $DATA(ZTQUEUED)
- IF $$S^%ZTLOAD
- SET ZTSTOP=1
- SET END=1
- QUIT
- +9 SET ENY8=$GET(^ENG(6914,ENDA,8))
- +10 ; not capitalized
- if $PIECE(ENY8,U,2)'=1
- QUIT
- +11 ; disposition date exists
- if $PIECE($GET(^ENG(6914,ENDA,3)),U,11)]""
- QUIT
- +12 ; not NX
- if $PIECE($GET(^ENG(6914,ENDA,0)),U,4)'="NX"
- QUIT
- +13 SET ENY9=$GET(^ENG(6914,ENDA,9))
- +14 SET ENSN=$PIECE(ENY9,U,5)
- if ENSN=""
- SET ENSN=ENSND
- +15 IF ENBYFUND
- SET X=$PIECE(ENY9,U,7)
- SET ENFUND=$SELECT(X:$PIECE($GET(^ENG(6914.6,X,0)),U),1:"<null>")
- +16 SET ENSGL=$$GET1^DIQ(6914,ENDA_",",38)
- IF ENSGL=""
- SET ENSGL="<null>"
- +17 ; for dangling pointers
- if ENSGL=""
- SET ENSGL="<null>"
- +18 ; count
- SET $PIECE(ENT(ENSN,ENFUND,ENSGL),U)=$PIECE($GET(ENT(ENSN,ENFUND,ENSGL)),U)+1
- +19 ; asset value
- SET $PIECE(ENT(ENSN,ENFUND,ENSGL),U,2)=$PIECE($GET(ENT(ENSN,ENFUND,ENSGL)),U,2)+$PIECE($GET(^ENG(6914,ENDA,2)),U,3)
- End DoDot:1
- if END
- QUIT
- +20 KILL ENY8,ENY9
- +21 ; print results
- +22 SET ENPG=0
- DO NOW^%DTC
- SET Y=%
- DO DD^%DT
- SET ENDT=Y
- +23 SET ENL=""
- SET $PIECE(ENL,"-",IOM)=""
- +24 IF 'END
- SET ENSN=""
- FOR
- SET ENSN=$ORDER(ENT(ENSN))
- if ENSN=""
- QUIT
- Begin DoDot:1
- +25 DO HD
- if END
- QUIT
- +26 ; initialize station totals
- SET ENTS="0^0"
- +27 SET ENFUND=""
- FOR
- SET ENFUND=$ORDER(ENT(ENSN,ENFUND))
- if ENFUND=""
- QUIT
- Begin DoDot:2
- +28 ; initialize fund totals
- SET ENTF="0^0"
- +29 SET ENSGL=""
- +30 FOR
- SET ENSGL=$ORDER(ENT(ENSN,ENFUND,ENSGL))
- if ENSGL=""
- QUIT
- Begin DoDot:3
- +31 IF $Y+4>IOSL
- DO HD
- if END
- QUIT
- +32 WRITE !,?12,ENFUND,?22,ENSGL
- +33 WRITE ?30,$JUSTIFY($PIECE(ENT(ENSN,ENFUND,ENSGL),U),5)
- +34 WRITE ?38,"$",$JUSTIFY($FNUMBER($PIECE(ENT(ENSN,ENFUND,ENSGL),U,2),",",2),16)
- +35 SET $PIECE(ENTF,U)=$PIECE(ENTF,U)+$PIECE(ENT(ENSN,ENFUND,ENSGL),U)
- +36 SET $PIECE(ENTF,U,2)=$PIECE(ENTF,U,2)+$PIECE(ENT(ENSN,ENFUND,ENSGL),U,2)
- End DoDot:3
- if END
- QUIT
- +37 SET $PIECE(ENTS,U)=$PIECE(ENTS,U)+$PIECE(ENTF,U)
- +38 SET $PIECE(ENTS,U,2)=$PIECE(ENTS,U,2)+$PIECE(ENTF,U,2)
- +39 if 'ENBYFUND
- QUIT
- +40 IF $Y+5>IOSL
- DO HD
- if END
- QUIT
- +41 WRITE !,?30,"-----",?38,"-----------------"
- +42 WRITE !,?30,$JUSTIFY($PIECE(ENTF,U),5),?38,"$",$JUSTIFY($FNUMBER($PIECE(ENTF,U,2),",",2),16),!
- End DoDot:2
- if END
- QUIT
- +43 IF $Y+5>IOSL
- DO HD
- if END
- QUIT
- +44 WRITE !,?30,"-----",?38,"-----------------"
- +45 WRITE !,?16,"STATION TOTAL"
- +46 WRITE ?30,$JUSTIFY($PIECE(ENTS,U),5),?38,"$",$JUSTIFY($FNUMBER($PIECE(ENTS,U,2),",",2),16)
- End DoDot:1
- if END
- QUIT
- +47 IF 'END
- IF $EXTRACT(IOST,1,2)="C-"
- SET DIR(0)="E"
- DO ^DIR
- KILL DIR
- +48 DO ^%ZISC
- EXIT IF $DATA(ZTQUEUED)
- SET ZTREQ="@"
- +1 KILL DIR,DIROUT,DIRUT,DIWF,DIWL,DTOUT,DUOUT,X,Y
- +2 KILL ENBYFUND,ENC,ENDA,ENFUND,ENSGL,ENSN,ENSND,ENT,ENTF,ENTS
- +3 KILL END,ENDT,ENL,ENPG
- +4 QUIT
- HD ; header
- +1 IF $DATA(ZTQUEUED)
- IF $$S^%ZTLOAD
- SET ZTSTOP=1
- SET END=1
- QUIT
- +2 IF $EXTRACT(IOST,1,2)="C-"
- IF ENPG
- SET DIR(0)="E"
- DO ^DIR
- KILL DIR
- IF 'Y
- SET END=1
- QUIT
- +3 IF $EXTRACT(IOST,1,2)="C-"!ENPG
- WRITE @IOF
- +4 SET ENPG=ENPG+1
- +5 WRITE !,"CAPITALIZED NX EQUIP. SUMMARY FOR STATION: ",ENSN
- +6 WRITE ?49,ENDT,?72,"page ",ENPG
- +7 WRITE !,ENL
- +8 WRITE !!,?20,"STANDARD",?38,"TOTAL"
- +9 WRITE !,?20,"GENERAL",?30,"ITEM",?38,"ASSET"
- +10 WRITE !,?12,"FUND",?20,"LEDGER",?30,"COUNT",?38,"VALUE"
- +11 WRITE !,?12,"------",?20,"--------",?30,"-----",?38,"-----------------"
- +12 QUIT
- +13 ;ENFAR2
