Routine: SDHL7CON

Package	Total	Call Graph
Health Level Seven	2	INIT^HLFNC2 GENACK^HLMA1
Scheduling	2	($$BLDSEG,RESET)^SDHL7UL ($$MSA,$$QAK,RTCRDT)^SDTMBUS
VA FileMan	2	$$FIND1^DIC $$GET1^DIQ
Consult Request Tracking	1	OER^GMRCSLM1

Package	Total	Caller Graph
Kernel	1	^ORD(101

Name	Comments	DBIA/ICR reference
PARSEQ13	;Process QBP^Q13 messages from the "TMP VISTA" Subscriber protocol
VALIDMSG(MSGROOT,QRY,XMT,ERR)
LOADXMT(HL,XMT)	;Set HL dependent XMT values
LIST(SDY,SDPT,SDSDT,SDEDT,SDSERV,SDSTATUS)	; return patient's consult requests between start date and stop date for the service and status indicated:
RTCLIST(SDY,SDPT,SDSDT,SDEDT)	; return patient's "Return to Clinic" appointment requests
PARSESEG(SEG,DATA,HL)	;Generic segment parser
LOADMSG(MSGROOT)	; Load HL7 message into temporary global for processing
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)
SENDERR(ERR)

Name	Field # of Occurrence
$$FIND1^DIC	PARSEQ13+32, LOADXMT+12, LOADXMT+13
$$GET1^DIQ	RTCLIST+21, RTCLIST+22
OER^GMRCSLM1	LIST+9
INIT^HLFNC2	PARSEQ13+81, SENDERR+2
GENACK^HLMA1	PARSEQ13+101, SENDERR+8
$$BLDSEG^SDHL7UL	PARSEQ13+89, PARSEQ13+90
RESET^SDHL7UL	PARSEQ13+103
$$MSA^SDTMBUS	PARSEQ13+87, SENDERR+4
$$QAK^SDTMBUS	PARSEQ13+88, SENDERR+5
RTCRDT^SDTMBUS	PARSEQ13+94

HL7 Protocol Name	Call Tags
TMP QBP-Q13 Subscriber	PARSEQ13

FileNo	Call Tags
^ORD(101 - [#101]	FIND1^DIC
^SC - [#44]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	PARSEQ13+66
^ORD(101 - [#101]	LOADXMT+24
^SDEC(409.85 - [#409.85]	RTCLIST+9, RTCLIST+12, RTCLIST+17
^TMP("GMRCR"	LIST+7!, LIST+10, LIST+13!
^TMP("ORQQCN"	PARSEQ13+71, LIST+8
^TMP("SDHL7CON"	RTCLIST+6

Name	Line Occurrences
$$VALIDMSG	PARSEQ13+43
@(	PARSEQ13+93
LIST	PARSEQ13+73
LOADMSG	PARSEQ13+39
LOADXMT	PARSEQ13+34
PARSEMSG	PARSEQ13+41
PARSESEG	PARSEMSG+7
RTCLIST	PARSEQ13+74
SENDERR	PARSEQ13+44, PARSEQ13+62, PARSEQ13+68

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CID	RTCLIST+5~, RTCLIST+11!, RTCLIST+16*, RTCLIST+23
CLINID	RTCLIST+5~, RTCLIST+11!, RTCLIST+16*, RTCLIST+20, RTCLIST+21, RTCLIST+22, RTCLIST+23
CLINNM	RTCLIST+11!, RTCLIST+21*
CMP	PARSESEG+13~, PARSESEG+39*, PARSESEG+40, PARSESEG+43, PARSESEG+44
CMPVAL	PARSESEG+14~, PARSESEG+40*, PARSESEG+41, PARSESEG+42, PARSESEG+44
CMTS	RTCLIST+5~, RTCLIST+11!, RTCLIST+16*, RTCLIST+23
CNT	PARSEQ13+37~, PARSEQ13+48~, PARSEQ13+51, PARSEQ13+53, PARSEQ13+54, PARSEQ13+55, PARSEQ13+56, PARSEQ13+57, PARSEQ13+87, PARSEQ13+88 , PARSEQ13+89, PARSEQ13+90, PARSEQ13+94, PARSEQ13+97, VALIDMSG+17~, VALIDMSG+34, VALIDMSG+35, VALIDMSG+36, VALIDMSG+37, VALIDMSG+38 , RTCLIST+5~, RTCLIST+7, RTCLIST+23, RTCLIST+24, LOADMSG+5~, LOADMSG+8, LOADMSG+9, LOADMSG+10, PARSEMSG+5~, PARSEMSG+6* , PARSEMSG+8, PARSEMSG+9, SENDERR+4, SENDERR+5, SENDERR+6
CS	PARSESEG+22~, PARSESEG+28*, PARSESEG+39, PARSESEG+40
DATA	PARSESEG~, PARSESEG+26!, PARSEMSG+5~, PARSEMSG+7, PARSEMSG+9
DATA(	PARSESEG+43, PARSESEG+44, PARSESEG+45, PARSESEG+46
DATA(0	PARSESEG+32*, PARSEMSG+9
DATAROOT	PARSEQ13+23~, PARSEQ13+71*, PARSEQ13+72, PARSEQ13+92, PARSEQ13+104
DIFF	LIST+1~
EIN	PARSEQ13+31~, PARSEQ13+32*, PARSEQ13+81, SENDERR+2
ERR	PARSEQ13+23~, PARSEQ13+24, PARSEQ13+43, PARSEQ13+44, PARSEQ13+61, PARSEQ13+62, PARSEQ13+67, PARSEQ13+68, PARSEQ13+84~, PARSEQ13+87 , PARSEQ13+91, VALIDMSG~, VALIDMSG+18!, VALIDMSG+19, VALIDMSG+32, VALIDMSG+41, VALIDMSG+53, VALIDMSG+55, VALIDMSG+56, VALIDMSG+60* , SENDERR~, SENDERR+4, SENDERR+5
EXTIME	PARSEQ13+48~, PARSEQ13+76*
FLD	PARSESEG+15~, PARSESEG+35*, PARSESEG+36, PARSESEG+43, PARSESEG+44, PARSESEG+45, PARSESEG+46
FLDVAL	PARSESEG+16~, PARSESEG+36*, PARSESEG+37, PARSESEG+38, PARSESEG+45, PARSESEG+46
FOUNDCN	PARSEQ13+85~, PARSEQ13+86*
FS	PARSESEG+21~, PARSESEG+27*, PARSESEG+32, PARSESEG+33, PARSESEG+35, PARSESEG+36
GMRCOER	LIST+1~, LIST+2*, LIST+9
HIT	PARSEQ13+48~, PARSEQ13+76*
HL	PARSEQ13+34, PARSEQ13+41, PARSEQ13+81, PARSEQ13+87, PARSEQ13+88, PARSEQ13+89, PARSEQ13+90, PARSEQ13+94, LOADXMT~, PARSESEG~ , PARSEMSG~, PARSEMSG+7, SENDERR+2, SENDERR+4, SENDERR+5
HL("APAT"	LOADXMT+16
HL("ECH"	PARSEQ13+82, LOADXMT+19, PARSESEG+28, PARSESEG+29, PARSESEG+30, SENDERR+3
HL("EID"	PARSEQ13+101, LOADXMT+12*, SENDERR+8
HL("EIDS"	PARSEQ13+101, LOADXMT+13*, LOADXMT+24, SENDERR+8
HL("ETN"	LOADXMT+18
HL("FS"	PARSEQ13+82, LOADXMT+19, PARSESEG+27, SENDERR+3
HL("MID"	PARSEQ13+87, LOADXMT+14, SENDERR+4
HL("MTN"	LOADXMT+17
HLA	PARSEQ13+48~
HLA("HLA"	PARSEQ13+99, SENDERR+7
HLA("HLS"	PARSEQ13+97, PARSEQ13+99, SENDERR+6, SENDERR+7
>> HLMTIENS	PARSEQ13+101, SENDERR+8
>> HLNEXT	LOADMSG+7
>> HLNODE	LOADMSG+9
>> HLNODE(	LOADMSG+10
>> HLQUIT	LOADMSG+7
I	LIST+1~
IDX	RTCLIST+5~, RTCLIST+9*, RTCLIST+10
IEN	RTCLIST+5~, RTCLIST+9, RTCLIST+10, RTCLIST+12, RTCLIST+17, RTCLIST+18, RTCLIST+23
IX	PARSEQ13+23~, PARSEQ13+97, SENDERR+6
J	LIST+1~, LIST+2*
LEN	PARSEQ13+84~, PARSEQ13+87, PARSEQ13+88, PARSEQ13+89, PARSEQ13+90, PARSEQ13+94, SENDERR+4, SENDERR+5
LST	PARSEQ13+48~, PARSEQ13+73
MRTC	RTCLIST+5~, RTCLIST+11!, RTCLIST+17, RTCLIST+19, RTCLIST+23
MSG	PARSEMSG+5~
MSGCONID	PARSEQ13+48~, PARSEQ13+50, PARSEQ13+57
MSGROOT	PARSEQ13+23~, PARSEQ13+24, PARSEQ13+29, PARSEQ13+30, PARSEQ13+38, PARSEQ13+39, PARSEQ13+41, PARSEQ13+43, PARSEQ13+45, PARSEQ13+53 , PARSEQ13+54, PARSEQ13+55, PARSEQ13+56, PARSEQ13+57, PARSEQ13+63, PARSEQ13+69, PARSEQ13+79, PARSEQ13+87, PARSEQ13+88, PARSEQ13+89 , PARSEQ13+90, PARSEQ13+94, PARSEQ13+97, PARSEQ13+104, VALIDMSG~, VALIDMSG+31, VALIDMSG+35, VALIDMSG+36, VALIDMSG+37, VALIDMSG+38 , LOADMSG~, LOADMSG+6, LOADMSG+9, LOADMSG+10, PARSEMSG~, PARSEMSG+6, PARSEMSG+8, PARSEMSG+9, SENDERR+1, SENDERR+4 , SENDERR+5, SENDERR+6
MSH	VALIDMSG+16~, VALIDMSG+31*
MYRESULT	PARSEQ13+48~, PARSEQ13+101, SENDERR+8
ORLOC	LIST+1~
PRVID	RTCLIST+5~, RTCLIST+11!, RTCLIST+16*, RTCLIST+23
QNAME	VALIDMSG+16~
QPD	PARSEQ13+48~, PARSEQ13+55, PARSEQ13+89, VALIDMSG+16~, VALIDMSG+37, VALIDMSG+41
QPD(1	VALIDMSG+43, VALIDMSG+53
QPD(2	VALIDMSG+44
QPD(3	VALIDMSG+45, VALIDMSG+46
QRY	PARSEQ13+23~, PARSEQ13+24*, PARSEQ13+43, VALIDMSG~, VALIDMSG+18!
QRY("DCLSNM"	VALIDMSG+57*
QRY("DFN"	VALIDMSG+57*
QRY("MID"	VALIDMSG+23*
QRY("QPD"	VALIDMSG+24, VALIDMSG+37
QRY("REQID"	VALIDMSG+58*
QRYDFN	PARSEQ13+48~, PARSEQ13+50, PARSEQ13+55, PARSEQ13+60, PARSEQ13+66, PARSEQ13+73, PARSEQ13+74
QTAG	VALIDMSG+16~, VALIDMSG+43*, VALIDMSG+55
RDF	PARSEQ13+48~, PARSEQ13+56, PARSEQ13+90, VALIDMSG+16~, VALIDMSG+38
RDT	PARSEQ13+48~
REP	PARSESEG+17~, PARSESEG+37*, PARSESEG+38, PARSESEG+43, PARSESEG+44, PARSESEG+45
REPVAL	PARSESEG+18~, PARSESEG+38*, PARSESEG+39, PARSESEG+40, PARSESEG+45
REQDT	RTCLIST+5~, RTCLIST+15*, RTCLIST+23
REQID	VALIDMSG+16~, VALIDMSG+44*, VALIDMSG+56, VALIDMSG+58
REQTYPE	VALIDMSG+16~, VALIDMSG+45, VALIDMSG+46, VALIDMSG+60
RESP0	LOADXMT+11~
RESPIEN	LOADXMT+11~
RNAME	PARSEQ13+23~, PARSEQ13+24, PARSEQ13+35
RS	PARSESEG+23~, PARSESEG+29*, PARSESEG+37, PARSESEG+38, PARSESEG+45
RTCINT	RTCLIST+5~, RTCLIST+11!, RTCLIST+17, RTCLIST+19, RTCLIST+23
RTCLST	PARSEQ13+48~, PARSEQ13+74, PARSEQ13+94
RTCPAR	RTCLIST+5~, RTCLIST+11!, RTCLIST+17, RTCLIST+18, RTCLIST+23
SDEC0	RTCLIST+5~, RTCLIST+11!, RTCLIST+12*, RTCLIST+13, RTCLIST+14, RTCLIST+15, RTCLIST+16
SDEDT	LIST~, LIST+4, LIST+9, RTCLIST~, RTCLIST+7, RTCLIST+15
SDPT	LIST~, LIST+9, RTCLIST~, RTCLIST+8, RTCLIST+9
SDSDT	LIST~, LIST+3, LIST+9, RTCLIST~, RTCLIST+7, RTCLIST+15
SDSERV	LIST~, LIST+5*, LIST+9
SDSRV	LIST+1~
SDSTATUS	LIST~, LIST+6*, LIST+9
SDY	LIST~, LIST+8, LIST+10, LIST+11, LIST+12, RTCLIST~, RTCLIST+6, RTCLIST+23, RTCLIST+24
SEG	PARSEQ13+37~, PARSESEG~, PARSESEG+32, PARSESEG+33, PARSESEG+35, PARSESEG+36, LOADMSG+5~, LOADMSG+7, LOADMSG+9, LOADMSG+10 , PARSEMSG+5~, PARSEMSG+6*
SEG(0	PARSEMSG+7
SEG(1	PARSEMSG+10
SEGTYPE	PARSEQ13+54, PARSEQ13+55, PARSEQ13+56, PARSEQ13+57, VALIDMSG+17~, VALIDMSG+36, VALIDMSG+37, VALIDMSG+38
SEQ	LIST+1~, LIST+2*
SITE	LIST+1~
SS	PARSESEG+24~, PARSESEG+30*, PARSESEG+41, PARSESEG+42
STOP	RTCLIST+5~, RTCLIST+11!, RTCLIST+22*
SUB	PARSESEG+19~, PARSESEG+41*, PARSESEG+42, PARSESEG+43
SUBPROT	LOADXMT+11~, LOADXMT+24*
SUBVAL	PARSESEG+20~, PARSESEG+42*, PARSESEG+43
U	RTCLIST+13, RTCLIST+14, RTCLIST+15, RTCLIST+16, RTCLIST+23
XMT	PARSEQ13+23~, PARSEQ13+24*, PARSEQ13+34, PARSEQ13+43, VALIDMSG~, LOADXMT~
XMT("DELIM"	LOADXMT+19*
XMT("EVENT TY	PE" , PARSEQ13+35, LOADXMT+18*
XMT("MAX SIZE	" , LOADXMT+21*
XMT("MESSAGE	TYPE" , PARSEQ13+35, LOADXMT+17*
XMT("MID"	VALIDMSG+23, LOADXMT+14*
XMT("MODE"	LOADXMT+15, LOADXMT+16

Customize PDF page

Package: Scheduling

Routine: SDHL7CON

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Used in HL7 Interface

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: