ENFAR6 ;WIRMFO/SAB-FIXED ASSET RPT, EQUIP NOT REPORTED TO FAP; 7/19/96
;;7.0;ENGINEERING;**29,33**;Aug 17, 1993
; List of Capitalized NX Equipment which has not been reported to FAP
EN ; The option which calls this routine should normally be queued
; to print weekly via TaskManager.
I $D(ZTQUEUED) G QEN ; no user input when automatically queued
; 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^ENFAR6"
. S ZTDESC="Capitalized NX Equip. Not Reported to FAP"
. D ^%ZTLOAD,HOME^%ZIS K ZTSK
QEN ; queued entry
U IO
S ENPG=0 D NOW^%DTC S Y=% D DD^%DT S ENDT=Y
S ENL="",$P(ENL,"-",IOM)=""
D HD
S (ENC,END,ENT)=0
S ENSND=$$GET1^DIQ(6910,"1,",1) S:ENSND="" ENSND="Unk" ; default station
; loop thru equipment file
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
. Q:$P($G(^ENG(6914,ENDA,8)),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
. Q:+$$CHKFA^ENFAUTL(ENDA) ; already reported to FAP
. ; should have been reported and wasn't
. I $Y+4>IOSL D HD Q:END
. S ENT=ENT+1
. S ENAQDT=$$GET1^DIQ(6914,ENDA,13)
. S ENVALUE=$$GET1^DIQ(6914,ENDA,12)
. S ENFUND=$$GET1^DIQ(6914,ENDA,62)
. S ENSGL=$$GET1^DIQ(6914,ENDA,38)
. S ENCSN=$$GET1^DIQ(6914,ENDA,18)
. S ENCMR=$$GET1^DIQ(6914,ENDA,19)
. S ENSN=$P($G(^ENG(6914,ENDA,9)),U,5) S:ENSN="" ENSN=ENSND
. W !,ENDA,?11,ENAQDT,?24,$J("$"_$FN(ENVALUE,",",2),14),?40,ENSN
. W ?48,ENFUND,?55,ENSGL,?61,ENCSN,?74,ENCMR
I END W !!,"REPORT STOPPED AT USER REQUEST"
E D
. I ENT=0 W !!,"All capitalized NX equipment has been reported to Fixed Assets."
. I ENT>0 W !!,ENT," capitalized NX equipment entries have not been reported to Fixed Assets."
. 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,DIWF,DIWL,DTOUT,DUOUT,X,Y
K ENAQDT,ENC,ENCMR,ENCSN,ENDA,ENFUND,ENSGL,ENSN,ENSND,ENT,ENVALUE
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. NOT REPORTED TO FAP"
W ?49,ENDT,?72,"page ",ENPG
W !!,"ENTRY#",?11,"ACQ. DATE",?24,"ASSET VALUE",?40,"STATION"
W ?48,"FUND",?55,"SGL",?61,"CSN",?74,"CMR"
W !,$E(ENL,1,10),?11,$E(ENL,1,12),?24,$E(ENL,1,14),?40,$E(ENL,1,7)
W ?48,$E(ENL,1,6),?55,$E(ENL,1,4),?61,$E(ENL,1,11),?74,$E(ENL,1,5)
Q
;ENFAR6
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENFAR6 2775 printed Oct 16, 2024@17:54:27 Page 2
ENFAR6 ;WIRMFO/SAB-FIXED ASSET RPT, EQUIP NOT REPORTED TO FAP; 7/19/96
+1 ;;7.0;ENGINEERING;**29,33**;Aug 17, 1993
+2 ; List of Capitalized NX Equipment which has not been reported to FAP
EN ; The option which calls this routine should normally be queued
+1 ; to print weekly via TaskManager.
+2 ; no user input when automatically queued
IF $DATA(ZTQUEUED)
GOTO QEN
+3 ; ask device
+4 WRITE !!,"This report searches the entire equipment file and may take some"
+5 WRITE !,"time to complete. Consider queuing this report to run after-hours."
+6 SET %ZIS="QM"
DO ^%ZIS
if POP
GOTO EXIT
+7 IF $DATA(IO("Q"))
Begin DoDot:1
+8 SET ZTRTN="QEN^ENFAR6"
+9 SET ZTDESC="Capitalized NX Equip. Not Reported to FAP"
+10 DO ^%ZTLOAD
DO HOME^%ZIS
KILL ZTSK
End DoDot:1
GOTO EXIT
QEN ; queued entry
+1 USE IO
+2 SET ENPG=0
DO NOW^%DTC
SET Y=%
DO DD^%DT
SET ENDT=Y
+3 SET ENL=""
SET $PIECE(ENL,"-",IOM)=""
+4 DO HD
+5 SET (ENC,END,ENT)=0
+6 ; default station
SET ENSND=$$GET1^DIQ(6910,"1,",1)
if ENSND=""
SET ENSND="Unk"
+7 ; loop thru equipment file
+8 SET ENDA=0
FOR
SET ENDA=$ORDER(^ENG(6914,ENDA))
if 'ENDA
QUIT
Begin DoDot:1
+9 SET ENC=ENC+1
+10 IF '(ENC#500)
IF $DATA(ZTQUEUED)
IF $$S^%ZTLOAD
SET ZTSTOP=1
SET END=1
QUIT
+11 ; not capitalized
if $PIECE($GET(^ENG(6914,ENDA,8)),U,2)'=1
QUIT
+12 ; disposition date exists
if $PIECE($GET(^ENG(6914,ENDA,3)),U,11)]""
QUIT
+13 ; not NX
if $PIECE($GET(^ENG(6914,ENDA,0)),U,4)'="NX"
QUIT
+14 ; already reported to FAP
if +$$CHKFA^ENFAUTL(ENDA)
QUIT
+15 ; should have been reported and wasn't
+16 IF $Y+4>IOSL
DO HD
if END
QUIT
+17 SET ENT=ENT+1
+18 SET ENAQDT=$$GET1^DIQ(6914,ENDA,13)
+19 SET ENVALUE=$$GET1^DIQ(6914,ENDA,12)
+20 SET ENFUND=$$GET1^DIQ(6914,ENDA,62)
+21 SET ENSGL=$$GET1^DIQ(6914,ENDA,38)
+22 SET ENCSN=$$GET1^DIQ(6914,ENDA,18)
+23 SET ENCMR=$$GET1^DIQ(6914,ENDA,19)
+24 SET ENSN=$PIECE($GET(^ENG(6914,ENDA,9)),U,5)
if ENSN=""
SET ENSN=ENSND
+25 WRITE !,ENDA,?11,ENAQDT,?24,$JUSTIFY("$"_$FNUMBER(ENVALUE,",",2),14),?40,ENSN
+26 WRITE ?48,ENFUND,?55,ENSGL,?61,ENCSN,?74,ENCMR
End DoDot:1
if END
QUIT
+27 IF END
WRITE !!,"REPORT STOPPED AT USER REQUEST"
+28 IF '$TEST
Begin DoDot:1
+29 IF ENT=0
WRITE !!,"All capitalized NX equipment has been reported to Fixed Assets."
+30 IF ENT>0
WRITE !!,ENT," capitalized NX equipment entries have not been reported to Fixed Assets."
+31 IF $EXTRACT(IOST,1,2)="C-"
SET DIR(0)="E"
DO ^DIR
KILL DIR
End DoDot:1
+32 DO ^%ZISC
EXIT IF $DATA(ZTQUEUED)
SET ZTREQ="@"
+1 KILL DIR,DIROUT,DIRUT,DIWF,DIWL,DTOUT,DUOUT,X,Y
+2 KILL ENAQDT,ENC,ENCMR,ENCSN,ENDA,ENFUND,ENSGL,ENSN,ENSND,ENT,ENVALUE
+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. NOT REPORTED TO FAP"
+6 WRITE ?49,ENDT,?72,"page ",ENPG
+7 WRITE !!,"ENTRY#",?11,"ACQ. DATE",?24,"ASSET VALUE",?40,"STATION"
+8 WRITE ?48,"FUND",?55,"SGL",?61,"CSN",?74,"CMR"
+9 WRITE !,$EXTRACT(ENL,1,10),?11,$EXTRACT(ENL,1,12),?24,$EXTRACT(ENL,1,14),?40,$EXTRACT(ENL,1,7)
+10 WRITE ?48,$EXTRACT(ENL,1,6),?55,$EXTRACT(ENL,1,4),?61,$EXTRACT(ENL,1,11),?74,$EXTRACT(ENL,1,5)
+11 QUIT
+12 ;ENFAR6
