Routine: LRBLDEL

Information

LRBLDEL ; IHS/DIR/FJE - DELETE FILE 65 ENTRIES 8/14/90 14:36 ;

Source file <LRBLDEL.m>

Package	Total	Call Graph
Lab Service	3	K^LRBLU (D,V,WAIT,YN)^LRU ^LRUTL
VA Fileman	1	^%DT

Package	Total	Caller Graph
Lab Service	1	LRBLSER

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?25,"DELETE INVENTORY FILE ENTRIES",!?28,"WITH FINAL DISPOSITIONS" Line Location: LRBLDEL+5
Function Call: WRITE	Prompt: !,"." Line Location: LRBLDEL+9
Function Call: WRITE	Prompt: $C(7),!!,"Deletion completed.",! Line Location: OUT+0
Function Call: WRITE	Prompt: !,"Did you check the backup tape " Line Location: A+2
Function Call: WRITE	Prompt: ! Line Location: A+2

Name	Line Occurrences (* Changed, ! Killed)
^LRD(65 - [#65]	LRBLDEL+10, OUT, K!, K+1!, K+2!, K+3!, K+5!, K+6!, A+4
^LRO(69.2 - [#69.2]	LRBLDEL+6, LRBLDEL+7, LRBLDEL+10, OUT!, K+6!
^XUSEC("LRLIASON"	LRBLDEL+6

Name	Line Occurrences
A	LRBLDEL+6
B	A+3
END	LRBLDEL+4, LRBLDEL+6, LRBLDEL+8, OUT, A, A+1, A+2, A+3
K	LRBLDEL+10, A+4
OUT	A+5

Name	Field # of Occurrence
>> %	LRBLDEL+8, A+1, A+2*
%DT	B!, B+2!
%DT("A"	B, B+2
%DT(0	B*
>> A	A+4*
>> C	LRBLDEL+10, K+6, A+4
>> DA	K+4*
DUZ	LRBLDEL+6
>> E	LRBLDEL+10, K+6, A+4
>> LR	LRBLDEL+7, OUT, K+7, A+3*
>> LRA	LRBLDEL+10*, K
>> LRAA	LRBLDEL+6, LRBLDEL+7, LRBLDEL+10, OUT, K+6
>> LRLDT	A+3, A+4, B+3, B+4
>> LRLST	B+4*
>> LRP	K+2*
>> LRSDT	A+3, A+4, B+1, B+3, B+4
>> LRSTR	B+4*
>> R	LRBLDEL+10, K+6, A+4
U	LRBLDEL+8
>> V	K, K+1, K+3*
>> W	K, K+1, K+3*
>> X	LRBLDEL+4, LRBLDEL+7, LRBLDEL+8, LRBLDEL+10, OUT, K, K+1, K+2, K+3, K+4 , K+5, K+6, A+4, B+3
>> X(1	OUT, K+5
>> Y	LRBLDEL+4, LRBLDEL+10, K+3, A+3, A+4, B+1, B+3, B+4
>> Z	LRBLDEL+10, K+6, A+4

Name	Field # of Occurrence
$T(LRBLDEL+1	A