RCAMLET ;WASH-ISC@ALTOONA,PA/RGY-Edit AR Form letters ;2/22/95 4:12 PM
V ;;4.5;Accounts Receivable;;Mar 20, 1995
;;Per VHA Directive 10-93-142, this routine should not be modified.
NEW DIC,DIE,DLAYGO,DR,DA,Y
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
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCAMLET 320 printed Sep 02, 2024@18:27:52 Page 2
RCAMLET ;WASH-ISC@ALTOONA,PA/RGY-Edit AR Form letters ;2/22/95 4:12 PM
V ;;4.5;Accounts Receivable;;Mar 20, 1995
+1 ;;Per VHA Directive 10-93-142, this routine should not be modified.
+2 NEW DIC,DIE,DLAYGO,DR,DA,Y
+3 FOR
WRITE !
SET DIC="^RC(343,"
SET DIC(0)="QEAML"
SET DLAYGO=343
DO ^DIC
if Y<0
QUIT
SET DA=+Y
SET DR=1
SET DIE="^RC(343,"
DO ^DIE
+4 QUIT