Routine: LRBLJPA

Customize PDF page

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

Information

LRBLJPA ;AVAMC/REG/CYM - BB INVENTORY FINAL DISPOSITION ;6/20/96 09:22 ;

Source Information

Source file <LRBLJPA.m>

Call Graph

Call Graph Total: 3

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

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRBLRUF

Entry Points

Name	Comments	DBIA/ICR reference
QUE
SET
END

External References

Name	Field # of Occurrence
^LRBLJPA1	QUE+3
B^LRU	LRBLJPA+9
L^LRU	QUE
S^LRU	QUE
V^LRU	END
YN^LRU	LRBLJPA+7
^LRUTL	LRBLJPA+3
BEG^LRUTL	LRBLJPA+10
END^LRUTL	QUE+4

Interaction Calls

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

Global Variables Directly Accessed

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

Label References

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

Naked Globals

Name	Field # of Occurrence
^(0	LRBLJPA+4, LRBLJPA+5, QUE+1
^(1	QUE*
^(4	QUE+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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