SCMCHLRI ;BP/DJB - PCMM HL7 Rejects - Identify & Store Msg ; 2/28/00 12:10pm
Source file <SCMCHLRI.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 1 | $$NOW^XLFDT |
VA Fileman | 1 | (FILE,UPDATE)^DIE |
Name | Comments | DBIA/ICR reference |
---|---|---|
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 |
|
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 |
|
ACK | ;Identify an acknowledgment message
|
|
UPDATE | ;Update entry in PCMM HL7 TRANSMISSION LOG file
|
|
HL7SAMP | ;Sample code to view HL7 message
|
|
PARSE | ;Parse ACK message.
|
|
CONVERT(ID) | ;If ID is from an integrated site, convert it to local ID.
|
HL7 Protocol Name | Call Tags |
---|---|
SCMC SEND SERVER WORKLOAD | ACK |
PCMM SEND SERVER FOR ADT-A08 | 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* |
Name | Line Occurrences |
---|---|
$$CREATE | STORE+12 |
PARSE | ACK+16 |
STATUS | UPDATE+9, UPDATE+12, UPDATE+16 |
STORE | UPDATE+17 |
UPDATE | ACK+18 |
>> | 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 |