ENARG2 ;(WCIOFO)/JED,SAB-SKELETON ARCHIVE GLOBAL ;10/12/1999
;;7.0;ENGINEERING;**40,50,63**;Aug 17, 1993
;EXPECTS ENSH,ENRT,ENFR,ENTO ;CALLED BY ENARG1
Q
G S (J,Z)=0,ENSTART=$P($H,",",2) W !,"Hold on, this could take awhile" D @ENRT
W !,"Elapsed time: ",$J($P($H,",",2)-ENSTART/60,6,2)," minutes."
K ENA,ENSTART,Z Q
;;
1 ; Work orders
F S Z=$O(^ENG(6920,Z)) Q:Z'?1N.N W:'(Z#500) "." D
. Q:'$D(^ENG(6920,Z,0)) ; missing zero node
. S Z(1)=$P($P($G(^ENG(6920,Z,5)),U,2),".") ; date complete
. Q:Z(1)=""!(Z(1)<ENFR)!(Z(1)>ENTO) ; outside date range
. I '$G(ENSHOP("ALL")) S Z(2)=$P($G(^ENG(6920,Z,2)),U) Q:Z(2)="" ; shop
. I $G(ENSHOP("INC")),'$D(ENSHOP(Z(2))) Q ; shop not included
. I $G(ENSHOP("EXC")),$D(ENSHOP(Z(2))) Q ; shop excluded
. ; passed all checks - include on list
. S J=J+1,^ENAR(6919.1,J,0)=Z
Q
;
; FSA (VA Form 2162)
2 F S Z=$O(^ENG("FSA",Z)) Q:Z'?1N.N W:'(Z#50) "." I $D(^ENG("FSA",Z,0)) S Z(1)=$P(^(0),U,6) I Z(1)]"",(Z(1)'<ENFR),(Z(1)'>ENTO) S J=J+1,^ENAR(6919.2,J,0)=Z
; INV (Equipment File)
3 S Z=$O(^ENG(6914,Z)) Q:Z'?1N.N
W:'(Z#200) "."
I '$D(^ENG(6914,Z,0)) G 3
S Z(1)=$G(^ENG(6914,Z,3))
I $P(Z(1),U,11)=""!($P(Z(1),U,11)>ENTO) G 3 ; disp date
I +$$CHKFA^ENFAUTL(Z) G 3 ; reported to FAP
I 'ENEQ("J"),$P(Z(1),U,9)="Y" G 3 ; exclude JCAHO INV
I 'ENEQ("A"),"^1^A^"[(U_$P($G(^ENG(6914,Z,8)),U,2)_U) G 3 ; excl acct NX
;I 'ENEQ("A") S Z(2)=$P($G(^ENG(6914,Z,2)),U,8) I Z(2),"^10^23^70^"[(U_$E($P($G(^ENCSN(6917,Z(2),0)),U),1,2)_U) G 3 ; excl Acct NX (adp, vech, firearm) (commented out by patch EN*7*50)
S J=J+1,^ENAR(6919.3,J,0)=Z
G 3
;
; PROJECT (not supported)
4 Q
;
; CONTROL POINT ACTIVITY (will never be supported)
5 Q
;ENARG2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENARG2 1742 printed Dec 13, 2024@01:51:33 Page 2
ENARG2 ;(WCIOFO)/JED,SAB-SKELETON ARCHIVE GLOBAL ;10/12/1999
+1 ;;7.0;ENGINEERING;**40,50,63**;Aug 17, 1993
+2 ;EXPECTS ENSH,ENRT,ENFR,ENTO ;CALLED BY ENARG1
+3 QUIT
G SET (J,Z)=0
SET ENSTART=$PIECE($HOROLOG,",",2)
WRITE !,"Hold on, this could take awhile"
DO @ENRT
+1 WRITE !,"Elapsed time: ",$JUSTIFY($PIECE($HOROLOG,",",2)-ENSTART/60,6,2)," minutes."
+2 KILL ENA,ENSTART,Z
QUIT
+3 ;;
1 ; Work orders
+1 FOR
SET Z=$ORDER(^ENG(6920,Z))
if Z'?1N.N
QUIT
if '(Z#500)
WRITE "."
Begin DoDot:1
+2 ; missing zero node
if '$DATA(^ENG(6920,Z,0))
QUIT
+3 ; date complete
SET Z(1)=$PIECE($PIECE($GET(^ENG(6920,Z,5)),U,2),".")
+4 ; outside date range
if Z(1)=""!(Z(1)<ENFR)!(Z(1)>ENTO)
QUIT
+5 ; shop
IF '$GET(ENSHOP("ALL"))
SET Z(2)=$PIECE($GET(^ENG(6920,Z,2)),U)
if Z(2)=""
QUIT
+6 ; shop not included
IF $GET(ENSHOP("INC"))
IF '$DATA(ENSHOP(Z(2)))
QUIT
+7 ; shop excluded
IF $GET(ENSHOP("EXC"))
IF $DATA(ENSHOP(Z(2)))
QUIT
+8 ; passed all checks - include on list
+9 SET J=J+1
SET ^ENAR(6919.1,J,0)=Z
End DoDot:1
+10 QUIT
+11 ;
+12 ; FSA (VA Form 2162)
2 FOR
SET Z=$ORDER(^ENG("FSA",Z))
if Z'?1N.N
QUIT
if '(Z#50)
WRITE "."
IF $DATA(^ENG("FSA",Z,0))
SET Z(1)=$PIECE(^(0),U,6)
IF Z(1)]""
IF (Z(1)'<ENFR)
IF (Z(1)'>ENTO)
SET J=J+1
SET ^ENAR(6919.2,J,0)=Z
+1 ; INV (Equipment File)
3 SET Z=$ORDER(^ENG(6914,Z))
if Z'?1N.N
QUIT
+1 if '(Z#200)
WRITE "."
+2 IF '$DATA(^ENG(6914,Z,0))
GOTO 3
+3 SET Z(1)=$GET(^ENG(6914,Z,3))
+4 ; disp date
IF $PIECE(Z(1),U,11)=""!($PIECE(Z(1),U,11)>ENTO)
GOTO 3
+5 ; reported to FAP
IF +$$CHKFA^ENFAUTL(Z)
GOTO 3
+6 ; exclude JCAHO INV
IF 'ENEQ("J")
IF $PIECE(Z(1),U,9)="Y"
GOTO 3
+7 ; excl acct NX
IF 'ENEQ("A")
IF "^1^A^"[(U_$PIECE($GET(^ENG(6914,Z,8)),U,2)_U)
GOTO 3
+8 ;I 'ENEQ("A") S Z(2)=$P($G(^ENG(6914,Z,2)),U,8) I Z(2),"^10^23^70^"[(U_$E($P($G(^ENCSN(6917,Z(2),0)),U),1,2)_U) G 3 ; excl Acct NX (adp, vech, firearm) (commented out by patch EN*7*50)
+9 SET J=J+1
SET ^ENAR(6919.3,J,0)=Z
+10 GOTO 3
+11 ;
+12 ; PROJECT (not supported)
4 QUIT
+1 ;
+2 ; CONTROL POINT ACTIVITY (will never be supported)
5 QUIT
+1 ;ENARG2
