Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: RCAMLET

RCAMLET.m

Go to the documentation of this file.

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HRCAMLET   320     printed  Oct 16, 2024@17:43:21                                                                                                                                                                                                      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