source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENFAXMT1.m@ 1593

Last change on this file since 1593 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.3 KB
Line 
1ENFAXMT1 ;WASHINGTON IRMFO/KLD/DH; CREATE Fx2, Fx3, FxA DOCS ;3/21/96
2 ;;7.0;ENGINEERING;**29**;Aug 17, 1993
3 ;This routine should not be modified.
4ST ;Build X(2) thru X(4)
5 Q:ENFAP("DOC")="FR" ; not executed for FR doc
6FA I ENFAP("DOC")="FA" D
7 . ; don't send FA2
8 . S X(3)="LIN^~"
9 . S X(4)="FAA"_U_$P(ENEQ(9),U,9) ; equity account 1
10 . S X(4)=X(4)_"^^^^^^^^"_$P(ENEQ(2),U,3) ; asset value 1
11 . S X(4)=X(4)_"^^^^^^^^~"
12FB I ENFAP("DOC")="FB" D
13 . S X(2)="FB2^^^^^^^"_$P(ENFAP(4),U,4)_"^^~"
14 . S X(3)="LIN^~"
15 . S X(4)="FBA"_U_$P(ENFAP(6),U,2) ; equity account 1
16 . S X(4)=X(4)_"^^^^^^^^"_$P(ENFAP(4),U,4) ; asset value 1
17 . S X(4)=X(4)_"^^^^^^^^~"
18FC I ENFAP("DOC")="FC" D
19 . S X(2)="FC2^^^^^^^"_$P(ENFAP(4),U,3)_"^^^^"_$P(ENFAP(4),U,6)
20 . S X(2)=X(2)_"^^^^^^^^^^"
21 . I $P($G(ENFAP(4)),U,14)]"" S X(2)=X(2)_$P(ENFAP(4),U,14,16)
22 . E S X(2)=X(2)_"^^"
23 . S $P(X(2),U,27)="~"
24 . S X(3)="LIN^~"
25 . S X(4)="FCA"
26 . S X(4)=X(4)_U I $P(ENFAP(4),U,6)]"" D ; only send equity when $ chg'd
27 . . I $P(ENFAP(3),U,8)="00" S X(4)=X(4)_$P(ENEQ(9),U,9) ; equity for FA
28 . . E S X(4)=X(4)_$P($G(^ENG(6915.3,ENFB("DA"),6)),U,2) ; equity for FB
29 . S X(4)=X(4)_"^^^^^^^^"_$P(ENFAP(4),U,6) ; asset value 1
30 . S X(4)=X(4)_"^^^^^^^^~"
31FD I ENFAP("DOC")="FD" D
32 . ; FD2 not defined
33 . S X(3)="LIN^~"
34 . S X(4)="FDA"
35 . D FANUM^ENFAXMT3(4) S X(4)=X(4)_U_$P(ENFAP(5),U,4,9)_"^~"
36 Q
37 ;
38 ;ENFAXMT1
Note: See TracBrowser for help on using the repository browser.