Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Source | Call Graph | Caller Graph | Entry Points | External References | Interaction Calls | FileMan Files Accessed Via FileMan Db Call | Global Variables Directly Accessed | Label References | Naked Globals | Local Variables | All

Print Page as PDF

Routine: LRBLJCK

Package: Lab Service

Routine: LRBLJCK

Information

LRBLJCK ; IHS/DIR/AAB - INVENTORY ABO/RH CK 7/30/95 15:38 ;

Source Information

Source file <LRBLJCK.m>

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
Lab Service	7	BAR^LRBLB ^LRBLBU DT^LRBLU (,S)^LRBLW (D,V,WAIT,YN)^LRU ^LRUTL X^LRUWK
VA Fileman	3	^%DT ^DIC ^DIE

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRBLIUC

Entry Points

Name	Comments	DBIA/ICR reference
A
EN	;
E
I
ST
ASK
END
ABO
RH
SD

External References

Name	Field # of Occurrence
^%DT	I+2
^DIC	E+4
^DIE	E+5, A
BAR^LRBLB	EN+3
^LRBLBU	E+1
DT^LRBLU	E+5, I+4
^LRBLW	ABO+1, RH+1
S^LRBLW	EN+1
D^LRU	I+3
V^LRU	EN+1, END
WAIT^LRU	I+3
YN^LRU	EN+3, A
^LRUTL	EN+1
X^LRUWK	EN+2

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "UNIT ID: " Formatting: !! Timeout: DTIME Variable: X Line Location: E+0
Function Call: WRITE	Prompt: !!,$C(7),$S($D(^DD(65,.01,3)):^(3),1:""),! Line Location: E+3
Function Call: WRITE	Prompt: $C(7)," (NOT IN INVENTORY FILE)" Line Location: E+4
Function Call: WRITE	Prompt: !!,"Enter TEST COMMENT(s) " Line Location: EN+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+0
Function Call: WRITE	Prompt: !!?14,"1) Enter by invoice# (batch)",!?14,"2) Entry by unit ID",!,"Select 1 or 2:" Line Location: ASK+0
Function Call: WRITE	Prompt: $C(7),!,"Enter a '1' to automatically request data entry for all units in a given invoice",!,"Enter a '2' to specify unit ID" Line Location: ASK+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: I+0
Function Call: WRITE	Prompt: !,^(3) Condition for execution: $D(^(3)) Line Location: I+0
Function Call: WRITE	Prompt: $C(7),!!,"There are no units in inventory for invoice# ",LRA," for " Line Location: I+3
Function Call: WRITE	Prompt: Y Line Location: I+3
Function Call: WRITE	Prompt: !!,LRD(1) Line Location: A+0
Function Call: WRITE	Prompt: !!,"WANT TO STOP LOOPING " Line Location: A+0
Routine Call	DIE Line Location: E+5 A
Routine Call	DIC Line Location: E+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LRD(65 - [#65]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(65	E+2, E+3, I
^LAB(66 - [#66]	SD, ST
^LRD(65 - [#65]	SD, ST, ABO, RH
^TMP($J	SD, ST, I+3, I+4

Label References

Name	Line Occurrences
@(	I+3
A	I+4
ABO	E+5, A+1
ASK	ASK+1, I+3
E	E+1, E+3, E+4, E+6, ASK+2, I+5
END	E, EN+1, EN+2, EN+3, ASK, I, I+2
I	I
RH	E+5, A+1

Naked Globals

Name	Field # of Occurrence
^(0	I
^(3	E+3, I
^(4	E+3, I

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EN+3, A
%DT	I+2*!
%DT("A"	I+2*
%DT(0	I+2*
>> A	SD, ST, ABO, RH, EN+2*
>> DA	E+5, A
DIC	E+4*!
DIC("S"	E+4*
DIC(0	E+4*
>> DIE	E+5, ASK+2, A*
>> DR	E+5, A
DTIME	E, ASK, I
DUZ	EN+1
>> LR	E+1
>> LR("M"	EN+1*
>> LR(2	E+1
>> LR(3	ASK+2*
>> LRA	SD, ST, I+1, I+3, I+4
>> LRAA(4	EN+1
>> LRB	I+2*, I+3
>> LRCAPA	E+5, ABO+1, RH+1, EN+2, A+1
>> LRD	I+4*, A
>> LRD(1	I+4*, A
LRE	EN+1!, I+4, I+5, A*
>> LRQ	EN+3*
LRT	ABO!, RH!, EN+2!, EN+3!
LRT(	ABO, RH, EN+2
>> LRW(	EN+2*
>> LRW("ABO"	ABO
>> LRW("RH"	RH
>> LRW(10	E, E+5, A, A+1
>> LRW(11	E, E+5, A, A+1
>> LRX	E+5, ABO, RH, A
>> T	SD*
U	ASK, I
X	SD, ST, E, E+1, E+2!, E+3, EN+1, EN+2, ASK, ASK+1 , ASK+2, I*, I+1
>> Y	SD, ST, E+4, E+5, EN+1, EN+2, I+2, I+3*, A
>> Y(1	SD*

Info | Source | Call Graph | Caller Graph | Entry Points | External References | Interaction Calls | FileMan Files Accessed Via FileMan Db Call | Global Variables Directly Accessed | Label References | Naked Globals | Local Variables | All