Routine: LRBLDELT

Select the objects that you wish to see in the downloaded PDF

Information

LRBLDELT ;AVAMC/REG - DELETE FILE 65 ENTRIES ;8/18/89 10:55 ;

Source file <LRBLDELT.m>

Package	Total	Call Graph
Lab Service	2	(D,V,WAIT,YN)^LRU ^LRUTL
VA FileMan	2	^%DT C^%DTC

Name	Comments	DBIA/ICR reference
K
END

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?25,"DELETE INVENTORY FILE ENTRIES",!?28,"WITH FINAL DISPOSITIONS" Line Location: LRBLDELT+4
Function Call: WRITE	Prompt: !!?20,"Delete units (which have final dispositions)",!?20,"received prior to:" Line Location: LRBLDELT+6
Function Call: WRITE	Prompt: !,"." Line Location: LRBLDELT+9
Function Call: WRITE	Prompt: $C(7),!!,"Deletion completed.",! Line Location: LRBLDELT+11

Name	Line Occurrences (* Changed, ! Killed)
^LRD(65 - [#65]	LRBLDELT+10, LRBLDELT+11, K, K+1, K+2!, K+3!, K+4!, K+5!, K+6!, K+7!
^LRO(69.2 - [#69.2]	K+7!

Name	Line Occurrences
END	LRBLDELT+3, LRBLDELT+5, LRBLDELT+7, LRBLDELT+8
K	LRBLDELT+10

Name	Field # of Occurrence
>> %	LRBLDELT+5, LRBLDELT+8
%DT	LRBLDELT+7*!
%DT("A"	LRBLDELT+7*
>> C	K+1*, K+7
>> E	K+1*, K+7
>> LR	LRBLDELT+7, LRBLDELT+8, LRBLDELT+9, LRBLDELT+11, K+2, K+8*
>> LRA	LRBLDELT+10*
>> LRAA	K+7
>> LRI	LRBLDELT+10*, K, K+1, K+2, K+3, K+4, K+5, K+6, K+7
>> LRLDT	LRBLDELT+7*, LRBLDELT+10
>> LRP	K+3*
>> R	K+1*, K+7
>> V	K+2, K+4
>> W	K+2, K+4
>> X	LRBLDELT+3, LRBLDELT+7, LRBLDELT+11
>> X(1	LRBLDELT+11, K+5, K+6*
>> X1	LRBLDELT+7*
>> X2	LRBLDELT+7*
>> Y	LRBLDELT+3, LRBLDELT+7, K+1, K+4
>> Z	K+1*, K+5, K+7