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