Routine: LRAPM

Package	Total	Call Graph
Lab Service	7	A^LRAPD PNAME^LRAPDA (C,C1)^LRAPSWK UPDATE^LRPXRM (V,YN)^LRU ^LRUP DEL^LRWOMEN
VA Fileman	4	^%DT %XY^%RCR EN^DDIOL ^DIE
IHS Changes To Lab	1	$$PATCH^BLRUTIL4

Entry Points

External References

Name	Field # of Occurrence
^%DT	AK+2, A+4
%XY^%RCR	A+7
$$PATCH^BLRUTIL4	A+32
EN^DDIOL	A+17, A+38
^DIE	A+18
A^LRAPD	LRAPM+10
PNAME^LRAPDA	W+2
C^LRAPSWK	ASK
C1^LRAPSWK	A+20
UPDATE^LRPXRM	A+32
V^LRU	END
YN^LRU	AK+1, ASK+5, ASK+6
^LRUP	REST+2
DEL^LRWOMEN	A+29

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Modify data for ",LRH(0)," " Line Location: AK+0
Function Call: WRITE	Prompt: $C(7),!!,"NO ",LRAA(1)," ACCESSIONS IN FILE FOR ",LRH(0),!! Line Location: AK+3
Function Call: WRITE	Prompt: D Line Location: W+2
Function Call: WRITE	Prompt: $C(7),!!,"Accession # ",LRAN," for ",LRH(0)," not in ACCESSION file",!! Line Location: REST+0
Function Call: WRITE	Prompt: !,LRP," ID: ",SSN Line Location: REST+3
Function Call: WRITE	Prompt: !,LRP," ID: ",HRCN Line Location: REST+4
Function Call: WRITE	Prompt: !,$P($G(^(X,0)),U) Line Location: REST+6
Function Call: WRITE	Prompt: $C(7),!!,"Report not verified. Do not need to use this option !" Line Location: DIE+1
Function Call: WRITE	Prompt: !?14,"1. MODIFY GROSS DESCRIPTION",!?14,"2. MODIFY MICROSCOPIC DESCRIPTION",!?14,"3. MODIFY DIAGNOSIS" Line Location: ASK+1
Function Call: WRITE	Prompt: !?14,"4. MODIFY FROZEN SECTION" Line Location: ASK+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: ASK+2
Function Call: WRITE	Prompt: !,"CHOOSE (1-",LRB,"): " Line Location: ASK+2
Function Call: WRITE	Prompt: $C(7),!,"Choose from 1 to ",LRB Line Location: ASK+3
Function Call: WRITE	Prompt: ! Line Location: A+8
Function Call: WRITE	Prompt: $C(7),!!,"No changes were made to ",LRB(LRB) Line Location: A+24
Routine Call	DIE Line Location: A+18

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LR - [#63]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LR - [#63]	REST+2, REST+6, DIE, ASK+5, A, A+1, A+3, A+5, A+14, A+18 , A+19, A+21, A+22, A+25!, A+26, A+27*, A+28
^LRO(68 - [#68]	AK+3, REST, REST+1, REST+5
^LRO(69.2 - [#69.2]	LRAPM+15, A+33, A+34, A+39*, A+40, A+41

Label References

Name	Line Occurrences
@(	LRAPM+11, LRAPM+12
A	ASK+5
ASK	ASK+3
DIE	W+2
END	AK+1, AK+2, AK+3, W+1
REST	W+3
W	W+2, W+3

Naked Globals

Name	Field # of Occurrence
^(	REST+6, A+21, A+22
^(0	LRAPM+15, REST+2, A, A+21, A+26, A+28, A+40

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	AK+1, AK+2, ASK+5, ASK+6*
%DT	AK+2!, A+4
%DT("A"	AK+2*
%DT(0	AK+2*
>> %X	A+6*
>> %Y	A+6*
>> A	A+1, A+21, A+22, A+26, A+27
>> B	A, A+1
>> C	A, A+1, A+2*, A+3
>> DA	A+8*, A+14, A+19
>> DA(1	A+8*
>> DIE	A+8*
>> DR	A+8, A+10
>> DR(2	A+11, A+12, A+13*
DTIME	W, ASK+2
DUZ	A+5
>> HRCN	REST+4
>> LRAA	LRAPM+15, AK+3, REST, REST+1, REST+5, A+33, A+34, A+39, A+40, A+41
>> LRAA(1	AK+3
>> LRAD	AK+2*, AK+3, REST, REST+1, REST+5
>> LRAN	W*, W+1, W+2, REST, REST+1, REST+5, A+33, A+39, A+40
>> LRB	ASK+1, ASK+2, ASK+3, ASK+4, ASK+5, ASK+6, A, A+24
>> LRB(	ASK+5, ASK+6, A+24
>> LRB(1	LRAPM+13*
>> LRB(2	LRAPM+13*
>> LRB(3	LRAPM+14*
>> LRB(4	LRAPM+14*
>> LRC	A+21, A+22, A+23
>> LRCAPA	LRAPM+11, ASK, A+20
>> LRDFN	REST+1*, REST+2, REST+6, DIE, ASK+5, A, A+1, A+3, A+5, A+8 , A+14, A+18, A+19, A+21, A+22, A+25, A+26, A+27, A+28, A+32 , A+39
LRDTMOD	A+3*, A+5, A+21, A+22, A+25, END!
>> LRE	ASK+4*, A, A+1, A+3, A+5, A+21, A+22, A+25, A+26, A+27
>> LRF	ASK+4*, ASK+5, A+8, A+9, A+21, A+22
>> LRH(0	AK, AK+2*, AK+3, REST, A+39
>> LRI	REST+5*, REST+6, DIE, ASK+5, A, A+1, A+3, A+5, A+8, A+18 , A+21, A+22, A+25, A+26, A+27, A+28, A+32, A+39
>> LRLLOC	REST+1*
>> LRP	REST+4
>> LRQ(	A
>> LRQ(1	SP, CY, EM*
>> LRQ(2	SP, CY, EM*
>> LRQ(3	SP, CY, EM*
>> LRQ(4	SP*
>> LRRC	A+18*
>> LRSS	LRAPM+11, LRAPM+12, REST+6, DIE, ASK+1, ASK+5, A, A+1, A+3, A+5 , A+11, A+12, A+13, A+14, A+18, A+19, A+21, A+22, A+25, A+26 , A+27, A+28, A+29, A+32
>> LRT(1	A*, A+3
MSG	A+15, A+16, A+17!, A+38!
MSG(1	A+35, A+36
MSG(2	A+37*
>> SEX	A+29
U	W+1, REST+6, ASK+2, ASK+4
X	W!, REST+1, REST+2, REST+6, DIE, DIE+1, ASK+2, ASK+3, ASK+4, A+4 , A+18!, A+21, A+22, A+26, A+27, A+28, A+40
Y	LRAPM+10, AK+2, W!, A+5, A+26, A+27, A+28

Customize PDF page

Package: Lab Service

Routine: LRAPM

Information

Source Information

Call Graph

Call Graph Total: 12

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: