| 1 | ENFAXMT3 ;WCIOFO/KLD/DH; TRANSMIT FAP RECORDS ;11/13/2000
|
|---|
| 2 | ;;7.0;ENGINEERING;**29,39,57,66**;Aug 17, 1993
|
|---|
| 3 | ;This routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | CSN S X(1)=X(1)_U,ENFA("CSN")=$P(ENFADAT(2),U,8) Q:'ENFA("CSN")
|
|---|
| 6 | S ENFA("CSN")=$P(^ENCSN(6917,ENFA("CSN"),0),U)
|
|---|
| 7 | I $E(ENFA("CSN"),1,2)'=70 S X(1)=X(1)_$E(ENFA("CSN"),1,2)_"00" Q
|
|---|
| 8 | I +ENFA("CSN")'=7020,+ENFA("CSN")'=7021,+ENFA("CSN")'=7025,+ENFA("CSN")'=7035,+ENFA("CSN")'=7040,+ENFA("CSN")'=7050 S X(1)=X(1)_$E(ENFA("CSN"),1,4)
|
|---|
| 9 | E S X(1)=X(1)_7000
|
|---|
| 10 | Q
|
|---|
| 11 | ;
|
|---|
| 12 | FANUM(N) N STATION S STATION=$S(ENFAP("STATION")]"":ENFAP("STATION"),1:ENFAP("SITE")) S STATION=STATION_" ",STATION=$E(STATION,1,5)
|
|---|
| 13 | S X(N)=X(N)_U_STATION_ENEQ("DA") ;FA Number
|
|---|
| 14 | I $P(ENEQ(8),U,6),ENFAP("DOC")'="FD" S ENFAP("TY")=$P(^ENG(6914.3,$P(ENEQ(8),U,6),0),U,3)
|
|---|
| 15 | E S ENFA("DA")=$P($$CHKFA^ENFAUTL(ENEQ("DA")),U,4),ENFAP("TY")=$P(^ENG(6915.2,ENFA("DA"),3),U,6)
|
|---|
| 16 | S X(N)=X(N)_U_ENFAP("TY") ; FA Type
|
|---|
| 17 | Q
|
|---|
| 18 | ;
|
|---|
| 19 | BUDFY(FUND) ;
|
|---|
| 20 | N ENY
|
|---|
| 21 | S ENY=$G(^ENG(6914.6,FUND,0))
|
|---|
| 22 | I $P(ENY,U)="4539" S ENFAP("BUDFY")="2000" G BUDFYX ; franchise EN*7*66
|
|---|
| 23 | I $P(ENY,U,3) S ENFAP("BUDFY")="1994" G BUDFYX ; revolving fund
|
|---|
| 24 | I $E($P(ENY,U),1,4)="AMAF" S ENFAP("BUDFY")="1995" G BUDFYX ; amafxx
|
|---|
| 25 | ;S ENFAP("BUDFY")=$E($P(ENEQ(2),U,4),1,3)+1700+$E($P(ENEQ(2),U,4),4)
|
|---|
| 26 | S ENFAP("BUDFY")=$E(DT,1,3)+1700+$E(DT,4)
|
|---|
| 27 | BUDFYX ;
|
|---|
| 28 | S X(1)=X(1)_U_$E(ENFAP("BUDFY"),3,4)
|
|---|
| 29 | Q
|
|---|
| 30 | ;
|
|---|
| 31 | XPROG ; append ACC Code to X(1)
|
|---|
| 32 | ; input
|
|---|
| 33 | ; ENFAP("STATION") - station number
|
|---|
| 34 | ; ENFAP("SITE") - station number
|
|---|
| 35 | ; $P(ENEQ(8),U,3) - FCP
|
|---|
| 36 | ; $P(ENEQ(2),U,4) - acquisition date
|
|---|
| 37 | ; ENFAP("BUDFY") - 4 digit beginning budget fiscal year
|
|---|
| 38 | ; output
|
|---|
| 39 | ; X(1)
|
|---|
| 40 | N ENACC
|
|---|
| 41 | S ENACC="000000000" ; default value - always send per Bob Landrum
|
|---|
| 42 | ;S X="PRC0C" X ^%ZOSF("TEST") D:$T
|
|---|
| 43 | ;. N ENSN,ENFCP,ENDOCFY,ENX
|
|---|
| 44 | ;. S ENSN=$S(ENFAP("STATION")]"":ENFAP("STATION"),1:ENFAP("SITE"))
|
|---|
| 45 | ;. S ENFCP=$P(ENEQ(8),U,3)
|
|---|
| 46 | ;. S ENDOCFY=$E($E($P(ENEQ(2),U,4),1,3)+$E($P(ENEQ(2),U,4),4),2,3)
|
|---|
| 47 | ;. Q:ENSN=""!(ENFCP="")!(ENDOCFY="")!(ENFAP("BUDFY")="")
|
|---|
| 48 | ;. S ENX=$$ACC^PRC0C(ENSN,ENFCP_U_ENDOCFY_U_ENFAP("BUDFY"))
|
|---|
| 49 | ;. I $P(ENX,U,3)?9AN S ENACC=$P(ENX,U,3)
|
|---|
| 50 | S X(1)=X(1)_U_ENACC ;Xprog
|
|---|
| 51 | Q
|
|---|
| 52 | ;
|
|---|
| 53 | ;ENFAXMT3
|
|---|
