Routine: LRAPBK

Package	Total	Call Graph
Lab Service	6	^LRAP (,AU)^LRAPBK1 D^LRAUAW (D,F,L,M,S,V,XR,YN)^LRU (BEG,END)^LRUTL ($$Y2K,PT)^LRX
PCE Patient Care Encounter	1	GETCPT^PXAPIOE
VA Fileman	1	^%DT

Package	Total	Caller Graph
Lab Service	2	LRAPBK LRAPBK1

Entry Points

External References

Name	Field # of Occurrence
^%DT	LRAPBK+6, ASK
^LRAP	LRAPBK+5
^LRAPBK1	SH+25
AU^LRAPBK1	SH+26
D^LRAUAW	SH+23
D^LRU	LRAPBK+6, ASK, SH+23
F^LRU	H+1
L^LRU	QUE
M^LRU	H
S^LRU	QUE
V^LRU	END
XR^LRU	LRAPBK+5
YN^LRU	LRAPBK+7, LRAPBK+8, LRAPBK+9
BEG^LRUTL	N2+1
END^LRUTL	QUE+2
$$Y2K^LRX	SH+4
PT^LRX	SH+2
GETCPT^PXAPIOE	SH+18

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?20,LRO(68)," LOG BOOK" Line Location: LRAPBK+6
Function Call: WRITE	Prompt: !!,"Print SNOMED codes if entered " Line Location: LRAPBK+7
Function Call: WRITE	Prompt: !,"Print only Topography and Morphology codes " Line Location: LRAPBK+8
Function Call: WRITE	Prompt: !!,"Log book year: ",LRH(0)," OK " Line Location: LRAPBK+9
Function Call: WRITE	Prompt: ! Line Location: ASK+0
Function Call: WRITE	Prompt: $C(7),!!,"No entries for ",LRH(0) Line Location: ASK+1
Function Call: READ	Prompt: "Start with Acc #: " Formatting: ! Timeout: DTIME Variable: X Line Location: N1+0
Function Call: WRITE	Prompt: $C(7),!!,"NUMBERS ONLY !!" Line Location: N1+0
Function Call: READ	Prompt: "Go to Acc #: LAST // " Formatting: ! Timeout: DTIME Variable: X Line Location: N2+0
Function Call: WRITE	Prompt: $C(7),!!,"NUMBERS ONLY !!",!! Line Location: N2+0
Function Call: WRITE	Prompt: $E(LRP,1,18),?34,SSN(1),?40,$E(LRLLOC,1,8),?49,$E(P(2),1,16),?67,P(1),!?10,"SSN: ",SSN Line Location: SH+7
Function Call: WRITE	Prompt: $E(LRP,1,18),?34,HRCN,?40,$E(LRLLOC,1,8),?49,$E(P(2),1,16),?67,P(1) Line Location: SH+9
Function Call: WRITE	Prompt: !?5,LRLLOC("TY") Line Location: SH+13
Function Call: WRITE	Prompt: ?29,"UID: ",^(.3) Line Location: SH+14
Function Call: WRITE	Prompt: $P(LRENC(IEN),U)_"X"_$P(LRENC(IEN),U,16)_" " Line Location: SH+19
Function Call: WRITE	Prompt: ! Condition for execution: $X>70 Line Location: SH+19
Function Call: WRITE	Prompt: !,"Date specimen taken:",LRSPDT Line Location: SH+20
Function Call: WRITE	Prompt: ?37,"Entered by:",$P(^(0),"^") Line Location: SH+20
Function Call: WRITE	Prompt: !?37,"Released by:",P(13) Line Location: SH+21
Function Call: WRITE	Prompt: !,$P($G(^DIC(4,Y,0)),U) Line Location: SH+22
Function Call: WRITE	Prompt: !?14,"Date died: ",Y,?49,"Path resident:",?64,P(9) Line Location: SH+23
Function Call: WRITE	Prompt: !?2 Line Location: SH+24
Function Call: WRITE	Prompt: ?14 Condition for execution: $L(Z(1))<61 Line Location: SH+24
Function Call: WRITE	Prompt: Z(1) Line Location: SH+24
Function Call: WRITE	Prompt: !?14,"SNOMED codes:" Line Location: SH+25
Function Call: WRITE	Prompt: !?14,"SNOMED codes:" Line Location: SH+26
Function Call: WRITE	Prompt: !,LR("%") Line Location: SH+28
Function Call: WRITE	Prompt: !?4,^LR(LRDFN,LRSS,LRI,Z(1),Z,0) Line Location: D+0
Function Call: WRITE	Prompt: !,LRO(68)," (",LRABV,") LOG BOOK for ",LRH(0),! Line Location: H+1
Function Call: WRITE	Prompt: "# =Demographic data in file other than PATIENT file" Line Location: H+2
Function Call: WRITE	Prompt: !,"Date",?8,"Num",?14,"Patient",?35,"ID",?40,"LOC",?49,"PHYSICIAN",?67,"PATHOLOGIST",!,LR("%") Line Location: H+3
Function Call: WRITE	Prompt: $E(LRP,1,18),?34,SSN(1),?40,$E(LRLLOC,1,8),?49,$E(P(2),1,16),?67,P(1) Line Location: H1+0
Function Call: WRITE	Prompt: $E(LRP,1,18),?34,HRCN,?40,$E(LRLLOC,1,8),?49,$E(P(2),1,16),?67,P(1) Line Location: H1+2
Function Call: WRITE	Prompt: ! Line Location: AS+0
Function Call: WRITE	Prompt: ?14,"Entered by: ",Y Condition for execution: Y]"" Line Location: AS+0
Function Call: WRITE	Prompt: ?49,"Autopsy Asst: ",LR("ASST") Condition for execution: LR("ASST")]"" Line Location: AS+0

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	SH+22
^LR - [#63]	ASK+1, QUE+1, SH, SH+4, SH+5, SH+24, SH+25, SH+26, D
^LRO(68 - [#68]	SH+11, SH+14, SH+17, SH+20, SH+22, AS
^VA(200 - [#200]	SH+20, S

Label References

Name	Line Occurrences
AS	SH+23
ASK	ASK+1
D	SH+27
END	LRAPBK+5, LRAPBK+7, LRAPBK+8, LRAPBK+9, ASK, N1, N2, N2+1, QUE+2
H	QUE, SH+1, H1+2
H1	SH+24, SH+25, SH+26, D
N1	N1
N2	N2
S	SH+4, SH+5, AS
SH	QUE+1

Naked Globals

Name	Field # of Occurrence
^(	SH, SH+14
^("AU"	SH+5
^("PCE"	SH+17
^(0	SH+4, SH+20, AS

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LRAPBK+7, LRAPBK+8, LRAPBK+9, ASK, ASK+1
%DT	LRAPBK+6, ASK!
%DT("A"	ASK*
>> DA	SH+23*
DT	LRAPBK+6
DTIME	N1, N2
DUZ(2	SH+22
>> HRCN	SH+9, H1+2
IEN	SH+16~, SH+18, SH+19
IO	QUE
IOF	QUE+2
IOSL	SH+1, SH+24, SH+25, SH+26, D
IOST	QUE+2, H
>> LR("%"	SH+28, H+3
>> LR("ASST"	SH+5*, AS
>> LR("F"	QUE*, H
>> LR("Q"	QUE+1, SH, SH+1, SH+24, SH+25, SH+26, SH+27, SH+28, D, H , H1+2
>> LR(63	SH+23
>> LRAA	SH+11, SH+14, SH+17, SH+20, SH+22, AS
>> LRABV	ASK+1, QUE+1, SH, H+1
>> LRAN	QUE+1*, SH, SH+9, SH+11, SH+14, SH+17, SH+20, SH+22, H1+2, AS
>> LRB	LRAPBK+7*, LRAPBK+8, SH+25, SH+26
>> LRB(1	LRAPBK+8*
>> LRDFN	SH*, SH+4, SH+5, SH+23, SH+24, SH+25, SH+26, D
LRDPF	SH+2!, SH+3
LRENC	SH+16~
LRENC(	SH+19
LRENC(0	SH+19
LREND	SH+2!
>> LRH(0	LRAPBK+6, LRAPBK+9, ASK, ASK+1, H+1
>> LRH(2	LRAPBK+6, ASK, ASK+1, QUE, QUE+1, SH, SH+11, SH+14, SH+17, SH+22
>> LRI	SH*, SH+4, SH+24, SH+25, D
LRLLOC	SH+2!, SH+4, SH+5, SH+9, H1+2
LRLLOC("TY"	SH+11, SH+12, SH+13
>> LRN(1	N1+1*, QUE+1
>> LRN(2	N2+1*, QUE+1
>> LRO(68	LRAPBK+6, H+1
>> LRP	SH+3*, SH+9, H1+2
LRSPDT	SH+4*, SH+20, END!
>> LRSS	SH, SH+4, SH+20, SH+23, SH+24, SH+25, SH+26, SH+27, D
LRSTR	SH+16~, SH+17*, SH+18
>> LRW	QUE*, SH+20, AS
LRX	SH+16~, SH+18*
>> LRXREF	ASK+1, QUE+1, SH
>> P(0	SH+3*, SH+9, H1+2
>> P(1	SH+4, SH+5, SH+9, H1+2
>> P(13	SH, SH+4, SH+21
>> P(2	SH+4, SH+5, SH+9, H1+2
>> P(9	QUE, SH+5, SH+23
>> PNM	SH+3
>> POP	N2+1
>> T	SH+6*, SH+9, H1+2
U	N1, N2, SH+4, SH+5, SH+11, SH+19, SH+22, S
X	LRAPBK+6, N1, N1+1, N2, N2+1, SH+4, SH+5*, SH+6, SH+16~
Y	LRAPBK+5, LRAPBK+6, ASK, SH+4, SH+5, SH+16~, SH+20, SH+22, SH+23, S , AS*
>> Z	SH+24, D
>> Z(1	SH+24, D
>> ZTDESC	N2+1*
>> ZTRTN	N2+1*
>> ZTSAVE("LR*"	N2+1*
>> ZTSK	N2+1

Customize PDF page

Package: Lab Service

Routine: LRAPBK

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
END
D
H
H1	;D H Q:LR("Q") W !,$J(T,5),?7,$J(LRAN,5),?14 W:P(0)'="PATIENT" "#" W $E(LRP,1,18),?34,SSN(1),?40,$E(LRLLOC,1,8),?49,$E(P(2),1,16),?67,P(1) Q
AS
S
SH
QUE
ASK
N1
N2