- ENEXPT1 ;WIRMFO/SAB-EQUIPMENT FILE EXPORT SUMMARY RPT ;1/18/96
- ;;7.0;ENGINEERING;**27**;Aug 17, 1993
- EN ;
- W !,"This report searches the entire equipment file and may take some"
- W !,"time to complete. Consider queuing this report to run after-hours."
- ; ask device
- S %ZIS="QM" D ^%ZIS G:POP EXIT
- I $D(IO("Q")) D G EXIT
- . S ZTRTN="QEN^ENEXPT1",ZTDESC="Equipment File Export Summary Rpt"
- . D ^%ZTLOAD,HOME^%ZIS K ZTSK
- QEN ; queued entry
- N ENC,END,ENDA,ENDL,ENDT,ENPG,ENSN,ENSND,ENTA,ENTL,ENY0,ENY2,ENY3
- U IO
- S ENSND=$$GET1^DIQ(6910,"1,",1) ; default station #
- W:$E(IOST,1,2)="C-" !,"Searching Equipment File"
- S ENDA=0 F S ENDA=$O(^ENG(6914,ENDA)) Q:'ENDA D
- . I $E(IOST,1,2)="C-" W:'(ENDA#100) "."
- . S ENY0=$G(^ENG(6914,ENDA,0))
- . Q:$P(ENY0,U,4)'="NX" ; type of entry screen
- . S ENY3=$G(^ENG(6914,ENDA,3))
- . Q:"^4^5^"[(U_$P(ENY3,U,1)_U) ; use status screen
- . S ENSN=$P($G(^ENG(6914,ENDA,9)),U,5) S:ENSN="" ENSN=ENSND ; station
- . S ENY2=$G(^ENG(6914,ENDA,2))
- . S ENC(ENSN)=$G(ENC(ENSN))+1
- . S ENTA(ENSN)=$G(ENTA(ENSN))+$P(ENY2,U,3)
- . S ENTL(ENSN)=$G(ENTL(ENSN))+$P(ENY2,U,12)
- ; print summary
- S (END,ENPG)=0 D NOW^%DTC S Y=% D DD^%DT S ENDT=Y
- S ENDL="",$P(ENDL,"-",IOM)=""
- D HD
- S (ENC,ENTA,ENTL)=0
- S ENSN="" F S ENSN=$O(ENC(ENSN)) Q:ENSN="" D Q:END
- . I $Y+4>IOSL D HD Q:END
- . W !,?5,ENSN,?15,$J(ENC(ENSN),6),?28,$J($FN($G(ENTA(ENSN)),",",2),16),?48,$J($FN($G(ENTL(ENSN)),",",2),16)
- . S ENC=ENC+ENC(ENSN)
- . S ENTA=ENTA+$G(ENTA(ENSN))
- . S ENTL=ENTL+$G(ENTL(ENSN))
- I 'END D
- . W !,?5,"-------",?15,"----------",?28,"-----------------",?48,"----------------"
- . W !,?5,"TOTAL:",?15,$J(ENC,6),?28,$J($FN(ENTA,",",2),16),?48,$J($FN(ENTL,",",2),16)
- . I $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,DTOUT,DUOUT,X,Y
- 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 !,"EQUIPMENT FILE EXPORT SUMMARY RPT",?48,ENDT,?72,"page ",ENPG
- W !!,?5,"STATION",?15,"ITEM COUNT",?28,"TOTAL ASSET VALUE"
- W ?48,"TOTAL LEASE COST"
- W !,ENDL
- Q
- ASK ; description of selection criteria and set up of summary report prompt
- ; called by ENEXPT
- W !!,"The Equipment File Export transmits equipment data to the National"
- W !,"Engineering Service Center (NESC) in St. Louis."
- W !,"Equipment which meets the following criteria will be selected:"
- W !," TYPE OF ENTRY equals ""NX"""
- W !," USE STATUS not equal ""TURNED IN"" or ""LOST OR STOLEN""",!
- S DIR(0)="Y",DIR("A")="Would you like a summary report",DIR("B")="YES"
- S DIR("?",1)="Enter YES to generate a summary report of equipment that"
- S DIR("?")="will be included in the transmission."
- Q
- ;ENEXPT1
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENEXPT1 2830 printed Jan 18, 2025@02:54:28 Page 2
- ENEXPT1 ;WIRMFO/SAB-EQUIPMENT FILE EXPORT SUMMARY RPT ;1/18/96
- +1 ;;7.0;ENGINEERING;**27**;Aug 17, 1993
- EN ;
- +1 WRITE !,"This report searches the entire equipment file and may take some"
- +2 WRITE !,"time to complete. Consider queuing this report to run after-hours."
- +3 ; ask device
- +4 SET %ZIS="QM"
- DO ^%ZIS
- if POP
- GOTO EXIT
- +5 IF $DATA(IO("Q"))
- Begin DoDot:1
- +6 SET ZTRTN="QEN^ENEXPT1"
- SET ZTDESC="Equipment File Export Summary Rpt"
- +7 DO ^%ZTLOAD
- DO HOME^%ZIS
- KILL ZTSK
- End DoDot:1
- GOTO EXIT
- QEN ; queued entry
- +1 NEW ENC,END,ENDA,ENDL,ENDT,ENPG,ENSN,ENSND,ENTA,ENTL,ENY0,ENY2,ENY3
- +2 USE IO
- +3 ; default station #
- SET ENSND=$$GET1^DIQ(6910,"1,",1)
- +4 if $EXTRACT(IOST,1,2)="C-"
- WRITE !,"Searching Equipment File"
- +5 SET ENDA=0
- FOR
- SET ENDA=$ORDER(^ENG(6914,ENDA))
- if 'ENDA
- QUIT
- Begin DoDot:1
- +6 IF $EXTRACT(IOST,1,2)="C-"
- if '(ENDA#100)
- WRITE "."
- +7 SET ENY0=$GET(^ENG(6914,ENDA,0))
- +8 ; type of entry screen
- if $PIECE(ENY0,U,4)'="NX"
- QUIT
- +9 SET ENY3=$GET(^ENG(6914,ENDA,3))
- +10 ; use status screen
- if "^4^5^"[(U_$PIECE(ENY3,U,1)_U)
- QUIT
- +11 ; station
- SET ENSN=$PIECE($GET(^ENG(6914,ENDA,9)),U,5)
- if ENSN=""
- SET ENSN=ENSND
- +12 SET ENY2=$GET(^ENG(6914,ENDA,2))
- +13 SET ENC(ENSN)=$GET(ENC(ENSN))+1
- +14 SET ENTA(ENSN)=$GET(ENTA(ENSN))+$PIECE(ENY2,U,3)
- +15 SET ENTL(ENSN)=$GET(ENTL(ENSN))+$PIECE(ENY2,U,12)
- End DoDot:1
- +16 ; print summary
- +17 SET (END,ENPG)=0
- DO NOW^%DTC
- SET Y=%
- DO DD^%DT
- SET ENDT=Y
- +18 SET ENDL=""
- SET $PIECE(ENDL,"-",IOM)=""
- +19 DO HD
- +20 SET (ENC,ENTA,ENTL)=0
- +21 SET ENSN=""
- FOR
- SET ENSN=$ORDER(ENC(ENSN))
- if ENSN=""
- QUIT
- Begin DoDot:1
- +22 IF $Y+4>IOSL
- DO HD
- if END
- QUIT
- +23 WRITE !,?5,ENSN,?15,$JUSTIFY(ENC(ENSN),6),?28,$JUSTIFY($FNUMBER($GET(ENTA(ENSN)),",",2),16),?48,$JUSTIFY($FNUMBER($GET(ENTL(ENSN)),",",2),16)
- +24 SET ENC=ENC+ENC(ENSN)
- +25 SET ENTA=ENTA+$GET(ENTA(ENSN))
- +26 SET ENTL=ENTL+$GET(ENTL(ENSN))
- End DoDot:1
- if END
- QUIT
- +27 IF 'END
- Begin DoDot:1
- +28 WRITE !,?5,"-------",?15,"----------",?28,"-----------------",?48,"----------------"
- +29 WRITE !,?5,"TOTAL:",?15,$JUSTIFY(ENC,6),?28,$JUSTIFY($FNUMBER(ENTA,",",2),16),?48,$JUSTIFY($FNUMBER(ENTL,",",2),16)
- +30 IF $EXTRACT(IOST,1,2)="C-"
- SET DIR(0)="E"
- DO ^DIR
- KILL DIR
- End DoDot:1
- +31 DO ^%ZISC
- EXIT IF $DATA(ZTQUEUED)
- SET ZTREQ="@"
- +1 KILL DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
- +2 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 !,"EQUIPMENT FILE EXPORT SUMMARY RPT",?48,ENDT,?72,"page ",ENPG
- +6 WRITE !!,?5,"STATION",?15,"ITEM COUNT",?28,"TOTAL ASSET VALUE"
- +7 WRITE ?48,"TOTAL LEASE COST"
- +8 WRITE !,ENDL
- +9 QUIT
- ASK ; description of selection criteria and set up of summary report prompt
- +1 ; called by ENEXPT
- +2 WRITE !!,"The Equipment File Export transmits equipment data to the National"
- +3 WRITE !,"Engineering Service Center (NESC) in St. Louis."
- +4 WRITE !,"Equipment which meets the following criteria will be selected:"
- +5 WRITE !," TYPE OF ENTRY equals ""NX"""
- +6 WRITE !," USE STATUS not equal ""TURNED IN"" or ""LOST OR STOLEN""",!
- +7 SET DIR(0)="Y"
- SET DIR("A")="Would you like a summary report"
- SET DIR("B")="YES"
- +8 SET DIR("?",1)="Enter YES to generate a summary report of equipment that"
- +9 SET DIR("?")="will be included in the transmission."
- +10 QUIT
- +11 ;ENEXPT1