source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCAMLET.m@ 1042

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

initial load of WorldVistAEHR

File size: 314 bytes
Line 
1RCAMLET ;WASH-ISC@ALTOONA,PA/RGY-Edit AR Form letters ;2/22/95 4:12 PM
2V ;;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.