Routine: LRAPF

Package	Total	Call Graph
Kernel	2	($$CJ,$$TRIM)^XLFSTR $$NAME^XUAF4
VA Fileman	2	$$GET1^DIQ ^DIR

Package

Total

Call Graph

Kernel

($$CJ,$$TRIM)^XLFSTR $$NAME^XUAF4

VA Fileman

$$GET1^DIQ ^DIR

Package	Total	Caller Graph
Lab Service	9	LRAPPF1 LRAPPOW LRAPT1 LRAPT2 LRSPRPT LRSPRPT1 LRSPRPT2 LRSPRPTM LRSPT

Package

Total

Caller Graph

Lab Service

LRAPPF1 LRAPPOW LRAPT1 LRAPT2 LRSPRPT LRSPRPT1 LRSPRPT2 LRSPRPTM
LRSPT

Name	Comments	DBIA/ICR reference
P
NAMER	;
W
F	;from LRSPRPT,LRSPRPT1, LRSPRPT2, LRSPRPTM

External References

Name	Field # of Occurrence
$$GET1^DIQ	NAMER+4, NAMER+5, NAMER+7, NAMER+8, NAMER+9, NAMER+13, NAMER+14, NAMER+16, NAMER+17, NAMER+18 , NAMER+23, NAMER+37, NAMER+39, NAMER+42
^DIR	LRAPF+10
$$CJ^XLFSTR	NAMER+29, NAMER+30, NAMER+32, NAMER+34, NAMER+47
$$TRIM^XLFSTR	NAMER+46
$$NAME^XUAF4	NAMER+24

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: LRAPF+10
Function Call: WRITE	Prompt: ! Line Location: LRAPF+14
Function Call: WRITE	Prompt: !?5,"MEDICAL RECORD \|",?40,LRAA(1),?73,"Pg ",LRQ Line Location: LRAPF+16
Function Call: WRITE	Prompt: ! Line Location: F+2
Function Call: WRITE	Prompt: ?57,"(",$S($D(LRO):"End of report",1:"See next page"),")" Line Location: F+4
Function Call: WRITE	Prompt: !,$G(LRPMD),?52,LRW(9),?55,"\| Date ",$G(LRRC) Line Location: F+5
Function Call: WRITE	Prompt: !,"ID:",SSN,?16,"SEX:",SEX," DOB:",DOB Line Location: F+8
Function Call: WRITE	Prompt: !,"ID:",HRCN,?16,"SEX:",SEX," DOB:",DOB Line Location: F+9
Function Call: WRITE	Prompt: " LOC:",$E(LRLLOC,1,20) Line Location: F+11
Function Call: WRITE	Prompt: ! Line Location: F+12
Function Call: WRITE	Prompt: "ADM:",$P(LRADM,"@") Condition for execution: $L(LRADM) Line Location: F+12
Function Call: WRITE	Prompt: ?46,"PCP: " Line Location: F+14
Function Call: WRITE	Prompt: !?30,"PATHOLOGY REPORT" Line Location: P+4
Function Call: WRITE	Prompt: !,"Laboratory: ",LRQ(1) Line Location: P+5
Function Call: WRITE	Prompt: ?(IOM-LENG2-1),ADESC Line Location: P+6
Function Call: WRITE	Prompt: W Line Location: W+0
Function Call: WRITE	Prompt: !,LR("%") Line Location: W+0
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR(STRN,IOM) Line Location: NAMER+29
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(STRA,IOM),! Line Location: NAMER+30
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR(STRN_" "_STRA,IOM),! Line Location: NAMER+32
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR(STRN_" "_STRA,IOM),! Line Location: NAMER+34
Function Call: WRITE	Prompt: $$CJ^XLFSTR(STRO,IOM),! Line Location: NAMER+47
Routine Call	DIR Line Location: LRAPF+10

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^BLRSITE - [#9009029]	GET1^DIQ

Name	Line Occurrences
NAMER	F+16
P	LRAPF+17
W	LRAPF+15, LRAPF+18, F+3, F+6, P

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADESC	P+1*, P+2, P+6, P+7!
>> AGE	F+10
DIR	LRAPF+9!
DIR(0	LRAPF+9*
>> DOB	F+9
>> DTOUT	LRAPF+11
DUZ(2	NAMER+4, NAMER+5, NAMER+7, NAMER+8, NAMER+9, NAMER+13, NAMER+14, NAMER+16, NAMER+17, NAMER+18 , NAMER+23, NAMER+24, NAMER+37, NAMER+39, NAMER+42
>> HRCN	F+9
IOF	LRAPF+12
IOM	P+2, P+6, NAMER+28, NAMER+29, NAMER+30, NAMER+31, NAMER+32, NAMER+33, NAMER+34, NAMER+47
IOSL	F+2
IOST	LRAPF+8
LENG1	P+2*, P+3, P+7!
LENG2	P+2*, P+6, P+7!
LNSPCE	P+2*, P+3, P+7!
>> LR("%"	W
>> LR("F"	LRAPF+8, LRAPF+12
>> LR("Q"	LRAPF+8, LRAPF+11*, F+1
>> LR("W"	F+3, F+7
>> LRAA(1	LRAPF+16
>> LRAC	P+1
>> LRADM	F+12
>> LRADX	F+13
>> LRLLOC	F+11
>> LRO	F+4
>> LRP	F+7
>> LRPMD	F+5
>> LRPRAC	F+15
>> LRPRAC(1	F+15
>> LRQ	LRAPF+13*, LRAPF+16, LRAPF+17, P
>> LRQ(1	P+2, P+3*, P+5
>> LRQ(8	P+1
>> LRRC	F+5
>> LRW(1	P+1
>> LRW(9	F+5
>> SEX	F+9
STR	NAMER+1~, NAMER+5, NAMER+6, NAMER+14, NAMER+15
STRA	NAMER+1~, NAMER+4, NAMER+6, NAMER+7, NAMER+8, NAMER+9, NAMER+12, NAMER+13, NAMER+15, NAMER+16 , NAMER+17, NAMER+18, NAMER+20, NAMER+28, NAMER+30, NAMER+31, NAMER+32, NAMER+33, NAMER+34, NAMER+42* , NAMER+43
STRN	NAMER+1~, NAMER+23, NAMER+24, NAMER+26, NAMER+28, NAMER+29, NAMER+31, NAMER+32, NAMER+33, NAMER+34 , NAMER+37*, NAMER+38, NAMER+40, NAMER+41
STRO	NAMER+1~, NAMER+36, NAMER+40, NAMER+41, NAMER+43, NAMER+44, NAMER+46*, NAMER+47
STRT	NAMER+1~, NAMER+39*, NAMER+40, NAMER+41
U	LRAPF+11
>> VADM(6	F+10
>> X	LRAPF+11

Customize PDF page

Package: Lab Service

Routine: LRAPF

Information

Source Information

Call Graph

Call Graph Total: 4

Caller Graph

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend: