©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
INHUT7 ; KAC ; 8 Jan 98 17:16; HL7 Utilities
Source file <INHUT7.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Generic Interface System | 4 | ERROR^INHS ACKLOG^INHU ($$COMP,$$ESC,$$FIELD,$$REP,$$SUBCOMP)^INHUT $$SC^INHUTIL1 |
| Kernel | 2 | ^XUDIV DUZAG^XUS1 |
| Uncategorized | 1 | SETDT^UTDT |
| VA Fileman | 1 | ^DIE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DLMCNV(INREC,INDEL) | ;;HL7 specifications to correct delimitor if in record
; Input: INREC - Portion of HL7 MSG to check ; INDEL(opt) = FSRET values - each position is critical ; ie S INDEL="^\|~&" ; or ; array of delimiters ; S INDEL("F")="^" ; S INDEL("S")="\" ; S INDEL("R")="|" ; S INDEL("E")="~" ; S INDEL("T")="&" ; Returns - Record with replace values |
|
| GETDEST(INACKTT,INA,INACKDST,INACKUIF) | ; $$function - Used to support routing
; of Application Acknowledgement messages to the originating system ; when multiple instantiations of a remote system type exist. Only ; one of the input parameters (INA,INACKDST,INACKUIF) must be ; specified by the caller to route an Application Ack. If a valid ; destination cannot be identified, a fatal script error is logged ; and the O/P Ctlr will log an error in ^INTHER. |
|
| SUBESC(INREC,INDEL,INB) | ;Substitute escape delimeters to and from HL7
; spec |
|
| CNVDLM(INREC,INDEL) | ;;Convert delimeters to HL7 specifications if in record
; Input: INREC - Portion of HL7 MSG to check ; INDEL(opt) = FSRET values - each position is critical ; ie S INDEL="^\|~&" ; or ; array of delimiters ; S INDEL("F")="^" ; S INDEL("S")="\" ; S INDEL("R")="|" ; S INDEL("E")="~" ; S INDEL("T")="&" ; Returns - Record with replace values |
|
| APPACK(INUIF,INAKMES,INASTAT,INERMSG) | ;User API to ACKLOG^INHU
|
|
| SETENV | ;Set environment for GIS with DUZ postmaster array
|
|
| SETDIV | ;Called from SETENV if needed to stuff the postmaster default division.
|
| Name | Field # of Occurrence |
|---|---|
| ^DIE | SETDIV+10 |
| ERROR^INHS | GETDEST+44, APPACK+23 |
| ACKLOG^INHU | APPACK+24 |
| $$COMP^INHUT | CNVDLM+17, DLMCNV+17 |
| $$ESC^INHUT | CNVDLM+17, DLMCNV+17 |
| $$FIELD^INHUT | CNVDLM+18, DLMCNV+18 |
| $$REP^INHUT | CNVDLM+17, DLMCNV+17 |
| $$SUBCOMP^INHUT | CNVDLM+18, DLMCNV+18 |
| $$SC^INHUTIL1 | SETENV+4 |
| SETDT^UTDT | SETENV+4, SETENV+7 |
| ^XUDIV | SETENV+9 |
| DUZAG^XUS1 | SETENV+8 |
| FileNo | Call Tags |
|---|---|
| ^DIC(3 - [#3] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | SETDIV+2, SETDIV+4, SETDIV+6, SETDIV+7, SETDIV+9 |
| ^DIC(3 - [#3] | SETENV+6 |
| ^INRHD - [#4005] | GETDEST+34, GETDEST+37, GETDEST+40 |
| ^INRHT - [#4000] | GETDEST+43 |
| ^INTHU - [#4001] | GETDEST+40 |
| ^INTHU("C" | APPACK+18 |
| Name | Line Occurrences |
|---|---|
| $$CNVDLM | SUBESC+16 |
| $$DLMCNV | SUBESC+18 |
| SETDIV | SETENV+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DA | SETDIV+10* |
| >> DIE | SETDIV+10* |
| >> DR | SETDIV+10* |
| DTIME | SETENV+1* |
| DUZ | SETENV+1*, SETENV+6 |
| DUZ(0 | SETENV+1* |
| E | CNVDLM+13~, CNVDLM+14*, CNVDLM+17*, CNVDLM+21, DLMCNV+13~, DLMCNV+14*, DLMCNV+17*, DLMCNV+21, DLMCNV+24 |
| F | CNVDLM+13~, CNVDLM+14*, CNVDLM+18*, CNVDLM+21, DLMCNV+13~, DLMCNV+14*, DLMCNV+18*, DLMCNV+21 |
| I | CNVDLM+13~, CNVDLM+15*, CNVDLM+16*, DLMCNV+13~, DLMCNV+15*, DLMCNV+16* |
| INA | GETDEST~ |
| INA("INDEST" | GETDEST+34 |
| INACKDST | GETDEST~, GETDEST+37 |
| INACKTT | GETDEST~, GETDEST+43 |
| INACKUIF | GETDEST~, GETDEST+40 |
| INAKMES | APPACK~, APPACK+12*, APPACK+16, APPACK+18, APPACK+24 |
| INASTAT | APPACK~, APPACK+12*, APPACK+19*, APPACK+20*, APPACK+21, APPACK+22*, APPACK+24 |
| INB | SUBESC~, SUBESC+16, SUBESC+18 |
| IND | CNVDLM+13~, CNVDLM+14*, CNVDLM+15, DLMCNV+13~, DLMCNV+14*, DLMCNV+15 |
| INDEF | SETDIV+1~, SETDIV+2*, SETDIV+4*, SETDIV+6, SETDIV+7*, SETDIV+9*, SETDIV+10 |
| INDEL | SUBESC~, SUBESC+16, SUBESC+18, CNVDLM~, CNVDLM+15, CNVDLM+16, DLMCNV~, DLMCNV+15, DLMCNV+16 |
| INDEL( | CNVDLM+16, DLMCNV+16 |
| >> INDEV | SETDIV+6* |
| INDIV | SETDIV+1~, SETDIV+2*, SETDIV+4, SETDIV+6*, SETDIV+7 |
| INERMSG | APPACK~, APPACK+12*, APPACK+21*, APPACK+24 |
| INERRMSG | GETDEST+31~, GETDEST+43*, GETDEST+44 |
| INF | CNVDLM+13~, DLMCNV+13~ |
| INFERR | APPACK+13~, APPACK+14*, APPACK+16*, APPACK+17, APPACK+18*, APPACK+23 |
| INFMSG | APPACK+13~, APPACK+14*, APPACK+16*, APPACK+18*, APPACK+23 |
| INREC | SUBESC~, SUBESC+16, SUBESC+18, SUBESC+19, CNVDLM~, CNVDLM+24, CNVDLM+26, CNVDLM+27, DLMCNV~, DLMCNV+24 , DLMCNV+25, DLMCNV+26, DLMCNV+27, DLMCNV+28*, DLMCNV+29 |
| INREC1 | CNVDLM+13~, CNVDLM+14*, CNVDLM+26*, CNVDLM+27*, CNVDLM+28, DLMCNV+13~, DLMCNV+14*, DLMCNV+25*, DLMCNV+26*, DLMCNV+27* , DLMCNV+29*, DLMCNV+30 |
| INUIF | APPACK~, APPACK+24 |
| IO | SETENV+1* |
| J | CNVDLM+13~, DLMCNV+13~ |
| J( | CNVDLM+21*, CNVDLM+26, CNVDLM+27, DLMCNV+26 |
| J("E" | DLMCNV+21* |
| J("F" | DLMCNV+21* |
| J("R" | DLMCNV+21* |
| J("S" | DLMCNV+21* |
| J("T" | DLMCNV+21* |
| K | CNVDLM+13~, CNVDLM+24*, CNVDLM+26, CNVDLM+27, DLMCNV+13~, DLMCNV+24*, DLMCNV+25, DLMCNV+26, DLMCNV+27, DLMCNV+28 |
| R | CNVDLM+13~, CNVDLM+14*, CNVDLM+17*, CNVDLM+21, DLMCNV+13~, DLMCNV+14*, DLMCNV+17*, DLMCNV+21 |
| S | CNVDLM+13~, CNVDLM+14*, CNVDLM+17*, CNVDLM+21, DLMCNV+13~, DLMCNV+14*, DLMCNV+17*, DLMCNV+21 |
| T | CNVDLM+13~, CNVDLM+14*, CNVDLM+18*, CNVDLM+21, DLMCNV+13~, DLMCNV+14*, DLMCNV+18*, DLMCNV+21 |
| U | GETDEST+40, GETDEST+43, SETENV+1*, SETENV+6 |
| X | GETDEST+31~, GETDEST+40* |
| Z | SETENV+4!, SETENV+10! |