| [613] | 1 | ENFARC ;WIRMFO/SAB-FIXED ASSET RPT, TRANSACTION REGISTER; 6/30/97
|
|---|
| 2 | ;;7.0;ENGINEERING;**39**;Aug 17, 1993
|
|---|
| 3 | EN ; Report FAP Documents (FA, FB, FC, FD, and FR) during Selected Period
|
|---|
| 4 | ;
|
|---|
| 5 | ASKDATE ; 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
|
|---|
| 34 | EXIT ;
|
|---|
| 35 | K DIR,DIROUT,DIRUT,DTOUT,DUOUT,X,Y
|
|---|
| 36 | K ENAV,ENDTE,ENDTS
|
|---|
| 37 | Q
|
|---|
| 38 | ;ENFARC
|
|---|
