source: WorldVistAEHR/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCFDS.m@ 1710

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

initial load of WorldVistAEHR

File size: 943 bytes
RevLine 
[613]1PRCFDS ;WISC/LEM-HANDLE FMS ACCOUNTING LINES ;6/7/94 9:39 AM
2V ;;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
16PAY 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
Note: See TracBrowser for help on using the repository browser.