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

Package: Order Entry Results Reporting

Routine: ORMBLDVB


Information

ORMBLDVB ;SLC/MKB - Build outgoing Blood Bank ORM msgs ;2/11/08 11:04

Source Information

Source file <ORMBLDVB.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Health Level Seven 4 $$GETAPP^HLCS2  $$HLNAME^HLFNC  INIT^HLFNC2  (DIRECT,GENERATE)^HLMA  
VA FileMan 3 ^%DT  ^DIE  $$GET1^DIQ  
MailMan 2 XMZ^XMA2  EN1^XMD  
Registration 2 IN5^VADPT  $$SITE^VASITE  
Kernel 1 ($$FMTHL7,$$NOW)^XLFDT  
Master Patient Index VistA 1 $$GETICN^MPIF001  
Order Entry Results Reporting 1 ACK^ORMVBEC  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Order Entry Results Reporting 2 ORCSEND2  ORMBLD  

Entry Points

Name Comments DBIA/ICR reference
ZDIV(LOC) ; -- Return Institution file #4 ptr for LOC
ORC(CODE,FILLER,REASON) ; -- ORC segment (expects OR0, OR3, ORDT)
DIV() ; -- Return Institution file #4 ptr for LOC
GETVALS(IFN) ; -- Return ORVAL(ID)=value for child order IFN
PV1() ; -- PV1 segment (expects OR0)
CA(ORDER,REASON) ; -- Cancel VBEC orders (ORDER=child)
; [from DC^ORCSEND/MSG^ORMBLD - Uses ORNOW if defined]
NTE() ; -- NTE segment
SNDERR(MSG) ; -- Send Error message to VBECS Mail Group
; Input - MSG = Error message string
RESULTS(ORDER) ; -- Send PR messages with Lab results [from EN]
; where ORDER = parent#
PID(DFN) ; -- PID segment
TYPE(X) ; -- Expands collection type code into text
USID(IFN) ; -- Return USID for order IFN
OBR(FILLER) ; -- OBR segment
DG1(DFN) ; -- DG1 segment
QT() ; -- Build and return Quantity/Timing field
HL7DATE(DATE) ; -- FM -> HL7 format
NW(ORIFN) ; -- Send new VBECS orders [from ORCSEND2]
; Uses ORNOW if defined

External References

Name Field # of Occurrence
^%DT QT+4
^DIE SNDERR+8
$$GET1^DIQ PV1+5
$$GETAPP^HLCS2 SNDERR+6
$$HLNAME^HLFNC PID+4, PV1+8, ORC+4
INIT^HLFNC2 NW+4, CA+7
DIRECT^HLMA NW+13, RESULTS+13, CA+11
GENERATE^HLMA NW+14, RESULTS+14, CA+14
$$GETICN^MPIF001 PID+3
ACK^ORMVBEC NW+16, CA+15
IN5^VADPT DG1+2
$$SITE^VASITE ZDIV+2
$$FMTHL7^XLFDT HL7DATE+1
$$NOW^XLFDT NW+5, CA+3
XMZ^XMA2 SNDERR+7
EN1^XMD SNDERR+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(45.7 - [#45.7] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] DIV+2, ZDIV+3
^DPT - [#2] PID+2, PV1+4, PV1+6
^LAB(60 - [#60] RESULTS+7
^OR(100 - [#100] NW+3, GETVALS+2, RESULTS+3, RESULTS+4, RESULTS+5, CA+5, CA+13*, USID+2
^ORD(100.03 - [#100.03] CA+6
^ORD(101.42 - [#101.42] QT+6
^ORD(101.43 - [#101.43] USID+3
^SC - [#44] PV1+3, ZDIV+1
^VA(200 - [#200] PV1+7, ORC+2, ORC+4

Label References

Name Line Occurrences
$$DG1 NW+11
$$DIV ORC+6
$$HL7DATE NW+6, RESULTS+11, CA+4, PID+4, QT+5
$$NTE NW+10
$$OBR NW+9, CA+10
$$ORC NW+9, CA+10
$$PID NW+8, RESULTS+8, CA+9
$$PV1 NW+8, RESULTS+8, CA+9
$$QT OBR+7
$$TYPE OBR+4
$$USID OBR+2
GETVALS NW+4, CA+7
SNDERR NW+14, RESULTS+14, CA+14

Naked Globals

Name Field # of Occurrence
^( GETVALS+2
^(0 CA+13*
^(3 NW+3, CA+5
^(4 CA+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT QT+1~, QT+4*
ATTD PV1+1~, PV1+6*, PV1+7, PV1+8*, PV1+9
CODE ORC~, ORC+6
>> DA SNDERR+8*
DAD ORC+1~, ORC+5*, ORC+6
DATE HL7DATE~, HL7DATE+1
DFN PID~, PID+1*, PID+2, PID+3, PID+5, PV1+1~, PV1+2*, PV1+4, PV1+6, DG1~
, DG1+2*
>> DIE SNDERR+8*
DOB PID+1~, PID+4*, PID+5
>> DR SNDERR+8*
DT ZDIV+2
DUZ(2 DIV+1, ZDIV+3
FILLER ORC~, ORC+6, OBR~, OBR+7
HL NW+2~, NW+4, CA+2~, CA+7
HLA NW+2~, RESULTS+2~, RESULTS+7!, CA+2~
HLA("HLS" NW+8*, NW+9*, NW+10*, NW+11*, RESULTS+8*, RESULTS+9*, RESULTS+10*, RESULTS+11*, CA+9*, CA+10*
HLMTIEN NW+2~, NW+16, CA+2~, CA+15
ID GETVALS+1~*, GETVALS+2*
IFN GETVALS~, GETVALS+2, USID~, USID+2
ITM GETVALS+1~, GETVALS+2*
LOC PV1+1~, PV1+2*, PV1+3*, PV1+9, ZDIV~, ZDIV+1
MOD OBR+1~, OBR+2*, OBR+3*, OBR+7
MSG SNDERR~, SNDERR+5
NAME PID+1~, PID+4*, PID+5
NM PV1+7~*, PV1+8, ORC+1~, ORC+4*
OI OBR+1~, OBR+2*, OBR+7, USID+1~, USID+2*, USID+3
OI0 USID+1~, USID+3*, USID+4
OID USID+1~, USID+3*, USID+5
OIX USID+1~, USID+4*, USID+5
OR0 NW+2~, NW+3*, NW+8, NW+11, RESULTS+3*, RESULTS+8, CA+2~, CA+5*, CA+9, PV1+2
, ORC+2
OR3 NW+2~, NW+3*, CA+2~, CA+5*, ORC+5
ORDA CA+2~, CA+4*, CA+13
ORDER RESULTS~, RESULTS+3*, RESULTS+4, RESULTS+5, RESULTS+9, CA~, CA+4, CA+15
ORDT NW+2~, NW+5*, NW+6*, CA+2~, CA+3*, CA+4*, ORC+6
OREMSG SNDERR+2~
OREMSG(1 SNDERR+3*
OREMSG(2 SNDERR+4*
OREMSG(3 SNDERR+5*
ORI NW+2~, NW+9*, NW+10*, NW+11*, RESULTS+2~, RESULTS+3*, RESULTS+4*, RESULTS+5, ORC+1~, ORC+4*
, QT+1~, QT+3*, QT+4, QT+5
ORICN PID+1~, PID+3*, PID+5
ORIFN NW~, NW+3, NW+4, NW+16, CA+2~, CA+4*, CA+5, CA+7, CA+13, ORC+6
, OBR+2, OBR+7
>> ORLAB OBR+7
>> ORNOW NW+5, CA+3
OROK NW+2~, NW+13, NW+14, RESULTS+2~, RESULTS+7!, RESULTS+13, RESULTS+14, CA+2~, CA+11, CA+12
, CA+13, CA+14
ORP RESULTS+2~
ORPT0 PID+1~, PID+2*, PID+4, PID+5
ORR NW+2~, NW+6*, NW+9
ORTDT RESULTS+2~, RESULTS+5*, RESULTS+11
ORTMP RESULTS+2~
ORTST RESULTS+2~, RESULTS+7*, RESULTS+10, RESULTS+11
ORVAL NW+2~, GETVALS+1!, CA+2~
ORVAL( GETVALS+2*, QT+4
ORVAL("COLLECT" OBR+4
ORVAL("COMMENT" NW+10, NTE+1
ORVAL("MISC" QT+8
ORVAL("MODIFIER" OBR+2
ORVAL("QTY" QT+2
ORVAL("REASON" NW+6
ORVAL("SPECSTS" OBR+5
ORVAL("URGENCY" QT+6
ORVAL("YN" ORC+7
ORX RESULTS+2~, RESULTS+5*, RESULTS+6, RESULTS+7, RESULTS+10, RESULTS+11
PHONE ORC+1~, ORC+3*, ORC+6
PKGIFN CA+2~, CA+5*, CA+10
PROV ORC+1~, ORC+2*, ORC+6
RB PV1+1~, PV1+3*, PV1+4*, PV1+9
REASON CA~, CA+6*, CA+10, ORC~, ORC+6
SPCACT OBR+1~, OBR+5*, OBR+6, OBR+7
SPCUID OBR+1~, OBR+6*, OBR+7
SPEC PV1+1~, PV1+2*, PV1+5*, PV1+9
TYPE PV1+1~, PV1+2*, PV1+4, PV1+9, OBR+1~, OBR+4*, OBR+7
U NW+8, NW+11, NW+14, RESULTS+5, RESULTS+7, RESULTS+8, RESULTS+10, RESULTS+11, RESULTS+14, CA+6
, CA+9, CA+12, CA+13, CA+14, PID+4, PID+5, PV1+2, PV1+3, PV1+4, PV1+7
, PV1+8, PV1+9, ORC+2, ORC+3, ORC+4, ORC+5, OBR+5, OBR+6, USID+3, USID+4
, USID+5, QT+4, QT+5, QT+6, QT+9, DIV+2, ZDIV+2, ZDIV+3
USR ORC+1~, ORC+2*, ORC+6
VAERR DG1+1~
VAIP DG1+1~
VAIP(9 DG1+3
X OBR+1~, OBR+5*, OBR+6, QT+1~, QT+2*, QT+4*, QT+5*, QT+6*, DIV+1~*, DIV+2
, ZDIV+2*, ZDIV+3*, TYPE~, TYPE+1, TYPE+2, TYPE+3*, TYPE+4
X0 ZDIV+1~*, ZDIV+2, ZDIV+3
X1 QT+1~, QT+2*, QT+9
X13 ORC+1~, ORC+2*, ORC+3
X4 QT+1~, QT+3*, QT+9
X5 QT+1~, QT+3*, QT+9
X6 QT+1~, QT+6*, QT+9
X8 QT+1~, QT+8*, QT+9
XMDUZ SNDERR+2~, SNDERR+7*
XMSUB SNDERR+2~, SNDERR+7*
XMTEXT SNDERR+2~, SNDERR+7*
XMY SNDERR+2~
XMY("G." SNDERR+6*
XMZ SNDERR+2~, SNDERR+8
Y PID+1~, PID+5*, PID+6, PV1+1~, PV1+9*, PV1+10, ORC+1~, ORC+6*, ORC+8*, ORC+9
, OBR+1~, OBR+7*, OBR+8, USID+1~*, USID+5*, USID+6, NTE+1~*, NTE+2, DG1+1~, DG1+3*
, DG1+4, QT+1~, QT+4, QT+5, QT+9*, QT+10, DIV+1~, DIV+2*, DIV+3, ZDIV+1~
, ZDIV+2*, ZDIV+3*, ZDIV+4
YN ORC+1~, ORC+7*, ORC+8
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