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: VPRDMC

Package: Virtual Patient Record

Routine: VPRDMC


Information

VPRDMC ;SLC/MKB -- Clinical Procedures (Medicine) ;3/14/12 09:03

Source Information

Source file <VPRDMC.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
VA FileMan 3 ^%DT  $$EXTERNAL^DILFD  $$GET1^DIQ  
Medicine 2 SUB^MCARUTL2  MEDLKUP^MCARUTL3  
Text Integration Utility 2 EXTRACT^TIULQ  $$RESOLVE^TIUSRVLO  
Virtual Patient Record 2 ($$ESC,$$FAC,$$PROVSPC,$$PROVTAGS)^VPRD  ($$INFO,$$SIG,$$TEXT,EN1,XML)^VPRDTIU  
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: 4

Package Total Caller Graph
Virtual Patient Record 4 VPRDJ03  VPRDJ08A  VPRDPROC  VPRDTIU  

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 @VPR@(n)=X

External References

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] EXTERNAL^DILFD

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$LOOP XML+9, XML+18
$$ROOT EN+19, RPTS+18
$$TEXT C+4, RPT1+20
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+12

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, C+4, ROOT~, ROOT+2, RPTS~, RPTS+2*, RPTS+4
, RPTS+18, RPTS+19, RPT1~, RPT1+1*, RPT1+20, TEXT~
END EN~, EN+2*, EN+10*, EN+14, RPTS~, RPTS+3*, RPTS+4
FILE EN+7~, EN+8*, EN+9
>> FILTER("loinc" RPT1+11
GBL EN+1~, EN+19*, EN+20, A+1, C+3, C+4, RPTS+1~, RPTS+18*, RPTS+19
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+3, RPT1+4, RPT1+5
, RPT1+12, RPT1+14, RPT1+16, RPT1+17, RPT1+20, 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
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
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+6*
RPT("clinician" RPT1+15*, RPT1+17*
RPT("content" RPT1+20*
RPT("documentClass" RPT1+7*
RPT("facility" RPT1+19*
RPT("id" RPT1+5*
RPT("localTitle" RPT1+6*
RPT("loinc" RPT1+11*
RPT("nationalTitle" RPT1+8*
RPT("nationalTitleService" RPT1+9*
RPT("nationalTitleType" RPT1+10*
RPT("referenceDateTime" RPT1+5*
RPT("status" RPT1+13*
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+12*, B+1, B+2, B+3, B+4, B+5, B+6, B+7
, B+9, B+10, B+11, B+12, B+13, C+2, 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, B+2, B+3, B+6, B+7, C+3, C+4, C+5, ROOT+3, CPT+3
, CPT+4, CPT+8, RPTS+6, RPTS+7, RPTS+9, RPTS+17, RPTS+18, RPT1+5, RPT1+6, RPT1+11
, RPT1+15, RPT1+17, RPT1+20, LOOP+2
>> VPR ADD+2
VPRD EN+22, RPTS+1~, RPTS+9
VPRD(0 EN+22
VPRD(50 A+8, RPTS+10, RPTS+11
VPRFN RPT1+2~, RPT1+3*, RPT1+4, RPT1+12, RPT1+14, RPT1+16, RPT1+17
>> VPRI ADD+1*, ADD+2
VPRITM EN+1~, A+1!, C+12, RPTS+1~, RPTS+7!, RPTS+8, RPTS+11!, RPTS+12, RPTS+19
VPRITM("category" A+2*
VPRITM("consult" A+5*
VPRITM("dateTime" A+2*
VPRITM("document" A+10*, A+11*, B+10, B+12*, B+13*, C+3*, C+4*
VPRITM("encounter" B+5*
VPRITM("facility" B+8*, C+5*
VPRITM("hasImages" B+3*
VPRITM("id" A+1*
VPRITM("interpretation" A+3*
VPRITM("location" B+8*
VPRITM("name" A+1*
VPRITM("order" A+6*
VPRITM("provider" B+2*
VPRITM("requested" A+6*
VPRITM("status" A+7*, B+9*, C+6*
VPRJ A+5~, A+8*
VPRMC EN+7~, EN+9, EN+10, ROOT+1~, ROOT+2, ROOT+3
VPRMC( ROOT+3
VPRN EN+1~, EN+15*, RPTS+1~, RPTS+5*
VPRT EN+1~, B+4!
VPRT( B+5, B+6, B+9
>> VPRTEXT A+11, B+13, C+4, RPT1+20
>> VPRTOTL XML+3*
VPRX EN+1~, EN+15*, EN+16, EN+17, EN+18, EN+19, EN+22, EN+23, A+1, A+3
, C+3, C+4, CPT+1~, RPTS+1~, RPTS+5*, RPTS+6, RPTS+7, RPTS+9, RPTS+17, RPTS+18
VPRX( CPT+7
VPRX(1 CPT+5, CPT+6
VPRY RPT1+2~, RPT1+4, RPT1+5, RPT1+6, RPT1+20
X EN+1~, EN+10*, EN+18*, A+3*, A+8*, A+9, A+10, A+11, A+12, B+2*
, B+7*, B+9*, C+5*, CPT+1~, CPT+6*, CPT+7*, CPT+8, RPTS+1~, RPTS+17*, RPT1+2~
, RPT1+12*, RPT1+13, RPT1+14*, RPT1+15, RPT1+16*, RPT1+17, 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+5, CPT+1~, CPT+2*, CPT+3
Y EN+1~, EN+18, A+9~*, A+10, B+11~*, B+12, 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+7, 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