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

Package Total Call Graph
Lab Service 3 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 1 $$NAME^VPRDLRA  

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

Package Total Caller Graph
Virtual Patient Record 2 VPREVNT  VPRSDAQ  

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
MI1(D0,D1) ; -- return MI approval node
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
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
EN^LR7OSUM RPT+5
EXPAND^LR7OU1 CH+3
$$LRDFN^LRPXAPIU LRDFN+2
$$LRDN^LRPXAPIU CH+7
EN^ORQ1 ORDERS+8
$$VALUE^ORX8 ONE+10
$$NAME^VPRDLRA RPT+4

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+8
^LAB(60 - [#60] CH+5
^LR - [#63] MI1+2, AP1+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("LRT" RPT+3!, RPT+8!
^TMP("ORR" ORDERS+9, ORDERS+20!

Label References

Name Line Occurrences
$$MI1 AP1+10
$$VB ONE+9

Naked Globals

Name Field # of Occurrence
^( ORDERS+9, 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
D0 MI1~, MI1+2*
D1 MI1~, MI1+2*
>> DATA RSLT+9*
DATE RPT+1~, RPT+4*, RPT+5
>> DDEOUT ONE+10*, RSLT+3*, RSLT+5*, RSLT+8*, AP1+7*
>> DFN ORDERS+8, LRDFN+1*, LRDFN+2, RPT+5
DG VB+1~, VB+2*, VB+3, DG~, DG+6*, DG+7
>> DIEN CH+7
>> DIFN AP1+5*, AP1+6*, AP1+7
>> DLIST CH+3
>> DLIST( ORDERS+17*, ORDERS+19*, CH+4, CH+7*
>> DMAX ORDERS+9
>> DSTOP ORDERS+8
>> DSTRT ORDERS+8
>> ENTITY RSLT+7*, RSLT+8*
FIELD RPT+2~
FILE RPT+2~
GBL MI1+1~, MI1+2*, MI1+3
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+6*, RSLT+7, LRTIU~, LRTIU+1*, LRTIU+2, LRTIU+3, RPT~, RPT+4
IEN LRTIU+1~, LRTIU+3*, RPT+2~
>> LR0 AP1+9*
>> LR1 AP1+10*
LRAU RPT+1~
>> LRDFN LRDFN+2*, RSLT+7, AP1+8*, AP1+9, AP1+10, 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+9
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+3, RSLT+6
SUB RSLT+2~*, RSLT+3, RSLT+5, RSLT+7, LRTIU~, LRTIU+1*, LRTIU+2, LRTIU+3, RPT~, RPT+4
T CH+2~, CH+4*, CH+5, CH+7
TAG RPT+2~
TEST CH~, CH+2*, CH+3
U ORDERS+10, ORDERS+12, ORDERS+14, ORDERS+16, ORDERS+18, ONE+8, ONE+11, VB+2, DG+4, DG+7
RSLT+9, CH+5, MI1+3, MI1+4, LRTIU+3
>> VALUE RSLT+7*
VBECS ORDERS+3~, ORDERS+5*, ORDERS+14, ORDERS+16, ORDERS+18
>> VPRCDT ONE+8*, ONE+11*, RSLT+6
VPRI ORDERS+3~, ORDERS+9*
VPRN ORDERS+3~, ORDERS+8*, ORDERS+9, ORDERS+17*, ORDERS+19*
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+2~, CH+5*, MI1+1~
, MI1+3*, MI1+4, 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