source: FOIAVistA/trunk/r/ENGINEERING-EN/ENFAXMT3.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 2.1 KB
Line 
1ENFAXMT3 ;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 ;
5CSN 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 ;
12FANUM(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 ;
19BUDFY(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)
27BUDFYX ;
28 S X(1)=X(1)_U_$E(ENFAP("BUDFY"),3,4)
29 Q
30 ;
31XPROG ; 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
Note: See TracBrowser for help on using the repository browser.