source:
WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCAMLET.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
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.