ENFARC2 ;WIRMFO/SAB-FIXED ASSET RPT, TRANSACTION REGISTER (CONT); 12/16/1998
;;7.0;ENGINEERING;**39,60**;Aug 17, 1993
Q
;This routine contains detail prints for FAP Document types
;It is called from ENFARC1 and ENFAR9 - needs at 6+ blank lines
; Input
; END - flag; true when quit
; ENDA("F?") - ien of document being printed
; ENDA("FA") - ien of FA document associated with the ENDA("F?")
; ENDA("EQ") - ien of the equipment entry for ENDA("F?")
; ENTAG("HD") - (optional) line TAG for page header
; ENTAG("HDC") - (optional) line tag for page header continued note
; ENTAG("FT") - (optional) lien tag for page footer
; Output
; END - flag; true when quit
;
F2 ; print FA details (5 lines)
N ENX,ENY3
S ENY3=$G(^ENG(6915.2,ENDA("F?"),3))
S ENX=$P(ENY3,U,15)
S ENX(0)=$S(ENX]"":$O(^ENCSN(6917,"B",ENX,0)),1:"")
S ENX("D")=$S(ENX(0):$P($G(^ENCSN(6917,ENX(0),0)),U,3),1:"")
; if called by Document History - display fund since it is not
; shown on a column
I $G(ENTAG("HD"))["ENFAR9" W ?4,"FUND: ",$P(ENY3,U,10)
W ?25,"CSN: ",ENX W:ENX("D")]"" " (",ENX("D"),")"
; if xarea available then display it, otherwise display location
I $P(ENY3,U,31)]"" W !,?4,"CMR: ",$P(ENY3,U,31)
E W !,?4,"NATIONAL EIL: ",$P(ENY3,U,8)
W ?25,"COST CENTER: ",$P(ENY3,U,28)
S ENX=$P(ENY3,U,19)
W ?48,"ACQ METH: ",$$EXTERNAL^DILFD(6914,20.1,"",ENX)
W !,?4,"ACQ DATE: ",$P(ENY3,U,17),"/",$P(ENY3,U,18),"/",$E($P(ENY3,U,16),3,4)
W ?25,"LE: ",$P(ENY3,U,24)
W ?48,"REPL DATE: ",$P(ENY3,U,22),"/",$P(ENY3,U,23),"/",$E($P(ENY3,U,21),3,4)
W !,?4,"BOC: ",$P(ENY3,U,14),?25,"A/O: ",$P(ENY3,U,11)
S ENX=$P($G(^ENG(6915.2,ENDA("F?"),7)),U,2)
W ?48,"EQUITY ACCOUNT: ",$$EXTERNAL^DILFD(6914,64,"",ENX)
W !,?4,"P.O.#: " W:ENDA("EQ") $P($G(^ENG(6914,ENDA("EQ"),2)),U,2)
Q
F3 ; print FB details (2 lines)
N ENX,ENY3
S ENY3=$G(^ENG(6915.3,ENDA("F?"),3))
W ?25,"DESCRIPTION: ",$P(ENY3,U,8)
W !,?4,"P.O.#: " W:ENDA("EQ") $P($G(^ENG(6914,ENDA("EQ"),2)),U,2)
W ?25,"ACQ DATE: ",$P(ENY3,U,10),"/",$P(ENY3,U,11),"/",$E($P(ENY3,U,9),3,4)
S ENX=$P(ENY3,U,12)
W ?48,"ACQ METH: ",$$EXTERNAL^DILFD(6914,20.1,"",ENX)
Q
F4 ; print FC details (1-9 lines)
N EN,ENX,ENY3,ENY4,ENY100
W ?25,"P.O.#: " W:ENDA("EQ") $P($G(^ENG(6914,ENDA("EQ"),2)),U,2)
D FCPVAL^ENFARC3(6915.4,ENDA("F?"),ENDA("FA"))
S ENY3=$G(^ENG(6915.4,ENDA("F?"),3))
S ENY4=$G(^ENG(6915.4,ENDA("F?"),4))
S ENY100=$G(^ENG(6915.4,ENDA("F?"),100))
I $P(ENY3,U,11)]"",$P(ENY3,U,11)'=EN(30) D Q:END
. I $Y+7>IOSL D FT,HD Q:END D HDC
. W !,?4,$S($P(ENY3,U,8)="00":"CSN",1:"DESCRIPTION")," CHANGED"
. W ?25,"OLD: ",EN(30)
. I $P(ENY3,U,8)="00" D ; show CSN brief desc
. . S ENX(0)=$S(EN(30)]"":$O(^ENCSN(6917,"B",EN(30),0)),1:"")
. . S ENX("D")=$S(ENX(0):$P($G(^ENCSN(6917,ENX(0),0)),U,3),1:"")
. . W:ENX("D")]"" " (",ENX("D"),")"
. W !,?25,"NEW: ",$P(ENY3,U,11)
. I $P(ENY3,U,8)="00" D ; show CSN brief desc
. . S ENX(0)=$S($P(ENY3,U,11)]"":$O(^ENCSN(6917,"B",$P(ENY3,U,11),0)),1:"")
. . S ENX("D")=$S(ENX(0):$P($G(^ENCSN(6917,ENX(0),0)),U,3),1:"")
. . W:ENX("D")]"" " (",ENX("D"),")"
I $P(ENY3,U,10)]"",$P(ENY3,U,10)'=EN(29) D Q:END
. I $Y+6>IOSL D FT,HD Q:END D HDC
. W !,?4,"NATIONAL EIL CHANGED "
. W ?25,"OLD: ",EN(29),?53,"NEW: ",$P(ENY3,U,10)
I $P(ENY3,U,15)]"",$P(ENY3,U,15)'=EN(34) D Q:END
. I $Y+6>IOSL D FT,HD Q:END D HDC
. W !,?4,"ACQ METHOD CHANGED "
. W ?25,"OLD: ",$$EXTERNAL^DILFD(6914,20.1,"",EN(34))
. W ?53,"NEW: ",$$EXTERNAL^DILFD(6914,20.1,"",$P(ENY3,U,15))
I $P(ENY100,U,6)]"",$P(ENY100,U,6)'=EN(105) D Q:END
. I $Y+6>IOSL D FT,HD Q:END D HDC
. W !,?4,"ACQ DATE CHANGED "
. W ?25,"OLD: ",$$FMTE^XLFDT(EN(105))
. W ?53,"NEW: ",$$FMTE^XLFDT($P(ENY100,U,6))
I $P(ENY4,U,3)]"",$P(ENY4,U,3)'=EN(37) D Q:END
. I $Y+6>IOSL D FT,HD Q:END D HDC
. W !,?4,"USEFUL LIFE CHANGED "
. W ?25,"OLD: ",EN(37),?53,"NEW: ",$P(ENY4,U,3)
I $P(ENY100,U,7)]"",$P(ENY100,U,7)'=EN(106) D Q:END
. I $Y+6>IOSL D FT,HD Q:END D HDC
. W !,?4,"REPL DATE CHANGED "
. W ?25,"OLD: ",$$FMTE^XLFDT(EN(106))
. W ?53,"NEW: ",$$FMTE^XLFDT($P(ENY100,U,7))
I $P(ENY4,U,6)]"",$P(ENY4,U,6)'=$P(ENY100,U,4) D Q:END
. I $Y+6>IOSL D FT,HD Q:END D HDC
. W !,?4,"ASSET VALUE CHANGED "
. W ?25,"OLD: ",$P(ENY100,U,4),?53,"NEW: ",$P(ENY4,U,6)
Q
F5 ; print FD details (2 lines)
N ENTY,ENY5
S ENY5=$G(^ENG(6915.5,ENDA("F?"),5))
S ENTY=$P($G(^ENG(6915.5,ENDA("F?"),100)),U)
W ?25,$S(ENTY="T":"TURN-IN",1:"DISP")," DATE: "
W $P(ENY5,U,6),"/",$P(ENY5,U,7),"/",$E($P(ENY5,U,5),3,4)
W ?49,"DISP AUTHORITY: ",$P(ENY5,U,9)
Q:ENTY="T"
W !,?4,"SELLING PRICE: ",$P(ENY5,U,8)
W ?34,"DISP METHOD: ",$$GET1^DIQ(6915.5,ENDA("F?"),"103:1")
Q
F6 ; print FR details (0-5 lines)
N EN,ENY3
D FRPVAL^ENFARC3(6915.6,ENDA("F?"),ENDA("FA"))
S ENY3=$G(^ENG(6915.6,ENDA("F?"),3))
I $P(ENY3,U,9)]"",$P(ENY3,U,9)'=EN(28) D Q:END
. I $Y+6>IOSL D FT,HD Q:END D HDC
. W !,?4,"FUND CHANGED ",?25,"OLD: ",EN(28),?53,"NEW: ",$P(ENY3,U,9)
I $P(ENY3,U,10)]"",$P(ENY3,U,10)'=EN(29) D Q:END
. I $Y+6>IOSL D FT,HD Q:END D HDC
. W !,?4,"A/O CHANGED ",?25,"OLD: ",EN(29),?53,"NEW: ",$P(ENY3,U,10)
I $P(ENY3,U,13)]"",$P(ENY3,U,13)'=EN(32) D Q:END
. I $Y+6>IOSL D FT,HD Q:END D HDC
. W !,?4,"BOC CHANGED ",?25,"OLD: ",EN(32),?53,"NEW: ",$P(ENY3,U,13)
I $P(ENY3,U,18)]"",$P(ENY3,U,18)'=EN(37) D Q:END
. I $Y+6>IOSL D FT,HD Q:END D HDC
. W !,?4,"CMR CHANGED "
. W ?25,"OLD: ",EN(37),?53,"NEW: ",$P(ENY3,U,18)
; only check location when we don't have xarea (cmr)
I $P(ENY3,U,18)="",$P(ENY3,U,14)]"",$P(ENY3,U,14)'=EN(33) D Q:END
. I $Y+6>IOSL D FT,HD Q:END D HDC
. W !,?4,"NATIONAL EIL CHANGED "
. W ?25,"OLD: ",EN(33),?53,"NEW: ",$P(ENY3,U,14)
I $P(ENY3,U,15)]"",$P(ENY3,U,15)'=EN(34) D Q:END
. I $Y+6>IOSL D FT,HD Q:END D HDC
. W !,?4,"COST CENTER CHANGED "
. W ?25,"OLD: ",EN(34),?53,"NEW: ",$P(ENY3,U,15)
Q
;
HD ; call page header
I $G(ENTAG("HD"))]"" D @ENTAG("HD")
Q
HDC ; call page header continued
I $G(ENTAG("HDC"))]"" D @ENTAG("HDC")
Q
FT ; call page footer
I $G(ENTAG("FT"))]"" D @ENTAG("FT")
Q
;ENFARC2
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENFARC2 6195 printed Nov 22, 2024@17:03:56 Page 2
ENFARC2 ;WIRMFO/SAB-FIXED ASSET RPT, TRANSACTION REGISTER (CONT); 12/16/1998
+1 ;;7.0;ENGINEERING;**39,60**;Aug 17, 1993
+2 QUIT
+3 ;This routine contains detail prints for FAP Document types
+4 ;It is called from ENFARC1 and ENFAR9 - needs at 6+ blank lines
+5 ; Input
+6 ; END - flag; true when quit
+7 ; ENDA("F?") - ien of document being printed
+8 ; ENDA("FA") - ien of FA document associated with the ENDA("F?")
+9 ; ENDA("EQ") - ien of the equipment entry for ENDA("F?")
+10 ; ENTAG("HD") - (optional) line TAG for page header
+11 ; ENTAG("HDC") - (optional) line tag for page header continued note
+12 ; ENTAG("FT") - (optional) lien tag for page footer
+13 ; Output
+14 ; END - flag; true when quit
+15 ;
F2 ; print FA details (5 lines)
+1 NEW ENX,ENY3
+2 SET ENY3=$GET(^ENG(6915.2,ENDA("F?"),3))
+3 SET ENX=$PIECE(ENY3,U,15)
+4 SET ENX(0)=$SELECT(ENX]"":$ORDER(^ENCSN(6917,"B",ENX,0)),1:"")
+5 SET ENX("D")=$SELECT(ENX(0):$PIECE($GET(^ENCSN(6917,ENX(0),0)),U,3),1:"")
+6 ; if called by Document History - display fund since it is not
+7 ; shown on a column
+8 IF $GET(ENTAG("HD"))["ENFAR9"
WRITE ?4,"FUND: ",$PIECE(ENY3,U,10)
+9 WRITE ?25,"CSN: ",ENX
if ENX("D")]""
WRITE " (",ENX("D"),")"
+10 ; if xarea available then display it, otherwise display location
+11 IF $PIECE(ENY3,U,31)]""
WRITE !,?4,"CMR: ",$PIECE(ENY3,U,31)
+12 IF '$TEST
WRITE !,?4,"NATIONAL EIL: ",$PIECE(ENY3,U,8)
+13 WRITE ?25,"COST CENTER: ",$PIECE(ENY3,U,28)
+14 SET ENX=$PIECE(ENY3,U,19)
+15 WRITE ?48,"ACQ METH: ",$$EXTERNAL^DILFD(6914,20.1,"",ENX)
+16 WRITE !,?4,"ACQ DATE: ",$PIECE(ENY3,U,17),"/",$PIECE(ENY3,U,18),"/",$EXTRACT($PIECE(ENY3,U,16),3,4)
+17 WRITE ?25,"LE: ",$PIECE(ENY3,U,24)
+18 WRITE ?48,"REPL DATE: ",$PIECE(ENY3,U,22),"/",$PIECE(ENY3,U,23),"/",$EXTRACT($PIECE(ENY3,U,21),3,4)
+19 WRITE !,?4,"BOC: ",$PIECE(ENY3,U,14),?25,"A/O: ",$PIECE(ENY3,U,11)
+20 SET ENX=$PIECE($GET(^ENG(6915.2,ENDA("F?"),7)),U,2)
+21 WRITE ?48,"EQUITY ACCOUNT: ",$$EXTERNAL^DILFD(6914,64,"",ENX)
+22 WRITE !,?4,"P.O.#: "
if ENDA("EQ")
WRITE $PIECE($GET(^ENG(6914,ENDA("EQ"),2)),U,2)
+23 QUIT
F3 ; print FB details (2 lines)
+1 NEW ENX,ENY3
+2 SET ENY3=$GET(^ENG(6915.3,ENDA("F?"),3))
+3 WRITE ?25,"DESCRIPTION: ",$PIECE(ENY3,U,8)
+4 WRITE !,?4,"P.O.#: "
if ENDA("EQ")
WRITE $PIECE($GET(^ENG(6914,ENDA("EQ"),2)),U,2)
+5 WRITE ?25,"ACQ DATE: ",$PIECE(ENY3,U,10),"/",$PIECE(ENY3,U,11),"/",$EXTRACT($PIECE(ENY3,U,9),3,4)
+6 SET ENX=$PIECE(ENY3,U,12)
+7 WRITE ?48,"ACQ METH: ",$$EXTERNAL^DILFD(6914,20.1,"",ENX)
+8 QUIT
F4 ; print FC details (1-9 lines)
+1 NEW EN,ENX,ENY3,ENY4,ENY100
+2 WRITE ?25,"P.O.#: "
if ENDA("EQ")
WRITE $PIECE($GET(^ENG(6914,ENDA("EQ"),2)),U,2)
+3 DO FCPVAL^ENFARC3(6915.4,ENDA("F?"),ENDA("FA"))
+4 SET ENY3=$GET(^ENG(6915.4,ENDA("F?"),3))
+5 SET ENY4=$GET(^ENG(6915.4,ENDA("F?"),4))
+6 SET ENY100=$GET(^ENG(6915.4,ENDA("F?"),100))
+7 IF $PIECE(ENY3,U,11)]""
IF $PIECE(ENY3,U,11)'=EN(30)
Begin DoDot:1
+8 IF $Y+7>IOSL
DO FT
DO HD
if END
QUIT
DO HDC
+9 WRITE !,?4,$SELECT($PIECE(ENY3,U,8)="00":"CSN",1:"DESCRIPTION")," CHANGED"
+10 WRITE ?25,"OLD: ",EN(30)
+11 ; show CSN brief desc
IF $PIECE(ENY3,U,8)="00"
Begin DoDot:2
+12 SET ENX(0)=$SELECT(EN(30)]"":$ORDER(^ENCSN(6917,"B",EN(30),0)),1:"")
+13 SET ENX("D")=$SELECT(ENX(0):$PIECE($GET(^ENCSN(6917,ENX(0),0)),U,3),1:"")
+14 if ENX("D")]""
WRITE " (",ENX("D"),")"
End DoDot:2
+15 WRITE !,?25,"NEW: ",$PIECE(ENY3,U,11)
+16 ; show CSN brief desc
IF $PIECE(ENY3,U,8)="00"
Begin DoDot:2
+17 SET ENX(0)=$SELECT($PIECE(ENY3,U,11)]"":$ORDER(^ENCSN(6917,"B",$PIECE(ENY3,U,11),0)),1:"")
+18 SET ENX("D")=$SELECT(ENX(0):$PIECE($GET(^ENCSN(6917,ENX(0),0)),U,3),1:"")
+19 if ENX("D")]""
WRITE " (",ENX("D"),")"
End DoDot:2
End DoDot:1
if END
QUIT
+20 IF $PIECE(ENY3,U,10)]""
IF $PIECE(ENY3,U,10)'=EN(29)
Begin DoDot:1
+21 IF $Y+6>IOSL
DO FT
DO HD
if END
QUIT
DO HDC
+22 WRITE !,?4,"NATIONAL EIL CHANGED "
+23 WRITE ?25,"OLD: ",EN(29),?53,"NEW: ",$PIECE(ENY3,U,10)
End DoDot:1
if END
QUIT
+24 IF $PIECE(ENY3,U,15)]""
IF $PIECE(ENY3,U,15)'=EN(34)
Begin DoDot:1
+25 IF $Y+6>IOSL
DO FT
DO HD
if END
QUIT
DO HDC
+26 WRITE !,?4,"ACQ METHOD CHANGED "
+27 WRITE ?25,"OLD: ",$$EXTERNAL^DILFD(6914,20.1,"",EN(34))
+28 WRITE ?53,"NEW: ",$$EXTERNAL^DILFD(6914,20.1,"",$PIECE(ENY3,U,15))
End DoDot:1
if END
QUIT
+29 IF $PIECE(ENY100,U,6)]""
IF $PIECE(ENY100,U,6)'=EN(105)
Begin DoDot:1
+30 IF $Y+6>IOSL
DO FT
DO HD
if END
QUIT
DO HDC
+31 WRITE !,?4,"ACQ DATE CHANGED "
+32 WRITE ?25,"OLD: ",$$FMTE^XLFDT(EN(105))
+33 WRITE ?53,"NEW: ",$$FMTE^XLFDT($PIECE(ENY100,U,6))
End DoDot:1
if END
QUIT
+34 IF $PIECE(ENY4,U,3)]""
IF $PIECE(ENY4,U,3)'=EN(37)
Begin DoDot:1
+35 IF $Y+6>IOSL
DO FT
DO HD
if END
QUIT
DO HDC
+36 WRITE !,?4,"USEFUL LIFE CHANGED "
+37 WRITE ?25,"OLD: ",EN(37),?53,"NEW: ",$PIECE(ENY4,U,3)
End DoDot:1
if END
QUIT
+38 IF $PIECE(ENY100,U,7)]""
IF $PIECE(ENY100,U,7)'=EN(106)
Begin DoDot:1
+39 IF $Y+6>IOSL
DO FT
DO HD
if END
QUIT
DO HDC
+40 WRITE !,?4,"REPL DATE CHANGED "
+41 WRITE ?25,"OLD: ",$$FMTE^XLFDT(EN(106))
+42 WRITE ?53,"NEW: ",$$FMTE^XLFDT($PIECE(ENY100,U,7))
End DoDot:1
if END
QUIT
+43 IF $PIECE(ENY4,U,6)]""
IF $PIECE(ENY4,U,6)'=$PIECE(ENY100,U,4)
Begin DoDot:1
+44 IF $Y+6>IOSL
DO FT
DO HD
if END
QUIT
DO HDC
+45 WRITE !,?4,"ASSET VALUE CHANGED "
+46 WRITE ?25,"OLD: ",$PIECE(ENY100,U,4),?53,"NEW: ",$PIECE(ENY4,U,6)
End DoDot:1
if END
QUIT
+47 QUIT
F5 ; print FD details (2 lines)
+1 NEW ENTY,ENY5
+2 SET ENY5=$GET(^ENG(6915.5,ENDA("F?"),5))
+3 SET ENTY=$PIECE($GET(^ENG(6915.5,ENDA("F?"),100)),U)
+4 WRITE ?25,$SELECT(ENTY="T":"TURN-IN",1:"DISP")," DATE: "
+5 WRITE $PIECE(ENY5,U,6),"/",$PIECE(ENY5,U,7),"/",$EXTRACT($PIECE(ENY5,U,5),3,4)
+6 WRITE ?49,"DISP AUTHORITY: ",$PIECE(ENY5,U,9)
+7 if ENTY="T"
QUIT
+8 WRITE !,?4,"SELLING PRICE: ",$PIECE(ENY5,U,8)
+9 WRITE ?34,"DISP METHOD: ",$$GET1^DIQ(6915.5,ENDA("F?"),"103:1")
+10 QUIT
F6 ; print FR details (0-5 lines)
+1 NEW EN,ENY3
+2 DO FRPVAL^ENFARC3(6915.6,ENDA("F?"),ENDA("FA"))
+3 SET ENY3=$GET(^ENG(6915.6,ENDA("F?"),3))
+4 IF $PIECE(ENY3,U,9)]""
IF $PIECE(ENY3,U,9)'=EN(28)
Begin DoDot:1
+5 IF $Y+6>IOSL
DO FT
DO HD
if END
QUIT
DO HDC
+6 WRITE !,?4,"FUND CHANGED ",?25,"OLD: ",EN(28),?53,"NEW: ",$PIECE(ENY3,U,9)
End DoDot:1
if END
QUIT
+7 IF $PIECE(ENY3,U,10)]""
IF $PIECE(ENY3,U,10)'=EN(29)
Begin DoDot:1
+8 IF $Y+6>IOSL
DO FT
DO HD
if END
QUIT
DO HDC
+9 WRITE !,?4,"A/O CHANGED ",?25,"OLD: ",EN(29),?53,"NEW: ",$PIECE(ENY3,U,10)
End DoDot:1
if END
QUIT
+10 IF $PIECE(ENY3,U,13)]""
IF $PIECE(ENY3,U,13)'=EN(32)
Begin DoDot:1
+11 IF $Y+6>IOSL
DO FT
DO HD
if END
QUIT
DO HDC
+12 WRITE !,?4,"BOC CHANGED ",?25,"OLD: ",EN(32),?53,"NEW: ",$PIECE(ENY3,U,13)
End DoDot:1
if END
QUIT
+13 IF $PIECE(ENY3,U,18)]""
IF $PIECE(ENY3,U,18)'=EN(37)
Begin DoDot:1
+14 IF $Y+6>IOSL
DO FT
DO HD
if END
QUIT
DO HDC
+15 WRITE !,?4,"CMR CHANGED "
+16 WRITE ?25,"OLD: ",EN(37),?53,"NEW: ",$PIECE(ENY3,U,18)
End DoDot:1
if END
QUIT
+17 ; only check location when we don't have xarea (cmr)
+18 IF $PIECE(ENY3,U,18)=""
IF $PIECE(ENY3,U,14)]""
IF $PIECE(ENY3,U,14)'=EN(33)
Begin DoDot:1
+19 IF $Y+6>IOSL
DO FT
DO HD
if END
QUIT
DO HDC
+20 WRITE !,?4,"NATIONAL EIL CHANGED "
+21 WRITE ?25,"OLD: ",EN(33),?53,"NEW: ",$PIECE(ENY3,U,14)
End DoDot:1
if END
QUIT
+22 IF $PIECE(ENY3,U,15)]""
IF $PIECE(ENY3,U,15)'=EN(34)
Begin DoDot:1
+23 IF $Y+6>IOSL
DO FT
DO HD
if END
QUIT
DO HDC
+24 WRITE !,?4,"COST CENTER CHANGED "
+25 WRITE ?25,"OLD: ",EN(34),?53,"NEW: ",$PIECE(ENY3,U,15)
End DoDot:1
if END
QUIT
+26 QUIT
+27 ;
HD ; call page header
+1 IF $GET(ENTAG("HD"))]""
DO @ENTAG("HD")
+2 QUIT
HDC ; call page header continued
+1 IF $GET(ENTAG("HDC"))]""
DO @ENTAG("HDC")
+2 QUIT
FT ; call page footer
+1 IF $GET(ENTAG("FT"))]""
DO @ENTAG("FT")
+2 QUIT
+3 ;ENFARC2
