Routine: LRCYPCT

Information

LRCYPCT ;AVAMC/REG - CYTOPATH %POS,NEG,SUSP, & UNSAT ;8/13/95 15:41 ;

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Lab Service	3	^LRAP (B,F,L,M,S,V,XR,YN)^LRU (BEG,END)^LRUTL
Kernel	1	^%ZIS

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	LRAPCYPCT

Entry Points

Name	Comments	DBIA/ICR reference
TO
DATE
QUE
LRDFN
I
T
TG
G
P
S
L
ASK
C
H
H1
H2
OUT
CK
SHW
SET
M
END

External References

Name	Field # of Occurrence
^%ZIS	LRCYPCT+2
^LRAP	LRCYPCT+2
B^LRU	DATE
F^LRU	H+1
L^LRU	QUE
M^LRU	H
S^LRU	QUE
V^LRU	OUT, END
XR^LRU	QUE
YN^LRU	LRCYPCT+3, TO, DATE
BEG^LRUTL	DATE+1
END^LRUTL	QUE+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,LRO(68)," (",LRABV,") Cytology Specimens:" Line Location: LRCYPCT+2
Function Call: WRITE	Prompt: !,"Use morphology list " Line Location: LRCYPCT+3
Function Call: WRITE	Prompt: ! Line Location: TO+0
Function Call: WRITE	Prompt: !,"Use topography category list " Line Location: TO+0
Function Call: WRITE	Prompt: ! Line Location: TO+1
Function Call: WRITE	Prompt: ! Line Location: DATE+0
Function Call: WRITE	Prompt: !!,"Include locations for each morphology " Line Location: DATE+0
Function Call: WRITE	Prompt: !!,LRN(LRN,0)," (",LRN,"): ",?55,$J(S,5) Line Location: P+0
Function Call: WRITE	Prompt: !!,"Total specimens found: ",?55,$J(LR,5) Line Location: P+1
Function Call: WRITE	Prompt: ?36,$J(X,5)," (",$J(X/LR*100,4,1),"%)" Line Location: P+1
Function Call: WRITE	Prompt: !?3,$P(LRA(B),"^"),?36,$J(T,5)," (",$J(T/S*100,4,1),"%)" Line Location: S+0
Function Call: WRITE	Prompt: !?5,$E(LRL,1,23),?30,$J(L,3) Line Location: L+0
Function Call: READ	Variable: X Timeout: DTIME Line Location: ASK+0
Function Call: WRITE	Prompt: !,"Select 1 or more characters of SNOMED TOPOGRAPHY code (Choice# ",B,"): " Line Location: ASK+0
Function Call: READ	Formatting: ! Prompt: "ENTER IDENTIFYING COMMENT: " Variable: X(1) Timeout: DTIME Line Location: C+0
Function Call: WRITE	Prompt: $C(7),!!,"You must enter an identifying comment <ENTRY DELETED>",! Line Location: C+0
Function Call: WRITE	Prompt: $C(7),!!,"Enter free text 2-30 characters",!," (Ex. for 2 you may want to enter Respiratory System)",! Line Location: C+1
Function Call: WRITE	Prompt: !,LRO(68)," Counts From ",LRSTR," To ",LRLST,! Line Location: H+1
Function Call: WRITE	Prompt: ?5,"Location",?25,"Location Count" Condition for execution: LRP Line Location: H+1
Function Call: WRITE	Prompt: ?55,"Count",!,LR("%") Line Location: H+1
Function Call: WRITE	Prompt: !,LRN(LRN,0),?55,$J(S,5) Line Location: H1+0
Function Call: WRITE	Prompt: !?3,$P(LRA(B),U),?36,$J(T,5)," (",$J(T/S*100,4,1),"%)" Line Location: H2+0
Function Call: WRITE	Prompt: !!,$C(7),?12,"Please have appropriate person enter missing SNOMED code",!?24,"in the MORPHOLOGY FIELD file (#61.1)" Line Location: OUT+0
Function Call: WRITE	Prompt: $C(7),!!,"Enter up to 6 characters.",!,"Entry can only contain digits, letters 'X' and 'Y'.",!,"One character entered -> most general All 6 characters -> most specific",! Line Location: SHW+0
Function Call: WRITE	Prompt: !,X," ",E Line Location: SET+0
Function Call: WRITE	Prompt: !,LRA(B) Line Location: M+0
Routine Call	%ZIS Line Location: LRCYPCT+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^LAB(61 - [#61]	TG
^LAB(61.1 - [#61.1]	LRCYPCT+4, M
^LR - [#63]	QUE+1, LRDFN, I, T, G, G+1
^LRO(69.2 - [#69.2]	LRCYPCT+3, TO, SET, M
^TMP($J	QUE!, QUE+2!, G, G+1, P, S, L

Label References

Name	Line Occurrences
ASK	TO+1, ASK+1, C
C	C+1
CK	ASK+1
DATE	TO
END	LRCYPCT+2, LRCYPCT+3, TO, DATE, DATE+1, QUE+2
G	TG
H	QUE, P, P+1, H1
H1	S, H2
H2	L
I	LRDFN
L	S
LRDFN	QUE+1
M	LRCYPCT+3
OUT	LRCYPCT+4
P	QUE+2
S	P
SET	TO
SHW	CK
T	I
TG	T
TO	LRCYPCT+3

Naked Globals

Name	Field # of Occurrence
^(	T, G, G+1, P, S, L
^(0	LRCYPCT+4, TG

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LRCYPCT+3, TO, DATE*
>> A	TG, G, G+1, P
>> A("B"	ASK!, ASK+1, CK, CK+1, SHW
>> B	TO+1, DATE, P+1, S, L, ASK, H2, SET, SET+1, M
>> C	L, SET
DTIME	ASK, C
>> E	TG, SET
>> I	CK+1*
>> I(1	CK+1*
IO	QUE
IOF	LRCYPCT+2
>> IOP	LRCYPCT+2*
IOSL	P, P+1, S, L
IOST	H
>> L	L*
>> LR	QUE, P, P+1
>> LR("%"	H+1
>> LR("F"	QUE*, H
>> LR("Q"	P, P+1, S, L, H, H1, H2
>> LRA	LRCYPCT+3
>> LRA(	LRCYPCT+4, G+1, P+1, S, H2, M*
>> LRAA	LRCYPCT+3, TO, SET, M
>> LRABV	LRCYPCT+2, I
>> LRDFN	LRDFN*, I, T, G, G+1
>> LRDICS	LRCYPCT+2*
>> LRI	I*, T, G, G+1
>> LRL	G, G+1, L
>> LRLDT	DATE*, QUE+1
>> LRLST	H+1
LRM	TO!
LRM(	TG, ASK+1, C!, SET
LRN	TO!, P*, S, L, H1, SET+1
LRN(	TG, P, ASK+1, C!, C+2, H1, SET*
>> LRO(68	LRCYPCT+2, H+1
>> LRP	DATE*, S, H+1
>> LRSDT	DATE, QUE+1, LRDFN, I
>> LRSS	I, T, G, G+1
>> LRSTR	H+1
>> LRXR	QUE+1, LRDFN, I
>> M	G+1*
>> M(1	G+1*
>> O	T*, G+1
>> POP	DATE+1
>> S	P*, S, H1, H2
>> T	T, TG, S*, H2
U	TO+1, I, ASK, C, H2
>> X	LRCYPCT+4, TO+1, QUE+1, G, G+1, P+1, ASK, ASK+1, C, C+2 , CK, CK+1, SET*
>> X(1	C*, C+1, C+2
>> Y	LRCYPCT+2, LRCYPCT+4*, DATE
>> ZTRTN	DATE+1*
>> ZTSK	DATE+1

Customize PDF page

Package: Lab Service