Routine: LRBLDELT

Information

LRBLDELT ; IHS/DIR/FJE - 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	Line Occurrences
Function Call: WRITE	Prompt: !!?25,"DELETE INVENTORY FILE ENTRIES",!?28,"WITH FINAL DISPOSITIONS" Line Location: LRBLDELT+5
Function Call: WRITE	Prompt: !!?20,"Delete units (which have final dispositions)",!?20,"received prior to:" Line Location: LRBLDELT+7
Function Call: WRITE	Prompt: !,"." Line Location: LRBLDELT+10
Function Call: WRITE	Prompt: $C(7),!!,"Deletion completed.",! Line Location: LRBLDELT+12

Name	Line Occurrences (* Changed, ! Killed)
^LRD(65 - [#65]	LRBLDELT+11, LRBLDELT+12, 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+4, LRBLDELT+6, LRBLDELT+8, LRBLDELT+9
K	LRBLDELT+11

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

Name	Comments	DBIA/ICR reference
K
END