|
Last change
on this file since 1270 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
502 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | PRCAFOR ;WASH-ISC@ALTOONA,PA/RGY-VIA A FORM FROM BILLING MODULE ;6/22/93 2:20 PM
|
|---|
| 2 | V ;;4.5;Accounts Receivable;**198**;Mar 20, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | NEW DIC,Y,PRCAP,L,FR,TO,BY,FLDS
|
|---|
| 5 | N DPTNOFZY,DPTNOFZK S (DPTNOFZY,DPTNOFZK)=1
|
|---|
| 6 | D SVC^PRCABIL G:'$D(PRCAP("S")) Q
|
|---|
| 7 | BEG F S DIC="^PRCA(430,",DIC(0)="QEAM",DIC("S")="I +$G(^(100)),$P($G(^(100)),""^"",2)=PRCAP(""S"")" D ^DIC G:Y<0 Q S L=0,FLDS="[PRCA VENDOR PROFILE]",(FR,TO)=+Y,BY="@NUMBER" D EN1^DIP
|
|---|
| 8 | Q Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
