close Warning: Can't use blame annotator:
svn blame failed on WorldVistAEHR/trunk/r/ENGINEERING-EN/ENFARC.m: 'GenericSWIGWrapper' object has no attribute '_wrap'

source: WorldVistAEHR/trunk/r/ENGINEERING-EN/ENFARC.m@ 975

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

initial load of WorldVistAEHR

File size: 1.3 KB
RevLine 
1ENFARC ;WIRMFO/SAB-FIXED ASSET RPT, TRANSACTION REGISTER; 6/30/97
2 ;;7.0;ENGINEERING;**39**;Aug 17, 1993
3EN ; Report FAP Documents (FA, FB, FC, FD, and FR) during Selected Period
4 ;
5ASKDATE ; ask start date
6 S DIR(0)="D^::EX",DIR("A")="Start Date"
7 S ENX("Y")=$E(DT,1,3),ENX("M")=$E(DT,4,5)
8 S ENX=$S(ENX("M")="01":(ENX("Y")-1)_"12",1:ENX("Y")_$E("00",1,2-$L(ENX("M")-1))_(ENX("M")-1))_"01"
9 S DIR("B")=$$FMTE^XLFDT(ENX,"2D")
10 D ^DIR K DIR,ENX G:$D(DIRUT) EXIT
11 S ENDTS=Y
12 ; ask end date
13 S DIR(0)="D^::EX",DIR("A")="End Date"
14 S ENDTE=$$EOM^ENUTL(ENDTS)
15 S DIR("B")=$$FMTE^XLFDT(ENDTE,"2D")
16 D ^DIR K DIR G:$D(DIRUT) EXIT
17 I Y<ENDTS W $C(7),!,"End date must be after start date!",! G ASKDATE
18 S ENDTE=Y
19 ; ask about adjustment vouchers
20 S DIR(0)="Y",DIR("A")="Include Adjustment Voucher data",DIR("B")="YES"
21 S DIR("?",1)="Answer YES if you want adjustment voucher reason codes"
22 S DIR("?",2)="and comments (if any) to print with the FAP Documents."
23 S DIR("?",3)=" "
24 S DIR("?")="Enter 'Y' or 'N'"
25 D ^DIR K DIR G:$D(DIRUT) EXIT
26 S ENAV=Y
27 ; ask device
28 S %ZIS="QM" D ^%ZIS G:POP EXIT
29 I $D(IO("Q")) D G EXIT
30 . S ZTRTN="QEN^ENFARC1",ZTDESC="Transaction Register Report"
31 . F X="ENDTS","ENDTE","ENAV" S ZTSAVE(X)=""
32 . D ^%ZTLOAD,HOME^%ZIS K ZTSK
33 D QEN^ENFARC1
34EXIT ;
35 K DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
36 K ENAV,ENDTE,ENDTS
37 Q
38 ;ENFARC
Note: See TracBrowser for help on using the repository browser.