Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: HMPDMC

Package: Enterprise Health Management Platform

Routine: HMPDMC


Information

HMPDMC ;SLC/MKB,ASMR/RRB,BL,CPC - Clinical Procedures (Medicine);Aug 29, 2016 20:06:27

Source Information

Source file <HMPDMC.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Enterprise Health Management Platform 3 ($$ESC,$$FAC)^HMPD  ($$SIG,$$TEXT,EN1,XML)^HMPDTIU  LOGDPT^HMPLOG  
VA FileMan 3 ^%DT  $$EXTERNAL^DILFD  $$GET1^DIQ  
Medicine 2 SUB^MCARUTL2  MEDLKUP^MCARUTL3  
Text Integration Utility 2 EXTRACT^TIULQ  $$RESOLVE^TIUSRVLO  
CPT HCPCS Codes 1 ($$CPT,$$CPTD)^ICPTCOD  
Clinical Procedures 1 (EN1,PR690)^MDPS1  
Consult Request Tracking 1 DOCLIST^GMRCGUIB  
Kernel 1 ($$NS,$$STA)^XUAF4  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Enterprise Health Management Platform 3 HMPDJ03  HMPDJ08A  HMPDTIU  

Entry Points

Name Comments DBIA/ICR reference
EN(DFN,BEG,END,MAX,ID) ; -- find patient's procedures
A
B
C
ENQ ;
ROOT(DFN,NAME,DATE) ; -- return vptr ID for procedure instance
CPT(IEN) ; -- return code^description for CPT code, or "^" if error
RPTS(DFN,BEG,END,MAX) ; -- find patient's medicine reports
RPT1(DFN,ID,RPT) ; -- return report as a TIU document
TEXT(DFN,ID,NAME) ; -- Get report text, return temp array name
XML(PROC) ; -- Return patient procedure as XML
; as <element code='123' displayName='ABC' />
LOOP() ; -- build sub-items string from NAMES and X
ADD(X) ; Add a line @HMP@(n)=X

External References

Name Field # of Occurrence
^%DT EN+18, RPTS+17
$$EXTERNAL^DILFD A+7
$$GET1^DIQ A+10, B+12, RPT1+13, RPT1+15, RPT1+17, RPT1+18
DOCLIST^GMRCGUIB EN+22, RPTS+9
$$ESC^HMPD XML+13, XML+17, LOOP+2
$$FAC^HMPD B+8, C+2, RPT1+20
$$SIG^HMPDTIU RPT1+18
$$TEXT^HMPDTIU A+12, B+14
EN1^HMPDTIU RPTS+8, RPTS+12
XML^HMPDTIU RPTS+8, RPTS+12, RPTS+19
LOGDPT^HMPLOG EN+3, RPT1+1
$$CPT^ICPTCOD CPT+2
$$CPTD^ICPTCOD CPT+4
SUB^MCARUTL2 ROOT+2
MEDLKUP^MCARUTL3 EN+9, RPT1+5
EN1^MDPS1 EN+14, RPTS+4
PR690^MDPS1 TEXT+2
EXTRACT^TIULQ A+9, B+4, B+11
$$RESOLVE^TIUSRVLO EN+23
$$NS^XUAF4 C+2
$$STA^XUAF4 C+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] EXTERNAL^DILFD
^TIU(8925.1 - [#8925.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] B+6
^SC("B" B+7
^TMP("HMPTEXT" ENQ+1!, RPTS+20!, TEXT+3!, TEXT+4*, TEXT+5
^TMP("MDHSP" EN+13!, EN+15, ENQ+1!, RPTS+4!, RPTS+5, RPTS+20!
^TMP("MDPTXT" TEXT+4
^VA(200 - [#200] RPT1+16, RPT1+18

Label References

Name Line Occurrences
$$LOOP XML+9, XML+18
$$ROOT EN+19, RPTS+18
$$TEXT RPT1+21
ADD XML+3, XML+4, XML+7, XML+10, XML+11, XML+12, XML+13, XML+14, XML+15, XML+19
RPT1 RPTS+19
XML C+9

Naked Globals

Name Field # of Occurrence
^( EN+15, RPTS+5, TEXT+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT EN+1~, EN+18*, RPTS+1~, RPTS+17*
ATT XML+2~, 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+2*, EN+10*, EN+14, RPTS~, RPTS+3*, RPTS+4
CONS EN+1~, EN+22*, A+4, A+5, RPTS+1~, RPTS+9*
DA EN+1~, RPTS+1~, RPTS+11*, RPTS+12, RPTS+13
DATE EN+1~, EN+18*, EN+19, A+2, ROOT~, ROOT+2, RPTS+1~, RPTS+17*, RPTS+18
DFN EN~, EN+3*, EN+14, EN+19, ROOT~, ROOT+2, RPTS~, RPTS+2*, RPTS+4, RPTS+18
, RPTS+19, RPT1~, RPT1+1*, RPT1+21, TEXT~
END EN~, EN+2*, EN+10*, EN+14, RPTS~, RPTS+3*, RPTS+4
FILE EN+7~, EN+8*, EN+9
>> FILTER("loinc" RPT1+12
GBL EN+1~, EN+19*, EN+20, A+1, RPTS+1~, RPTS+18*, RPTS+19
>> HMP ADD+2
HMPD EN+22, RPTS+1~, RPTS+9
HMPD(0 EN+22
HMPD(50 A+8, RPTS+10, RPTS+11
HMPFN RPT1+3~, RPT1+4*, RPT1+5, RPT1+13, RPT1+15, RPT1+17, RPT1+18
>> HMPI ADD+1*, ADD+2
HMPITM EN+1~, A+1!, C+9, RPTS+1~, RPTS+7!, RPTS+8, RPTS+11!, RPTS+12, RPTS+19
HMPITM("category" A+2*
HMPITM("consult" A+5*
HMPITM("dateTime" A+2*
HMPITM("document" A+11*, A+12*, B+10, B+13*, B+14*
HMPITM("encounter" B+5*
HMPITM("facility" B+8*, C+2*
HMPITM("hasImages" B+3*
HMPITM("id" A+1*
HMPITM("interpretation" A+3*
HMPITM("location" B+8*
HMPITM("name" A+1*
HMPITM("order" A+6*
HMPITM("provider" B+2*
HMPITM("requested" A+6*
HMPITM("status" A+7*, B+9*, C+3*
HMPJ A+5~, A+8*
HMPMC EN+7~, EN+9, EN+10, ROOT+1~, ROOT+2, ROOT+3
HMPMC( ROOT+3
HMPN EN+1~, EN+15*, RPTS+1~, RPTS+5*
HMPT EN+1~, A+9!, B+4!, B+11!
HMPT( A+9, A+10, B+5, B+6, B+9, B+12
>> HMPTEXT A+12, B+14, RPT1+21
>> HMPTOTL XML+3*
HMPX EN+1~, EN+15*, EN+16, EN+17, EN+18, EN+19, EN+22, EN+23, A+1, A+3
, CPT+1~, RPTS+1~, RPTS+5*, RPTS+6, RPTS+7, RPTS+9, RPTS+17, RPTS+18
HMPX( CPT+7
HMPX(1 CPT+5, CPT+6
HMPY RPT1+3~, RPT1+5, RPT1+6, RPT1+7, RPT1+21
I CPT+1~, CPT+6*, CPT+7*, RPTS+1~, RPTS+10*, RPTS+11, TEXT+1~, TEXT+4*, XML+2~, XML+8*
, XML+9, XML+10
ID EN~, EN+6, EN+8, EN+16, EN+20, RPT1~, RPT1+1*, RPT1+2, RPT1+4, RPT1+5
, RPT1+6, RPT1+13, RPT1+15, RPT1+17, RPT1+18, RPT1+21, TEXT~, TEXT+2, TEXT+3, TEXT+4
, TEXT+5
IEN EN+7~, EN+8*, EN+9, CPT~, CPT+1*, CPT+2
J XML+2~, XML+13*
LOC EN+1~, B+6*, B+7*, B+8
LT EN+1~, A+9*, A+11
MAX EN~, EN+2*, EN+14, RPTS~, RPTS+3*, RPTS+4
MCARGDA TEXT+1~, TEXT+2*, TEXT+4
MCPRO TEXT+1~, TEXT+2*, TEXT+4
MDALL TEXT+1~, TEXT+2*
N CPT+1~, CPT+4*, CPT+5
NAME ROOT~, ROOT+2, TEXT~, TEXT+2
NAMES XML+2~, XML+5*, LOOP+2
NT EN+1~, A+10*, A+11, B+12*, B+13
P LOOP+1~, LOOP+2*
PROC XML~
PROC( XML+4, XML+6, XML+8, XML+9, XML+10, XML+16
RES EN+1~, EN+13*, EN+14, RPTS+1~, RPTS+3*, RPTS+4
RPT RPT1~
RPT("category" RPT1+7*
RPT("clinician" RPT1+16*, RPT1+18*
RPT("content" RPT1+21*
RPT("documentClass" RPT1+8*
RPT("facility" RPT1+20*
RPT("id" RPT1+6*
RPT("localTitle" RPT1+7*
RPT("loinc" RPT1+12*
RPT("nationalTitle" RPT1+9*
RPT("nationalTitleService" RPT1+10*
RPT("nationalTitleType" RPT1+11*
RPT("referenceDateTime" RPT1+6*
RPT("status" RPT1+14*
RTN EN+1~, EN+17*, EN+19, RPTS+1~, RPTS+6*, RPTS+14, RPTS+15
STR LOOP+1~*, LOOP+2*, LOOP+3
TAG LOOP+1~, LOOP+2*
TIUN EN+1~, EN+23*, A+13*, B+1, B+2, B+3, B+4, B+5, B+6, B+7
, B+9, B+10, B+11, B+12, B+13, B+14, RPTS+1~, RPTS+7*, RPTS+8, RPTS+11
, RPTS+13
U EN+10, EN+16, EN+17, EN+18, EN+19, EN+22, EN+23, A+1, A+3, A+6
, A+7, A+11, B+2, B+3, B+6, B+7, B+13, C+2, ROOT+3, CPT+3
, CPT+4, CPT+8, RPTS+6, RPTS+7, RPTS+9, RPTS+17, RPTS+18, RPT1+6, RPT1+7, RPT1+12
, RPT1+16, RPT1+18, RPT1+21, LOOP+2
X EN+1~, EN+10*, EN+18*, A+3*, A+8*, A+9, A+10, A+11, A+12, A+13
, B+2*, B+7*, B+9*, C+2*, CPT+1~, CPT+6*, CPT+7*, CPT+8, RPTS+1~, RPTS+17*
, RPT1+3~, RPT1+13*, RPT1+14, RPT1+15*, RPT1+16, RPT1+17*, RPT1+18, TEXT+1~, TEXT+4*, XML+2~
, XML+9*, XML+10*, XML+13, XML+16*, XML+17, XML+18, LOOP+2, ADD~, ADD+2
X0 EN+1~, EN+22*, A+4, A+6, A+7, C+2, CPT+1~, CPT+2*, CPT+3
Y EN+1~, EN+18, ROOT+1~, ROOT+3*, ROOT+4, CPT+1~, CPT+3*, CPT+4, CPT+8*, CPT+9
, RPTS+1~, RPTS+17, TEXT+1~, TEXT+5*, TEXT+6, XML+2~, XML+4, XML+6*, XML+9*, XML+10*
, XML+11*, XML+12*, XML+13*, XML+16*, XML+17*, XML+18*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All