Routine: SCMCHLRI

Information

SCMCHLRI ;BP/DJB - PCMM HL7 Rejects - Identify & Store Msg ; 2/28/00 12:10pm

Source Information

Source file <SCMCHLRI.m>

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Kernel	1	$$NOW^XLFDT
VA Fileman	1	(FILE,UPDATE)^DIE

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Scheduling	1	SCMCHLL

Entry Points

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.

External References

Name	Field # of Occurrence
FILE^DIE	STATUS+10, STORE+31
UPDATE^DIE	CREATE+10
$$NOW^XLFDT	STATUS+9

Used in HL7 Interface

HL7 Protocol Name	Call Tags
SCMC SEND SERVER WORKLOAD	ACK
PCMM SEND SERVER FOR ADT-A08	ACK

Global Variables Directly Accessed

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

Label References

Name	Line Occurrences
$$CREATE	STORE+12
PARSE	ACK+16
STATUS	UPDATE+9, UPDATE+12, UPDATE+16
STORE	UPDATE+17
UPDATE	ACK+18

Local Variables

Legend:

>>	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

Customize PDF page

Package: Scheduling

Routine: SCMCHLRI

Call Graph Total: 2

Caller Graph Total: 1