ENFAXMT1 ;WASHINGTON IRMFO/KLD/DH; CREATE Fx2, Fx3, FxA DOCS ;3/21/96
;;7.0;ENGINEERING;**29**;Aug 17, 1993
;This routine should not be modified.
ST ;Build X(2) thru X(4)
Q:ENFAP("DOC")="FR" ; not executed for FR doc
FA I ENFAP("DOC")="FA" D
. ; don't send FA2
. S X(3)="LIN^~"
. S X(4)="FAA"_U_$P(ENEQ(9),U,9) ; equity account 1
. S X(4)=X(4)_"^^^^^^^^"_$P(ENEQ(2),U,3) ; asset value 1
. S X(4)=X(4)_"^^^^^^^^~"
FB I ENFAP("DOC")="FB" D
. S X(2)="FB2^^^^^^^"_$P(ENFAP(4),U,4)_"^^~"
. S X(3)="LIN^~"
. S X(4)="FBA"_U_$P(ENFAP(6),U,2) ; equity account 1
. S X(4)=X(4)_"^^^^^^^^"_$P(ENFAP(4),U,4) ; asset value 1
. S X(4)=X(4)_"^^^^^^^^~"
FC I ENFAP("DOC")="FC" D
. S X(2)="FC2^^^^^^^"_$P(ENFAP(4),U,3)_"^^^^"_$P(ENFAP(4),U,6)
. S X(2)=X(2)_"^^^^^^^^^^"
. I $P($G(ENFAP(4)),U,14)]"" S X(2)=X(2)_$P(ENFAP(4),U,14,16)
. E S X(2)=X(2)_"^^"
. S $P(X(2),U,27)="~"
. S X(3)="LIN^~"
. S X(4)="FCA"
. S X(4)=X(4)_U I $P(ENFAP(4),U,6)]"" D ; only send equity when $ chg'd
. . I $P(ENFAP(3),U,8)="00" S X(4)=X(4)_$P(ENEQ(9),U,9) ; equity for FA
. . E S X(4)=X(4)_$P($G(^ENG(6915.3,ENFB("DA"),6)),U,2) ; equity for FB
. S X(4)=X(4)_"^^^^^^^^"_$P(ENFAP(4),U,6) ; asset value 1
. S X(4)=X(4)_"^^^^^^^^~"
FD I ENFAP("DOC")="FD" D
. ; FD2 not defined
. S X(3)="LIN^~"
. S X(4)="FDA"
. D FANUM^ENFAXMT3(4) S X(4)=X(4)_U_$P(ENFAP(5),U,4,9)_"^~"
Q
;
;ENFAXMT1
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HENFAXMT1 1414 printed Dec 13, 2024@01:53:52 Page 2
ENFAXMT1 ;WASHINGTON IRMFO/KLD/DH; CREATE Fx2, Fx3, FxA DOCS ;3/21/96
+1 ;;7.0;ENGINEERING;**29**;Aug 17, 1993
+2 ;This routine should not be modified.
ST ;Build X(2) thru X(4)
+1 ; not executed for FR doc
if ENFAP("DOC")="FR"
QUIT
FA IF ENFAP("DOC")="FA"
Begin DoDot:1
+1 ; don't send FA2
+2 SET X(3)="LIN^~"
+3 ; equity account 1
SET X(4)="FAA"_U_$PIECE(ENEQ(9),U,9)
+4 ; asset value 1
SET X(4)=X(4)_"^^^^^^^^"_$PIECE(ENEQ(2),U,3)
+5 SET X(4)=X(4)_"^^^^^^^^~"
End DoDot:1
FB IF ENFAP("DOC")="FB"
Begin DoDot:1
+1 SET X(2)="FB2^^^^^^^"_$PIECE(ENFAP(4),U,4)_"^^~"
+2 SET X(3)="LIN^~"
+3 ; equity account 1
SET X(4)="FBA"_U_$PIECE(ENFAP(6),U,2)
+4 ; asset value 1
SET X(4)=X(4)_"^^^^^^^^"_$PIECE(ENFAP(4),U,4)
+5 SET X(4)=X(4)_"^^^^^^^^~"
End DoDot:1
FC IF ENFAP("DOC")="FC"
Begin DoDot:1
+1 SET X(2)="FC2^^^^^^^"_$PIECE(ENFAP(4),U,3)_"^^^^"_$PIECE(ENFAP(4),U,6)
+2 SET X(2)=X(2)_"^^^^^^^^^^"
+3 IF $PIECE($GET(ENFAP(4)),U,14)]""
SET X(2)=X(2)_$PIECE(ENFAP(4),U,14,16)
+4 IF '$TEST
SET X(2)=X(2)_"^^"
+5 SET $PIECE(X(2),U,27)="~"
+6 SET X(3)="LIN^~"
+7 SET X(4)="FCA"
+8 ; only send equity when $ chg'd
SET X(4)=X(4)_U
IF $PIECE(ENFAP(4),U,6)]""
Begin DoDot:2
+9 ; equity for FA
IF $PIECE(ENFAP(3),U,8)="00"
SET X(4)=X(4)_$PIECE(ENEQ(9),U,9)
+10 ; equity for FB
IF '$TEST
SET X(4)=X(4)_$PIECE($GET(^ENG(6915.3,ENFB("DA"),6)),U,2)
End DoDot:2
+11 ; asset value 1
SET X(4)=X(4)_"^^^^^^^^"_$PIECE(ENFAP(4),U,6)
+12 SET X(4)=X(4)_"^^^^^^^^~"
End DoDot:1
FD IF ENFAP("DOC")="FD"
Begin DoDot:1
+1 ; FD2 not defined
+2 SET X(3)="LIN^~"
+3 SET X(4)="FDA"
+4 DO FANUM^ENFAXMT3(4)
SET X(4)=X(4)_U_$PIECE(ENFAP(5),U,4,9)_"^~"
End DoDot:1
+5 QUIT
+6 ;
+7 ;ENFAXMT1
