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

Package: Virtual Patient Record

Routine: VPRSDAB


Information

VPRSDAB ;SLC/MKB -- SDA Lab utilities ;4/11/19 21:05

Source Information

Source file <VPRSDAB.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Lab Service 4 RR^LR7OR1  EN^LR7OSUM  EXPAND^LR7OU1  ($$LRDFN,$$LRDN)^LRPXAPIU  
Order Entry Results Reporting 2 EN^ORQ1  $$VALUE^ORX8  
VA FileMan 2 $$FIND1^DIC  $$GET1^DIQ  
Virtual Patient Record 2 $$NAME^VPRDLRA  $$MI1^VPRSDAB  

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

Package Total Caller Graph
Virtual Patient Record 3 VPREVSND  VPRSDAB  VPRSDAQ  
VA FileMan 2 ^DDE  ITEM  

Entry Points

Name Comments DBIA/ICR reference
ORDERS ; -- Return DLIST(#)=order# of Lab orders
; Includes VBECS/BB orders [not in use yet]
; Expects DFN, DSTRT,DSTOP, DMAX
ONE(ID) ; -- ID processing for Lab order returns: [not in use yet]
; ORPK = Lab order/data string
; ORDAD = parent order#
; VPRCDT = Lab collection (start) date.time
; VPRVBEC = 1 or 0, if VBECS order
; ORLAB = associated Lab child order#, if VBECS
VB(ORIFN) ; -- return 1 or 0, if order is for Blood Bank
DG(DG) ; -- convert DG to section, if needed
; Returns LRSUB = DG abbreviation
LRDFN(ORIFN) ; -- set up LRDFN for Lab Order
RSLT ; -- get Entity for LabOrder Result
; Returns VALUE, ENTITY, DATA
CH(TEST) ; -- builds DLIST(#) of result nodes for TEST
; called from ResultItems in VPR LRCH RESULT, expects DIEN
VALRNG(LOW,HIGH) ; -- Validate that range values will be accepted in SDA format for <ResultNormalRange> post REFRNG execution
REFRNG(RLV,RHV) ; -- format low-high ref range string
MI1(D0,D1) ; -- return MI approval node
APRPTS ; -- Anatomic Pathology reports query [from DDEGET]
; Expects DFN, DSTRT,DSTOP, DMAX, LRDFN
; Return DLIST(#) = IDT,LRDFN~SUB
MIRPTS ; -- Microbiology reports query [from DDEGET]
; Expects DFN, DSTRT,DSTOP, DMAX, LRDFN
; Return DLIST(#) = IDT,LRDFN~SUB
AP1(ID) ; -- parse ID='IDT,LRDFN~SUB' for AP,MI report
; Returns DIFN, LRSUB, updated ID, LR0=^LR(LRDFN,SUB,IDT,0)
; and LR1=^LR(LRDFN,"MI",IDT,#) report approval if MI
RR ; -- returns addl reports for order in DLIST(#) = IDT;SUB or IEN;TIU
; Expects DFN, ORPK, LRDFN
LRTIU(IDT,SUB) ; -- return TIU ien of lab report
RPT(SUB,IDT) ; -- return report text in WP(), expects DFN

External References

Name Field # of Occurrence
$$FIND1^DIC ORDERS+5
$$GET1^DIQ LRDFN+1, LRTIU+3
RR^LR7OR1 APRPTS+4, MIRPTS+4, RR+4
EN^LR7OSUM RPT+5
EXPAND^LR7OU1 CH+4
$$LRDFN^LRPXAPIU LRDFN+2
$$LRDN^LRPXAPIU CH+8
EN^ORQ1 ORDERS+8
$$VALUE^ORX8 ONE+10
$$NAME^VPRDLRA RPT+4
$$MI1^VPRSDAB MIRPTS+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^OR(100 - [#100] GET1^DIQ
^TIU(8925 - [#8925] GET1^DIQ
^DIC(9.4 - [#9.4] FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DDE("B" RSLT+6
^LAB(60 - [#60] CH+6
^LR - [#63] MI1+2, APRPTS+7, APRPTS+8, AP1+9, RR+9, LRTIU+3
^OR(100 - [#100] ORDERS+11, ORDERS+14, ORDERS+15, ORDERS+16, ORDERS+18, ONE+8, ONE+11, VB+2
^ORD(100.98 - [#100.98] ORDERS+4, VB+2, DG+6, DG+7
^ORD(101.43 - [#101.43] DG+4
^TMP("LRC" RPT+3!, RPT+7, RPT+8!
^TMP("LRH" RPT+3!, RPT+6, RPT+8!
^TMP("LRRR" APRPTS+5, APRPTS+6, APRPTS+10!, MIRPTS+5, MIRPTS+9!, RR+6
^TMP("LRT" RPT+3!, RPT+8!
^TMP("ORR" ORDERS+9, ORDERS+20!

Label References

Name Line Occurrences
$$LRTIU RR+9
$$MI1 AP1+10, RR+8
$$VB ONE+9

Naked Globals

Name Field # of Occurrence
^( ORDERS+9, APRPTS+6, MIRPTS+5, LRTIU+3, RPT+7
^(3 ORDERS+11, ONE+8
^(4 ONE+8, ONE+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT RR+2~, RR+5*, RR+10*
CTR APRPTS+3~, MIRPTS+3~
D0 MI1~, MI1+2*
D1 MI1~, MI1+2*
>> DATA RSLT+7*
DATE RPT+1~, RPT+4*, RPT+5
>> DDEOUT ONE+10*, RSLT+3*, RSLT+6*, AP1+7*
>> DFN ORDERS+8, LRDFN+1*, LRDFN+2, APRPTS+4, APRPTS+5, APRPTS+6, APRPTS+10, MIRPTS+4, MIRPTS+5, MIRPTS+9
RR+3, RR+4, RR+6, RPT+5
DG VB+1~, VB+2*, VB+3, DG~, DG+6*, DG+7
>> DIEN CH+8
>> DIFN AP1+5*, AP1+6*, AP1+7
>> DLIST CH+4
>> DLIST( ORDERS+17*, ORDERS+19*, CH+5, CH+8*, APRPTS+9*, MIRPTS+8*, RR+10*
>> DMAX ORDERS+9, APRPTS+6, MIRPTS+5
>> DSTOP ORDERS+8, APRPTS+4, MIRPTS+4
>> DSTRT ORDERS+8, APRPTS+4, MIRPTS+4
>> ENTITY RSLT+5*, RSLT+6*
FIELD RPT+2~
FILE RPT+2~
GBL MI1+1~, MI1+2*, MI1+3
HIGH VALRNG~, VALRNG+6*, VALRNG+9*, VALRNG+11, VALRNG+13
I LRTIU+1~, LRTIU+3*, RPT+1~, RPT+6*, RPT+7*
ID ONE~, ONE+7*, ONE+8, ONE+9, ONE+10, AP1~, AP1+3*, AP1+8, AP1+9, AP1+10
IDT RSLT+2~, RSLT+4*, RSLT+5, APRPTS+3~, APRPTS+6*, APRPTS+7, APRPTS+8, APRPTS+9, MIRPTS+3~, MIRPTS+5*
MIRPTS+7, MIRPTS+8, RR+2~, RR+6*, RR+7, RR+8, RR+9, LRTIU~, LRTIU+2*, LRTIU+3
, RPT~, RPT+4
IEN LRTIU+1~, LRTIU+3*, RPT+2~
LOW VALRNG~, VALRNG+6*, VALRNG+8*, VALRNG+11, VALRNG+12
>> LR0 CH+2, AP1+9*
>> LR1 AP1+10*
LRAU RPT+1~
>> LRDFN LRDFN+2*, RSLT+5, APRPTS+7, APRPTS+8, APRPTS+9, MIRPTS+7, MIRPTS+8, AP1+8*, AP1+9, AP1+10
RR+8, RR+9, LRTIU+3
LRSUB DG+7*, RSLT+2, AP1+3*, AP1+4, AP1+5*, AP1+6, AP1+9, AP1+10, RPT+2~
N MI1+1~, MI1+3*, MI1+4
NAME RPT+1~, RPT+4*, RPT+6
>> ORDAD ONE+8*
ORDER ORDERS+3~, ORDERS+9*, ORDERS+10, ORDERS+11*, ORDERS+14, ORDERS+15, ORDERS+19
ORDG ORDERS+3~, ORDERS+4*, ORDERS+8
ORIFN VB~, VB+2, LRDFN~, LRDFN+1
ORIGVIEW ORDERS+3~, ORDERS+7*
>> ORIT DG+4, RSLT+7
ORKID ORDERS+3~, ORDERS+7*, ORDERS+15*, ORDERS+16, ORDERS+17
>> ORLAB ONE+7*, ONE+10*, ONE+11
ORLIST ORDERS+3~, ORDERS+9
>> ORPK ONE+8*, ONE+11*, DG+3, RSLT+4, RR+3, RR+4, RR+5, RR+7
RESULT VALRNG+4~, VALRNG+5*, VALRNG+12*, VALRNG+13*, VALRNG+14
RHV REFRNG~, REFRNG+4*, REFRNG+5, REFRNG+8*, REFRNG+10, REFRNG+16, REFRNG+17*, REFRNG+18, REFRNG+19*, REFRNG+20*
, REFRNG+22
RLV REFRNG~, REFRNG+4*, REFRNG+5, REFRNG+7*, REFRNG+10, REFRNG+11*, REFRNG+12, REFRNG+13*, REFRNG+16, REFRNG+22
SUB RSLT+2~*, RSLT+3, RSLT+5, APRPTS+3~, APRPTS+5*, APRPTS+6, APRPTS+7, APRPTS+8, APRPTS+9, RR+2~
RR+5*, RR+6, RR+8, RR+9, LRTIU~, LRTIU+2*, LRTIU+3, RPT~, RPT+4
T CH+3~, CH+5*, CH+6, CH+8
TAG RPT+2~
TEST CH~, CH+3*, CH+4
U ORDERS+10, ORDERS+12, ORDERS+14, ORDERS+16, ORDERS+18, ONE+8, ONE+11, VB+2, DG+4, DG+7
RSLT+7, CH+2, CH+6, MI1+3, MI1+4, APRPTS+8, RR+9, LRTIU+3
>> VALUE RSLT+5*
VBECS ORDERS+3~, ORDERS+5*, ORDERS+14, ORDERS+16, ORDERS+18
>> VPRCDT ONE+8*, ONE+11*, RSLT+4
VPRI ORDERS+3~, ORDERS+9*
VPRN ORDERS+3~, ORDERS+8*, ORDERS+9, ORDERS+17*, ORDERS+19*, APRPTS+3~*, APRPTS+6, APRPTS+9*, MIRPTS+3~*, MIRPTS+5
MIRPTS+8*
VPRS RPT+1~, RPT+5
VPRS( RPT+4*
>> VPRVBEC ONE+9*, DG+5, RSLT+2
VPRY RPT+1~, RPT+5
>> WP( RPT+7*
X VB+1~, VB+2*, DG+2~*, DG+3*, DG+4*, DG+5*, DG+6, CH+3~, CH+6*, MI1+1~
, MI1+3*, MI1+4, RR+2~, RR+8*, RR+9*, RR+10, LRTIU+1~, LRTIU+3*, RPT+1~, RPT+7*
X0 ORDERS+3~, ORDERS+11*, ORDERS+14
X3 ORDERS+3~, ORDERS+11*, ORDERS+12, ORDERS+18
Y VB+1~*, VB+3*, VB+4, DG+2~*, DG+6*, MI1+1~, MI1+2*, MI1+4*, MI1+5, LRTIU+1~
, LRTIU+2*, LRTIU+3*, LRTIU+4
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