Routine: LRPHITEM

Information

LRPHITEM ;SLC/CJS/RWF-ITEMIZED LOGIN ;6/24/91 10:49 [ 04/08/2003 9:05 AM ]

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Lab Service	9	NEW^LR7OB1 $$VER^LR7OU1 FNDLOC^LRDRAW END^LRPHITE1 OUT^LRPHITE2 EXCEPT^LRPHITE3 FX2^LRTSTOUT OR^LRWLST PT^LRX
Automated Lab Instruments	1	EN^LA7ADL
IHS Changes To Lab	1	^BLREVTQ
Kernel	1	$$NOW^XLFDT
VA Fileman	1	YN^DICN

Caller Graph

Caller Graph Total: 7

Package	Total	Caller Graph
Lab Service	6	LRHYPH2 LROE1 LROE2 LRPHEXPT LRPHITE1 LRPHITEM
IHS Changes To Lab	1	BLRAG05D

Entry Points

Name	Comments	DBIA/ICR reference
198	;
SKP
P15A	;
TEXT
POLY	;
SINGLE	;
LP1	;from LRPHEXPT
V1
V2	;
P15	;from LROE1, LRPHEXPT	ICR #5588 Status: Active Usage: Private
P16	;from LRPHITE1
P17
P18
LRSN	;
LEFT
E1	;
MULT	;
E2	;

External References

Name	Field # of Occurrence
^BLREVTQ	P15A+5
YN^DICN	V1+1
EN^LA7ADL	P15+33
NEW^LR7OB1	P15+29
$$VER^LR7OU1	P15A+1
FNDLOC^LRDRAW	V1
END^LRPHITE1	V1, V1+1, V2+2, V2+9, V2+11, E1+1
OUT^LRPHITE2	P18+1
EXCEPT^LRPHITE3	V2+6
FX2^LRTSTOUT	P17+4
OR^LRWLST	P15A+1
PT^LRX	P15+7
$$NOW^XLFDT	LRPHITEM+7, P15+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"All locations" Line Location: V1+1
Function Call: WRITE	Prompt: !,"Location ",LRLLOC," not found on collection list.",$C(7) Line Location: V1+2
Function Call: WRITE	Prompt: !!,$C(7),"Enter Order Numbers NOT collected: " Line Location: V2+2
Function Call: WRITE	Prompt: !,"Exceptions first." Line Location: V2+4
Function Call: WRITE	Prompt: !!,"Enter Order Numbers COLLECTED: " Line Location: V2+9
Function Call: WRITE	Prompt: !!,"DID NOT FIND THESE ORDERS:" Line Location: LEFT+0
Function Call: WRITE	Prompt: $J(LROR(I),10) Line Location: LEFT+0
Function Call: WRITE	Prompt: ! Condition for execution: $X>69 Line Location: LEFT+0
Function Call: WRITE	Prompt: !,LRLLOC," ",LRSTORE(1) Line Location: E2+10
Function Call: WRITE	Prompt: !?5,"Accession Information Corrupt for this Order",!! Line Location: P16+6
Function Call: WRITE	Prompt: !,$C(7),"CAN'T DO IT. The data has been verified for accession ",$P(^(0),U,6) Line Location: P16+7
Function Call: WRITE	Prompt: !,"REASON FOR NON-DRAW ON ORDER ",LROR(LROR) Line Location: P17+0
Function Call: WRITE	Prompt: " ",$G(LRCCOM) Line Location: P17+1
Function Call: WRITE	Prompt: !?5,"You must enter a reason.",! Line Location: P17+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: LP1+3
Function Call: WRITE	Prompt: ! Line Location: LP1+3
Function Call: WRITE	Prompt: !,"Enter a string of numbers separated with A ',' UP TO 80 CHARACTERS LONG ",! Line Location: LP1+3
Function Call: WRITE	Prompt: ! Line Location: LP1+4
Function Call: WRITE	Prompt: ! Condition for execution: $X>70 Line Location: TEXT+0
Function Call: WRITE	Prompt: +LRSN,$S(Y:" OK, ",1:" NOT ON LIST, ") Line Location: TEXT+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LR - [#63]	P16+6, P16+7
^LRO(68 - [#68]	P15+22, P15+23, P15+24, P15A+2, P15A+11, P16+3, P16+4, P16+5, P18+1
^LRO(69 - [#69]	V2+10, E2+6, E2+7, P15+3, P15+14, P15+16, P15+18, P15+19, P15+20, P15A+1* , P15A+3, P16+2, SKP, P18, LP1+5, LP1+7, SINGLE+8, SINGLE+9, SINGLE+10, SINGLE+11 , POLY+3, POLY+4, POLY+5, POLY+6, MULT+2, LRSN+6, LRSN+7, LRSN+9, LRSN+10
^LRO(69.1 - [#69.1]	V1+2

Label References

Name	Line Occurrences
E1	V2+10
E2	V2+10, E1+1
LEFT	V2+11, E1+1
LP1	V2+2, V2+9, LP1+3, 198+2
LRSN	MULT+2
P15	E2+9
P15A	P15+21
P17	SKP
P18	P17
SINGLE	LRSN+12
TEXT	LP1+6, LP1+7
V1	V1+1, V1+2

Naked Globals

Name	Field # of Occurrence
^(	P15A+3
^(0	P15+3, P16+4, P16+7, SINGLE+9, POLY+4
^(1	P15+3, P15A+3, SKP
^(3	P16+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	V1+1*
>> BLRLOG	P15A+5
>> BLROPT	LRPHITEM+5*, P15A+5
>> BLROPT(0	LRPHITEM+5*
CONTROL	P15+27~, P15+28*, P15+29
DIE	POLY+7!
DT	LRPHITEM+7, SINGLE+11, POLY+6
DTIME	LP1+3
DUZ	P15+14, SKP
DUZ(2	P15A+3
>> I	LEFT, LP1+4
>> J1	P15+3*
>> LRAA	P15+17, P15+20, P15+22, P15+23, P15+24, P15A+1, P15A+2, P15A+5, P15A+11, P16+3 , P16+4, P16+5, P18+1
>> LRAD	P15+17, P15+20, P15+22, P15+23, P15+24, P15A+2, P15A+5, P15A+11, P16+4, P16+5 , P18+1
>> LRAN	P15+17, P15+20, P15+22, P15+23, P15+24, P15A+2, P15A+5, P15A+11, P16+4, P16+5 , P18+1
>> LRBATCH	SKP
LRCCOM	P17+1, P17+4~, LP1+2!, SINGLE+6, SINGLE+10, SINGLE+12!, POLY+5, POLY+8
LRCCOM1	P17+4~, SINGLE+10, POLY+5
LRCCOMX	P17+4~
LRCOM	V2+1!, V2+8!, SINGLE+12!, POLY+9!
LRCOM(	SKP+1, 198+1*
LRCOM(999	SKP+1
LRCOM0	LP1+2!, POLY+8*
>> LRDFN	P15+4, P16+4, P16+6, P16+7
LRDPF	P15+4!, P15+26, P15A+1, P16+4*
>> LRDTM	P16+5*
>> LREND	P17+3*, P17+5
LREPISOD	P17+2!, SINGLE+2, SINGLE+3*, POLY+7!
>> LRFIRST	V2+2*
>> LRFORD	LP1+2*, 198+1
>> LRIDT	P16+5*, P16+6, P16+7
LRITN	SINGLE+5, SINGLE+9, SINGLE+10, SINGLE+11, POLY+3, POLY+4, POLY+5, POLY+6, LRSN+11~*
>> LRIX	SINGLE+5
LRLLOC	V1, V1+1, V1+2, V2+5~, V2+10*, E2+7, E2+10, P15+16, LP1+7
LRNOCOM	V2+1!, V2+9*
>> LRNOP	P16+6, P16+7
>> LRNT	LRPHITEM+7, P15+11, P15+16, P15+23, P15+24, P15A+3
LRODT	LRPHITEM+7*, V2+5~, V2+10, E2+6, E2+7, P15+3, P15+14, P15+16, P15+18, P15+19 , P15+20, P15+29, P15A+1, P15A+3, P15A+5, P16+2, SKP, P18, LP1+5, LP1+7 , SINGLE+8, SINGLE+9, SINGLE+10, SINGLE+11, POLY+3, POLY+4, POLY+5, POLY+6, MULT+2, LRSN+6 , LRSN+7, LRSN+9, LRSN+10
>> LROLLOC	P15+8*
LROR	V2+1!, V2+2, V2+4, V2+6, V2+8!, V2+9, E2+2, E2+3, E2+4, E2+12 , SKP+1, P17, LP1+2, LP1+7*
LROR(	V2+6, LEFT, E2+3, E2+4, E2+12!, P17, LP1+7*
LROR(0	V2+4, LEFT
LRORIFN	P15+1~, P15+10, P15+20, P15+28, P15A+1
LRRB	P15+6~, P15A+3*
>> LRRND	SKP+1, P17, P17+3, P17+4, P18, SINGLE+6*, SINGLE+8
LRSAMP	P17+3, 198+1, SINGLE+12!, POLY+9!
LRSN	V2+1!, V2+8!, E2+5, E2+6, E2+7, P15+3, P15+14, P15+16, P15+18, P15+19 , P15+20, P15+29, P15A+1, P15A+3, P15A+5, P16+2, SKP, P18, LP1+4, LP1+5 , LP1+7, TEXT, SINGLE+4, SINGLE+7, SINGLE+8, SINGLE+9, SINGLE+10, SINGLE+11, POLY+3, POLY+4 , POLY+5, POLY+6, MULT+2
>> LRSN0	LP1+6, SINGLE+4, MULT+1, MULT+2*, LRSN+6, LRSN+7, LRSN+9, LRSN+10
LRSPEC	P17+3, 198+1, SINGLE+12!, POLY+9!
>> LRSS	P16+3*, P16+6, P16+7
LRSTORE	E2+1~, E2+8, E2+11, P15A+7
LRSTORE(1	E2+4*, E2+6, E2+10
LRTCOM	V2+1!, V2+8!
LRTIC	POLY+1~, POLY+2, POLY+3, LRSN+8, LRSN+9, LRSN+10
>> LRTN	P15+17, P15+18, P15+19, P15+20, P15A+1
>> LRTREA	P15+9*
LRTT3	LRSN+4~, LRSN+5, LRSN+6, LRSN+7, LRSN+9, LRSN+10, LRSN+11
LRUIDA	P15+1~
LRUIDA(	P15+33, P15A+12*
>> LRWD	LP1+7*
LRX	P15+31~, P15+32, P15+33
LRX712	P15+1~, P15+3*, P15+4, P15+8, P15+10
U	LRPHITEM+5, P15+3, P15+8, P15+10, P15+14, P15+16, P15+20, P15+23, P15A+1, P15A+3 , P15A+11, P16+4, P16+5, P16+7, SKP, P18, LP1+7, SINGLE+8, SINGLE+9, SINGLE+11 , POLY+4, POLY+6, LRSN+7
>> VAIN(3	P15+9
X	V2+2, V2+9, P15+20, P15A+10~, P15A+11, P15A+12, P16+1~, SKP+1, LP1+3, LP1+4 , SINGLE+1~, SINGLE+9, SINGLE+10, SINGLE+11, POLY+4, POLY+5, POLY+6
X(1	SINGLE+9, SINGLE+10, SINGLE+11, POLY+4, POLY+5, POLY+6
>> XQY0	LRPHITEM+5
>> Y	LP1+6, LP1+7, TEXT*
Y1	LP1+1~, LP1+5*, LP1+6, LP1+7

Customize PDF page

Package: Lab Service

Routine: LRPHITEM

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 7

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: