SCMCHLRI ;BP/DJB - PCMM HL7 Rejects - Identify & Store Msg ; 2/28/00 12:10pm
Source file <SCMCHLRI.m>
| 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 |
| Package | Total | Caller Graph |
|---|---|---|
| Scheduling | 2 | SCMC SEND SERVER WORKLOAD SCMCHLL |
| Kernel | 1 | ^ORD(101 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ACK | ;Identify an acknowledgment message
|
|
| PARSE | ;Parse ACK message.
|
|
| UPDATE | ;Update entry in PCMM HL7 TRANSMISSION LOG file
|
|
| STATUS(TRANI,STATUS) | ;Update STATUS field in PCMM HL7 TRANSMISSION LOG file.
; Input: TRANI - IEN of PCM HL7 TRANSMISSION LOG file ; STATUS - A=Accepted, M=Marked for re-transmit, RJ=Rejected |
|
| STORE(TRANI) | ;Store data from "ERR" and "ZER" arrays
|
|
| CREATE(ERRORCD,CNT,TRANI) | ;Create an entry in the ERROR CODE multiiple field
; Input: ERRORCD - Error code ; CNT - Counter for multiple entries |
|
| CONVERT(ID) | ;If ID is from an integrated site, convert it to local ID.
|
|
| HL7SAMP | ;Sample code to view HL7 message
|
| HL7 Protocol Name | Call Tags |
|---|---|
| PCMM SEND SERVER FOR ADT-A08 | ACK |
| SCMC SEND SERVER WORKLOAD | ACK |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SCPT(404.471 - [#404.471] | UPDATE+3, UPDATE+5, STORE+21, STORE+23 |
| ^SCPT(404.49 - [#404.49] | CONVERT+3, CONVERT+4 |
| ^TMP("DJB" | HL7SAMP+3*, HL7SAMP+6* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACKCODE | UPDATE+1~, UPDATE+6*, UPDATE+9, UPDATE+12, UPDATE+15 |
| ARRAY | ACK+10~, ACK+17 |
| ARRAY("ERR" | PARSE+23*, PARSE+27*, PARSE+28*, PARSE+29*, STORE+9, STORE+12, STORE+15, STORE+16, STORE+17 |
| ARRAY("MSA" | PARSE+16*, PARSE+17*, UPDATE+2, UPDATE+6 |
| CNT | STORE+6~, STORE+8*, STORE+9*, STORE+12, STORE+15, STORE+16, STORE+17, CREATE~, CREATE+7*, CREATE+8 , CREATE+12 |
| CNTERR | PARSE+9~, PARSE+22*, PARSE+23, PARSE+27, PARSE+28, PARSE+29 |
| CS | ACK+10~, ACK+12*, PARSE+23, PARSE+25, PARSE+28, PARSE+29 |
| ERRORCD | CREATE~, CREATE+9 |
| ERRORI | UPDATE+1~, STORE+6~, STORE+12*, STORE+13, STORE+25 |
| FLD | STORE+6~, STORE+17*, STORE+28 |
| FS | ACK+10~, ACK+14*, PARSE+12, PARSE+16, PARSE+17, PARSE+21 |
| >> HL("ECH" | ACK+12, ACK+13 |
| >> HL("FS" | ACK+14 |
| >> HLNEXT | PARSE+11, HL7SAMP+2 |
| >> HLNODE | PARSE+12, PARSE+16, PARSE+17, PARSE+21, HL7SAMP+3 |
| >> HLNODE( | HL7SAMP+6 |
| >> HLQUIT | PARSE+11, HL7SAMP+2 |
| I | HL7SAMP+1~, HL7SAMP+2*, HL7SAMP+3, HL7SAMP+6 |
| ID | CONVERT~, CONVERT+3, CONVERT+4*, CONVERT+5*, CONVERT+6 |
| IENS | CREATE+6~, CREATE+8*, CREATE+9 |
| J | HL7SAMP+1~, HL7SAMP+4*, HL7SAMP+6* |
| MSGID | PARSE+9~, UPDATE+1~, UPDATE+2*, UPDATE+3 |
| RS | ACK+10~, ACK+13*, PARSE+22 |
| SCERR | STATUS+4~, STORE+5~, STORE+32!, CREATE+6~, CREATE+11 |
| SCFDA | STATUS+4~, STORE+5~, STORE+32!, CREATE+6~ |
| SCFDA( | STATUS+8*, STATUS+9*, STORE+26*, STORE+27*, STORE+28*, STORE+29*, STORE+30*, CREATE+9* |
| SCIEN | STORE+5~, CREATE+6~ |
| SCIEN( | CREATE+12 |
| SCIENS | STATUS+4~, STATUS+7*, STATUS+8, STATUS+9, STORE+5~, STORE+25*, STORE+26, STORE+27, STORE+28, STORE+29 , STORE+30 |
| SCIENS1 | STORE+5~ |
| SEG | PARSE+9~, PARSE+12*, PARSE+15, PARSE+20, STORE+6~, STORE+15*, STORE+19, STORE+26 |
| SEQ | PARSE+25*, PARSE+26*, PARSE+27, STORE+6~, STORE+16*, STORE+20, STORE+21, STORE+27 |
| >> SEQI | STORE+21*, STORE+22, STORE+23 |
| STATUS | STATUS~, STATUS+6, STATUS+8 |
| TRANI | UPDATE+1~, UPDATE+3*, UPDATE+4, UPDATE+5, UPDATE+9, UPDATE+12, UPDATE+16, UPDATE+17, STATUS~, STATUS+5 , STATUS+7, STORE~, STORE+12, STORE+21, STORE+23, STORE+25, CREATE~, CREATE+8 |
| TXTFLD | PARSE+9~, PARSE+21*, PARSE+22 |
| TXTREP | PARSE+9~, PARSE+22*, PARSE+23, PARSE+25, PARSE+28, PARSE+29 |
| ZPCID | STORE+6~, STORE+18*, STORE+23*, STORE+29 |
