Routine: LRBLJPA

Information

LRBLJPA ; IHS/DIR/AAB - BB INVENTORY FINAL DISPOSITION 6/20/96 09:22 ;

Source file <LRBLJPA.m>

Package	Total	Call Graph
Lab Service	3	^LRBLJPA1 (B,L,S,V,YN)^LRU (,BEG,END)^LRUTL

Package	Total	Caller Graph
Lab Service	1	LRBLRUF

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,?18,"INVENTORY- UNITS WITH FINAL DISPOSITION",!?21,"FROM ONE DATE RECEIVED TO ANOTHER",! Line Location: LRBLJPA+6
Function Call: WRITE	Prompt: $C(7),!,"There is a list of units printed by ",$P(^VA(200,X,0),"^"),!,"They should be deleted before printing another list. OK " Line Location: LRBLJPA+7
Function Call: WRITE	Prompt: !!,"Use supervisor option RU- Remove units with final disposition to delete list.",! Line Location: LRBLJPA+8

Name	Line Occurrences (* Changed, ! Killed)
^LRD(65 - [#65]	QUE+1
^LRO(69.2 - [#69.2]	LRBLJPA+4, LRBLJPA+5, LRBLJPA+7, QUE!, QUE+2, SET*
^VA(200 - [#200]	LRBLJPA+7

Name	Line Occurrences
END	LRBLJPA+3, LRBLJPA+8, LRBLJPA+9, LRBLJPA+10, QUE+4
SET	QUE+1

Name	Field # of Occurrence
>> %	LRBLJPA+7*, LRBLJPA+8
>> %Y	LRBLJPA+7*, LRBLJPA+8
>> A	QUE+2*
>> B	QUE+1*
DUZ	QUE
IO	QUE
IOF	LRBLJPA+6
>> LR	QUE, QUE+2, SET
>> LRAA	LRBLJPA+4, LRBLJPA+5, LRBLJPA+7, QUE, QUE+2, SET
>> LRI	QUE+1*, SET
>> LRLDT	LRBLJPA+9*, QUE+1
>> LRLST	QUE
>> LRND	QUE+1*, SET
>> LRSDT	LRBLJPA+9, QUE+1
>> LRSTR	QUE
LRTABO	END!
LRTINS	END!
LRTRH	END!
>> POP	LRBLJPA+10
U	QUE
>> X	LRBLJPA+3, LRBLJPA+5, LRBLJPA+7*
>> Y	LRBLJPA+3, LRBLJPA+9
>> ZTRTN	LRBLJPA+10*
>> ZTSK	LRBLJPA+10