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: LRAPOLD

Package: Lab Service

Routine: LRAPOLD

Information

LRAPOLD ;VA/AVAMC/REG - ENTER OLD AP ACCESSIONS ;8/12/95 08:04 ;

Source Information

Source file <LRAPOLD.m>

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
Lab Service	4	A^LRAPD ^LRDPA (D,V,XR,YN)^LRU ^LRUP
VA Fileman	2	^%DT ^DIE
Kernel	1	^%ZIS

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRAPOLD

Entry Points

Name	Comments	DBIA/ICR reference
A
EM
END
FIX
SP
REST
CY
R
GETP
X
DT

External References

Name	Field # of Occurrence
^%DT	DT, R
^%ZIS	LRAPOLD+3
^DIE	A+7
A^LRAPD	LRAPOLD+5
^LRDPA	GETP
D^LRU	DT+1, R+1
V^LRU	END
XR^LRU	LRAPOLD+5
YN^LRU	LRAPOLD+4, LRAPOLD+6, LRAPOLD+7
^LRUP	A+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,?20,"Enter old pathology records",!! Line Location: LRAPOLD+3
Function Call: WRITE	Prompt: !!,"Enter Etiology, Function, Procedure & Disease " Line Location: LRAPOLD+6
Function Call: WRITE	Prompt: !!,"Enter Special Studies " Line Location: LRAPOLD+7
Function Call: WRITE	Prompt: ! Line Location: GETP+0
Function Call: WRITE	Prompt: ! Line Location: DT+0
Function Call: READ	Timeout: Y<1 Variable: Q Line Location: R+0
Function Call: WRITE	Prompt: ! Line Location: R+0
Function Call: WRITE	Prompt: $C(7),!!,"Date received must be after date taken.",! Line Location: R+0
Function Call: READ	Prompt: "Enter Accession number: " Formatting: !! Timeout: DTIME Variable: LRAN Line Location: A+0
Function Call: WRITE	Prompt: $C(7),!!,"Enter up to 5 numbers",!! Line Location: A+0
Function Call: WRITE	Prompt: $C(7),!,"AC #",LRAN," in ",LRO(68)," for ",$E(LRF,2,3),!?5,"Patient: ",LRP," ID: ",SSN Line Location: A+1
Function Call: WRITE	Prompt: $C(7),!,"AC #",LRAN," in ",LRO(68)," for ",$E(LRF,2,3),!?5,"Patient: ",LRP," ID: ",HRCN Line Location: A+2
Function Call: WRITE	Prompt: $C(7),!!,"All Prompts were not answered <ENTRY DELETED>" Line Location: A+8
Routine Call	DIE Line Location: A+7
Routine Call	%ZIS Line Location: LRAPOLD+3

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, A+2, A+3, A+4, A+8!, FIX, X!, X+1, X+2!

Label References

Name	Line Occurrences
@(	A+7
A	R+1, A, A+2
DT	DT, R+1
END	LRAPOLD+4, LRAPOLD+6, LRAPOLD+7, GETP
FIX	A+3, FIX
GETP	GETP
R	R
REST	GETP
X	A+8

Naked Globals

Name	Field # of Occurrence
^(0	A+2, X+1*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LRAPOLD+4, LRAPOLD+6, LRAPOLD+7*
%DT	DT!, R!
%DT("A"	DT, R
%DT("B"	DT+1*
%DT(0	DT, R
>> DA	A+7*, A+8
>> DA(1	A+7*
DIC	GETP!
>> DIE	A+7*
>> DR	SP, CY, EM*
>> DR(2	SP, CY, EM*
>> DR(3	SP, CY, EM*
DTIME	A
>> HRCN	A+2
IOF	LRAPOLD+3
>> IOP	LRAPOLD+3*
>> LRABV	A+2, A+7, X+2
>> LRAC	A+7*, SP, CY, EM
>> LRAD	R+1*
>> LRAN	A*, A+2, A+7, X+2
LRAPOLDF	A+5~, A+6*
LRB	LRAPOLD+5*, LRAPOLD+6!
LRC	LRAPOLD+5*, LRAPOLD+7!
>> LRD	R+1*, SP, CY, EM
>> LRDFN	GETP, REST, A+3, A+4, A+7, A+8, FIX, X, X+1, X+2
>> LRE	DT+1*, R, A+4
>> LRF	R+1*, A+2, A+7, X+2
>> LRH	DT+1*, X
>> LRI	DT+1, A+3, A+4, A+7, FIX*, X, X+2
>> LRO(68	A+2
>> LRP	A+2
>> LRSF	REST, A+4
>> LRSS	REST, A+3, A+4, A+7, A+8, FIX, X+1
>> LRXR	X
>> LRXREF	A+2, X+2
U	A
>> X	DT, R, A+2, X+1
>> X(1	X+1*
>> Y	LRAPOLD+5, DT, DT+1, R, R+1, A+8

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