ORMBLDVB ;SLC/MKB - Build outgoing Blood Bank ORM msgs ;2/11/08 11:04
Source file <ORMBLDVB.m>
| 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 |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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
|
| 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 |
| FileNo | Call Tags |
|---|---|
| ^DIC(45.7 - [#45.7] | GET1^DIQ |
| 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 |
| 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 |
| Name | Field # of Occurrence |
|---|---|
| ^( | GETVALS+2 |
| ^(0 | CA+13* |
| ^(3 | NW+3, CA+5 |
| ^(4 | CA+5 |
| >> | 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 |