Routine: LRAPSNMD

Package	Total	Call Graph
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD ($$CJ,$$LOW)^XLFSTR
VA Fileman	3	$$GET1^DID $$GET1^DIQ ^DIR
Lab Service	1	SSN^LRU

Package	Total	Caller Graph
Lab Service	2	LRAPRES LRSPRPT

Entry Points

Name	Comments	DBIA/ICR reference
END	;
HDR	;
REPORT	;
GETHRCN(SOCN)	; EP - Given SSN, Return HRCN, if possible
ASKDEV	;
INIT(LRDFN,LRSS,LRI,LRSF,LRAA,LRAN,LRAD,LRDEM,LRDEV)	; ; This routine displays SNOMED codes and their description for the ; given record in the LAB DATA (#63) file.
MAIN	;
CHECK	;
WRITE(LRP1,LRP2,LRP3,LRP4,LRP5)	;

External References

Name	Field # of Occurrence
^%ZIS	ASKDEV+2
HOME^%ZIS	ASKDEV+8
^%ZISC	END+2
^%ZTLOAD	ASKDEV+7
$$GET1^DID	REPORT+23, REPORT+33, REPORT+39, REPORT+46
$$GET1^DIQ	REPORT+6, REPORT+7, REPORT+25, WRITE+7, WRITE+9, WRITE+12
^DIR	HDR+3
SSN^LRU	GETHRCN+7
$$CJ^XLFSTR	REPORT+51
$$LOW^XLFSTR	WRITE+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ASKDEV+1
Function Call: WRITE	Prompt: ! Line Location: ASKDEV+3
Function Call: WRITE	Prompt: !,"Request Queued, #",ZTSK Condition for execution: $D(ZTSK) Line Location: ASKDEV+7
Function Call: WRITE	Prompt: ! Line Location: ASKDEV+7
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("(End of Report)",IOM) Line Location: REPORT+51
Function Call: WRITE	Prompt: !?LRP5,LRSM(2)_": "_LRSM(1) Line Location: WRITE+10
Function Call: WRITE	Prompt: ! Line Location: HDR+3
Function Call: WRITE	Prompt: !,LRSEC,?24,"SNOMED CODE LISTING",?49,"Acc: ",LRACC Line Location: HDR+6
Function Call: WRITE	Prompt: !,"Patient: ",$G(LRDEM("PNM")) Line Location: HDR+8
Function Call: WRITE	Prompt: ?49,$S(LRAU:"Resident: ",1:"Physician: ") Line Location: HDR+9
Function Call: WRITE	Prompt: $E($G(LRDEM("PRO")),1,18) Line Location: HDR+10
Function Call: WRITE	Prompt: !,"ID: ",$G(LRDEM("SSN")) Line Location: HDR+14
Function Call: WRITE	Prompt: !,"ID: ",$$GETHRCN($G(LRDEM("SSN"))) Line Location: HDR+15
Function Call: WRITE	Prompt: !,LRL Line Location: HDR+22
Routine Call	%ZIS Line Location: ASKDEV+8
Routine Call	DIR Line Location: HDR+3
Routine Call	%ZIS Line Location: ASKDEV+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LRO(68 - [#68]	GET1^DIQ
68.02	GET1^DIQ
^LRO(69.2 - [#69.2]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	GETHRCN+6
^DPT("SSN"	GETHRCN+5
^LR - [#63]	CHECK+3, CHECK+7, REPORT+14, REPORT+16

Label References

Name	Line Occurrences
$$GETHRCN	HDR+15
ASKDEV	MAIN+2
CHECK	REPORT+17
END	MAIN+3, MAIN+5
HDR	REPORT+9, REPORT+15, WRITE+15
REPORT	MAIN+4
WRITE	REPORT+29, REPORT+35, REPORT+41, REPORT+49

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END+3!
>> %ZIS	ASKDEV+2*
DFN	GETHRCN+4~, GETHRCN+5*, GETHRCN+6
DIR	HDR+2!, END+3!
DIR(0	HDR+2*
DIRUT	END+3!
DTOUT	HDR+4, END+3!
DUOUT	END+3!
HRCN	GETHRCN+4~, GETHRCN+9
IO	REPORT+1
IO("Q"	ASKDEV+4, ASKDEV+8!
IOF	REPORT+1, HDR+5, END+1
IOM	REPORT+51
IOSL	REPORT+15, WRITE+15
IOST	REPORT+1, HDR+1, HDR+7, END+1
LRA	REPORT+3~, REPORT+26*, REPORT+28
LRA1	REPORT+3~, REPORT+31, REPORT+32, REPORT+34, REPORT+44, REPORT+45, REPORT+47
LRA2	REPORT+3~, REPORT+37, REPORT+38, REPORT+40
LRAA	INIT~, INIT+26, REPORT+5, REPORT+7, REPORT+25
LRACC	REPORT+4~, REPORT+6*, HDR+6
LRAD	INIT~, INIT+27, REPORT+5
LRAN	INIT~, INIT+26, REPORT+5
LRAU	INIT+25~, INIT+29*, INIT+30, CHECK+2, REPORT+11, REPORT+19, REPORT+21, HDR+9, HDR+11, HDR+16 , HDR+19
LRCASE	REPORT+2~, REPORT+20, REPORT+25, REPORT+29, REPORT+35, REPORT+41, REPORT+49
LRDEM	INIT~
LRDEM("AGE"	HDR+18, HDR+20
LRDEM("AUDT"	HDR+12
LRDEM("AUTYP"	HDR+12
LRDEM("DOB"	HDR+17, HDR+20
LRDEM("DTH"	HDR+13
LRDEM("PNM"	HDR+8
LRDEM("PRO"	HDR+10
LRDEM("SEX"	HDR+17, HDR+21
LRDEM("SSN"	HDR+15
LRDEV	INIT~, MAIN+1*, MAIN+2, END+2
LRDFN	INIT~, INIT+26, CHECK+3, CHECK+7, REPORT+14, REPORT+16, REPORT+20, REPORT+24, GETHRCN+4~, GETHRCN+6*
LRDFP	REPORT+4~, REPORT+43*, REPORT+44
LRDFP(1	REPORT+44*, REPORT+48
LRDFP(2	REPORT+44*, REPORT+46
LRDPF	GETHRCN+4~
LRFILE	REPORT+2~, REPORT+20, REPORT+22, REPORT+26, REPORT+32, REPORT+38, REPORT+45
LRFILE1	REPORT+2~, REPORT+20, REPORT+23, REPORT+29, REPORT+33, REPORT+46
LRFILE2	REPORT+2~, REPORT+33, REPORT+35, REPORT+39, REPORT+46, REPORT+49
LRFILE3	REPORT+2~, REPORT+39*, REPORT+41
LRI	INIT~, INIT+30, CHECK+7, REPORT+14, REPORT+16, REPORT+24
LRIENS	REPORT+3~, REPORT+5, REPORT+6, REPORT+20, REPORT+24*, REPORT+28
LRIENS1	REPORT+3~, REPORT+28*, REPORT+29, REPORT+34, REPORT+47
LRIENS2	REPORT+3~, REPORT+34, REPORT+35, REPORT+40, REPORT+47, REPORT+49
LRIENS3	REPORT+3~, REPORT+40*, REPORT+41
LRL	INIT+25~, INIT+28*, HDR+22
LRP1	REPORT+4~, WRITE~, WRITE+7, WRITE+9, WRITE+12
LRP2	REPORT+4~, WRITE~, WRITE+7, WRITE+9, WRITE+12
LRP3	REPORT+4~, WRITE~, WRITE+8
LRP4	REPORT+4~, WRITE~, WRITE+9, WRITE+11
LRP5	REPORT+4~, WRITE~, WRITE+10
LRPG	REPORT+4~, REPORT+8, HDR+1, HDR+5, HDR+7
LRPRFX	REPORT+4~, REPORT+48*, REPORT+49
LRQUIT	INIT+25~, MAIN+1, MAIN+3, CHECK+6, CHECK+10, ASKDEV+3, ASKDEV+9, REPORT+8, REPORT+11, REPORT+14 , REPORT+15, REPORT+18, REPORT+26, REPORT+32, REPORT+38, REPORT+45, REPORT+50, HDR+1, HDR+4*
LRSB	CHECK+1~, CHECK+3, CHECK+4, CHECK+7, CHECK+8
LRSEC	REPORT+4~, REPORT+7*, HDR+6
LRSF	INIT~, INIT+26, REPORT+23
LRSM	WRITE+6~
LRSM(1	WRITE+7, WRITE+8, WRITE+10
LRSM(2	WRITE+9*, WRITE+10
LRSM(3	WRITE+12*, WRITE+13, WRITE+14
LRSS	INIT~, INIT+26, INIT+29, CHECK+7, REPORT+14, REPORT+16
LRX	REPORT+2~, REPORT+13, REPORT+14, REPORT+16
>> POP	MAIN+3, ASKDEV+3
SEX	GETHRCN+4~
SOCN	GETHRCN~, GETHRCN+1, GETHRCN+5
SSN	GETHRCN+4~
U	REPORT+16, HDR+4
VA	GETHRCN+4~
VAERR	GETHRCN+4~
X	HDR+4, END+3!
Y	END+3!
>> ZTDESC	ASKDEV+5*
>> ZTQUEUED	END+2
>> ZTREQ	END+2*
>> ZTRTN	ASKDEV+6*
>> ZTSAVE("LR*"	ASKDEV+6*
ZTSK	ASKDEV+7, ASKDEV+8!

Customize PDF page

Package: Lab Service

Routine: LRAPSNMD

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: