Routine: HMPDRA

Package	Total	Call Graph
Enterprise Health Management Platform	2	($$ESC,$$FAC)^HMPD XML^HMPDTIU
Radiology Nuclear Medicine	2	(EN1,EN3)^RAO7PC1 EN3^RAO7PC3
CPT HCPCS Codes	1	($$CPT,$$CPTD)^ICPTCOD
VA FileMan	1	$$GET1^DIQ

Package	Total	Caller Graph
Enterprise Health Management Platform	2	HMPDJ07 HMPDTIU

Entry Points

Name	Comments	DBIA/ICR reference
EN(DFN,BEG,END,MAX,ID)	; -- find patient's radiology exams
ENQ	; end
EN1(ID,EXAM)	; -- return an exam in EXAM("attribute")=value ; Expects ^TMP($J,"RAE1",DFN,ID) from EN1^RAO7PC1
CPT(IEN)	; -- return code^description for CPT code, or "^" if error
TEXT(PAT,ID)	; -- Get report text, return temp array name
RPTS(DFN,BEG,END,MAX)	; -- find patient's radiology reports
RPT1(DFN,ID,RPT)	; -- return report as a TIU document
XML(EXAM)	; -- Return exams as XML
LOOP()	; -- build sub-items string from NAMES and X
ADD(X)	; -- Add a line @HMP@(n)=X

External References

Name	Field # of Occurrence
$$GET1^DIQ	EN1+23, RPT1+18, RPT1+29
$$ESC^HMPD	XML+13, XML+17, LOOP+2
$$FAC^HMPD	EN1+14, RPT1+27
XML^HMPDTIU	RPTS+9
$$CPT^ICPTCOD	CPT+2
$$CPTD^ICPTCOD	CPT+4
EN1^RAO7PC1	EN+4, RPTS+4
EN3^RAO7PC1	EN1+24, RPT1+6
EN3^RAO7PC3	TEXT+3, RPT1+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
70.03	GET1^DIQ
^RARPT - [#74]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SC("B"	EN1+13, RPT1+26
^TMP("HMPTEXT"	ENQ+1!, EN1+3!, TEXT+4, RPTS+11!, RPT1+3!, RPT1+10
^TMP($J	EN+4!, EN+10, ENQ+1!, EN1+4, EN1+19, EN1+25, TEXT+5, TEXT+6, TEXT+7!, RPTS+4! , RPTS+5, RPTS+6, RPTS+11!, RPT1+7, RPT1+8, RPT1+11, RPT1+15, RPT1+17, RPT1+20, RPT1+31!
^VA(200 - [#200]	EN1+26, RPT1+16, RPT1+19

Label References

Name	Line Occurrences
$$CPT	EN1+18
$$LOOP	XML+9, XML+18
$$TEXT	EN1+10
ADD	XML+2, XML+3, XML+6, XML+10, XML+11, XML+12, XML+13, XML+14, XML+15, XML+19
EN1	EN+7, EN+11
ENQ	EN+7
RPT1	RPTS+9
XML	EN+7, EN+12

Naked Globals

Name	Field # of Occurrence
^(	EN1+4, TEXT+5, TEXT+6, RPTS+6, RPT1+7, RPT1+11
^("CMOD"	EN1+19
^("ORD"	RPT1+20

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ATT	XML+1~, XML+3*, XML+4, XML+5, XML+6, XML+7, XML+8, XML+9, XML+10, XML+14 , XML+15, XML+16, XML+17, XML+18
BEG	EN~, EN+3, EN+4, RPTS~, RPTS+3, RPTS+4
CASE	TEXT+2~, TEXT+5, TEXT+6, RPT1+2~, RPT1+7, RPT1+11, RPT1+15, RPT1+17
DATE	EN1+2~, EN1+6*
DFN	EN~, EN+2, EN+4, EN+10, EN1+4, EN1+10, EN1+16, EN1+19, EN1+24, EN1+25 , TEXT+2~, RPTS~, RPTS+2, RPTS+4, RPTS+5, RPTS+6, RPTS+9, RPT1~, RPT1+1*, RPT1+4 , RPT1+5~, RPT1+7, RPT1+8, RPT1+11, RPT1+15, RPT1+17, RPT1+20, RPT1+28, RPT1+31
END	EN~, EN+3, EN+4, RPTS~, RPTS+3, RPTS+4
EXAM	EN1~, EN1+3!, TEXT+2~, TEXT+3, RPT1+2~, RPT1+4, RPT1+5, RPT1+6, XML~
EXAM(	XML+3, XML+5, XML+7, XML+8, XML+10, XML+16
EXAM("case"	EN1+5*
EXAM("category"	EN1+27*
EXAM("dateTime"	EN1+6*
EXAM("document"	EN1+9, EN1+10
EXAM("encounter"	EN1+23*
EXAM("facility"	EN1+14*
EXAM("hasImages"	EN1+21*
EXAM("id"	EN1+5*
EXAM("imagingType"	EN1+15*
EXAM("interpretation"	EN1+22*
EXAM("location"	EN1+13*
EXAM("modifier"	EN1+19*
EXAM("name"	EN1+5*
EXAM("order"	EN1+20*
EXAM("provider"	EN1+26*
EXAM("status"	EN1+11*
EXAM("type"	EN1+18*
>> FILTER("loinc"	RPT1+30
>> HMP	ADD+2
>> HMPI	ADD+1*, ADD+2
HMPITM	EN+1~, EN+7, EN+11!, EN+12, RPTS+1~, RPTS+9!
>> HMPTEXT	EN1+10, RPT1+9
>> HMPTOTL	XML+2*
HMPX	CPT+1~
HMPX(	CPT+7
HMPX(1	CPT+5, CPT+6
HMPXID	EN+1~, EN+10, EN+11, RPTS+1~, RPTS+5, RPTS+6, RPTS+8, RPTS+9, RPTS+10
I	CPT+1~, CPT+6, CPT+7, TEXT+2~, TEXT+6, RPT1+2~, RPT1+11, XML+1~, XML+7*, XML+8 , XML+10
ID	EN~, EN+7, EN1~, EN1+4, EN1+5, EN1+6, EN1+9, EN1+10, EN1+16, EN1+19 , EN1+24, EN1+25, TEXT~, TEXT+1, TEXT+3, TEXT+4, RPT1~, RPT1+1*, RPT1+4, RPT1+8 , RPT1+10, RPT1+13, RPT1+14, RPT1+28
IEN	CPT~, CPT+1*, CPT+2
IENS	EN1+2~, EN1+16, EN1+23, RPT1+2~, RPT1+28, RPT1+29
J	XML+1~, XML+13*
LOC	EN1+2~, EN1+12, EN1+13, EN1+14, RPT1+2~, RPT1+25, RPT1+26, RPT1+27
MAX	EN~, EN+3, EN+4, RPTS~, RPTS+3, RPTS+4
N	CPT+1~, CPT+4*, CPT+5
NAMES	XML+1~, XML+4*, LOOP+2
NM	EN1+8~*, EN1+9
P	LOOP+1~, LOOP+2*
PAT	TEXT~, TEXT+1*, TEXT+3, TEXT+5, TEXT+6, TEXT+7
PROC	EN1+2~, EN1+4, EN1+5, EN1+8, EN1+20, EN1+25, TEXT+2~, TEXT+5, TEXT+6, RPT1+2~ , RPT1+7, RPT1+11, RPT1+15, RPT1+17, RPT1+20, RPT1+21
PSET	RPTS+1~, RPTS+6*, RPTS+8, RPTS+10
PSET(	RPTS+8, RPTS+10*
RAE1	RPT1+2~, RPT1+8*, RPT1+18, RPT1+25
RAE3	RPT1+2~, RPT1+7*, RPT1+13
RPT	RPT1~, RPT1+3!
RPT("category"	RPT1+21*
RPT("clinician"	RPT1+16, RPT1+19
RPT("content"	RPT1+12*
RPT("encounter"	RPT1+29*
RPT("facility"	RPT1+27*
RPT("id"	RPT1+13*
RPT("localTitle"	RPT1+21*
RPT("loinc"	RPT1+30*
RPT("nationalTitle"	RPT1+22*
RPT("nationalTitleSubject"	RPT1+23*
RPT("nationalTitleType"	RPT1+24*
RPT("referenceDateTime"	RPT1+14*
RPT("status"	RPT1+13*
SET	EN1+2~, EN1+4*, EN1+8, EN1+20
STR	LOOP+1~, LOOP+2, LOOP+3
STS	RPTS+1~, RPTS+6*, RPTS+7
TAG	LOOP+1~, LOOP+2*
U	EN1+4, EN1+5, EN1+7, EN1+8, EN1+9, EN1+11, EN1+12, EN1+13, EN1+15, EN1+17 , EN1+20, EN1+21, EN1+22, EN1+24, EN1+25, EN1+26, CPT+3, CPT+4, CPT+8, TEXT+3 , RPTS+6, RPTS+8, RPTS+10, RPT1+4, RPT1+13, RPT1+16, RPT1+18, RPT1+19, RPT1+25, RPT1+30 , LOOP+2
X	EN1+2~, EN1+12, EN1+13, EN1+15, EN1+17, EN1+18, EN1+25, EN1+26, CPT+1~, CPT+6* , CPT+7, CPT+8, TEXT+2~, TEXT+6, RPT1+2~, RPT1+11, RPT1+14, RPT1+15, RPT1+16, RPT1+17 , RPT1+19, RPT1+25, RPT1+26, XML+1~, XML+8, XML+10, XML+13, XML+16, XML+17, XML+18 , LOOP+2, ADD~, ADD+2
X0	EN1+2~, EN1+4, EN1+5, EN1+7, EN1+9, EN1+11, EN1+12, EN1+15, EN1+17, EN1+20 , EN1+21, EN1+22, CPT+1~, CPT+2, CPT+3
Y	EN1+2~, CPT+1~, CPT+3, CPT+4, CPT+8, CPT+9, TEXT+2~, TEXT+4, TEXT+6, TEXT+8 , RPT1+2~, RPT1+10, RPT1+11, RPT1+12, RPT1+18~, RPT1+19, XML+1~, XML+3, XML+5, XML+9* , XML+10, XML+11, XML+12, XML+13, XML+16, XML+17, XML+18*

Customize PDF page

Package: Enterprise Health Management Platform

Routine: HMPDRA

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: