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

PRCAEA.m

Go to the documentation of this file.

PRCAEA ;SF-ISC/LJP-LOCK FOR IN/REACTIVATE VENDOR ;6/30/92  12:49 PM

V ;;4.5;Accounts Receivable;;Mar 20, 1995

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

LCK L @("+"_DIC_DA_"):15") I '$T W !,*7,"ANOTHER USER IS EDITING THIS ENTRY!" K DA

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCAEA   270     printed  Dec 13, 2024@01:39:22                                                                                                                                                                                                       Page 2

PRCAEA    ;SF-ISC/LJP-LOCK FOR IN/REACTIVATE VENDOR ;6/30/92  12:49 PM

V         ;;4.5;Accounts Receivable;;Mar 20, 1995

 +1       ;;Per VHA Directive 10-93-142, this routine should not be modified.

LCK        LOCK @("+"_DIC_DA_"):15")

           IF '$TEST

               WRITE !,*7,"ANOTHER USER IS EDITING THIS ENTRY!"

               KILL DA

 +1        QUIT