|
Last change
on this file since 1166 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
314 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | RCAMLET ;WASH-ISC@ALTOONA,PA/RGY-Edit AR Form letters ;2/22/95 4:12 PM
|
|---|
| 2 | V ;;4.5;Accounts Receivable;;Mar 20, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | NEW DIC,DIE,DLAYGO,DR,DA,Y
|
|---|
| 5 | F W ! S DIC="^RC(343,",DIC(0)="QEAML",DLAYGO=343 D ^DIC Q:Y<0 S DA=+Y,DR=1,DIE="^RC(343," D ^DIE
|
|---|
| 6 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
