| 1 | PRCFDS ;WISC/LEM-HANDLE FMS ACCOUNTING LINES ;6/7/94 9:39 AM
|
|---|
| 2 | V ;;5.1;IFCAP;;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | N DA S DA(1)=$G(PRCF("CIDA")) Q:DA(1)=""
|
|---|
| 5 | N NODE S NODE=$G(^PRCF(421.5,DA(1),5,0))
|
|---|
| 6 | I NODE="" S ^PRCF(421.5,DA(1),5,0)=U_$P(^DD(421.5,41,0),U,2)
|
|---|
| 7 | N CTR,I S (CTR,I)=0 F S I=$O(PRCFD(I)) Q:I'>0 D
|
|---|
| 8 | . S CTR=$S(I=991:CTR,1:CTR+1),CTR=$S(CTR=991:992,1:CTR)
|
|---|
| 9 | . N DIC S DIC="^PRCF(421.5,"_DA(1)_",5,",DIC(0)="L"
|
|---|
| 10 | . S X=$P(PRCFD(I),U,1),AMT=+$P(PRCFD(I),U,2)
|
|---|
| 11 | . K DD,DO D FILE^DICN I Y'>0 W "ERROR" Q
|
|---|
| 12 | . N DIE S DIE=DIC,DA=+Y,FMSL=$S(I=991:991,1:CTR)
|
|---|
| 13 | . N DR S DR="1////^S X=AMT;2////^S X=FMSL" D ^DIE
|
|---|
| 14 | . Q
|
|---|
| 15 | Q
|
|---|
| 16 | PAY W ?5,"Up to three sets of PROMPT PAYMENT TERMS may be sent to FMS with each"
|
|---|
| 17 | W !?5,"Payment Voucher (PV) generated by the IFCAP Payment/Invoice Tracking"
|
|---|
| 18 | W !?5,"module. Enter 1, 2, or 3 to indicate which set of PROMPT PAYMENT TERMS"
|
|---|
| 19 | W !?5,"you wish to enter or edit.",!
|
|---|
| 20 | Q
|
|---|
