Routine: SDHL7APU

Information

SDHL7APU ;MS/TG,PH - TMP HL7 Routine;OCT 16, 2018

Name	Comments	DBIA/ICR reference
MSH(MSH,INP,MSGARY)	;
SCH(SCH,INP,MSGARY)	;
SCHNTE(SCHNTE,INP,MSGARY)	;
PID(PID,INP,MSGARY)	;
PV1(PV1,INP,MSGARY)	;
OBX(OBX,INP)	;
RGS(RGS,CNT,INP)	;
AIS(AIS,CNT,INP,MSGARY)	;
AISNTE(AISNTE,CNT,INP)	;
AIG(AIG,CNT,INP)	;
AIGNTE(AIGNTE,CNT,INP)	;
AIL(AIL,CNT,INP,MSGARY)	;
AILNTE(AILNTE,CNT,INP)	;
AIP(AIP,CNT,INP,MSGARY)	;
AIPNTE(AIPNTE,CNT,INP,MSGARY)	;
CHKCHILD	;
VALIDMSG(MSGROOT,QRY,XMT,ERR)
PARSESEG(SEG,DATA,HL)	;Generic segment parser
PARSEMSG(MSGROOT,HL)	; Message Parser ; Does not handle segments that span nodes ; Does not handle extremely long segments (uses a local) ; Does not handle long fields (segment parser doesn't)
SEND()	;
ACKIN	;
INP	; set up the INP array for calling ARSET^SDECAR2 to update the RTC orders ; Need to add code to add the rtcparent to the HL7 message and to parse it out.
ARSET(X)	; set the appointment requests into 409.85
LOADMSG(MSGROOT)	; Load HL7 message into temporary global for processing
LOADXMT(HL,XMT)	;Set HL dependent XMT values
ERRLKP(ERRTXT)	;
CHKAPT(RET,DFN,CLINID)	;
STRIP(SDECZ)	;Replace control characters with spaces
RESLKUP(CLINID)	;
GETAPT(URL,SDCL,SDECSTART)	;
CHKLL(X)	;check setup of Logical Link
SENDERR(ERR)
DUZ	; send error nak back if user not on system
APPTYPE(CL)	;Determines APPTYPE by STOP CODES associated with CLINIC (SD5.3780)
GETSTA(STA)	;Return Parent STA or self if No parent
ERRS	;
ACK	;****BUILD THE RESPONSE MSA (Cont. of SDHL7APT)