Routine: SDHL7CON

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

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+24, RTCLIST+25
OER^GMRCSLM1	LIST+9
INIT^HLFNC2	PARSEQ13+96, SENDERR+2
GENACK^HLMA1	PARSEQ13+116, SENDERR+8
$$BLDSEG^SDHL7UL	PARSEQ13+104, PARSEQ13+105
RESET^SDHL7UL	PARSEQ13+118
$$CHILDREN^SDHLAPT2	RTCLIST+21
$$MSA^SDTMBUS	PARSEQ13+102, SENDERR+4
$$QAK^SDTMBUS	PARSEQ13+103, SENDERR+5
RTCRDT^SDTMBUS	PARSEQ13+109
$$FMADD^XLFDT	PARSEQ13+87

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+79
^DPT("AICN"	PARSEQ13+71
^ORD(101 - [#101]	LOADXMT+24
^SDEC(409.85 - [#409.85]	RTCLIST+9, RTCLIST+12, RTCLIST+17, RTCLIST+18, RTCLIST+21
^TMP("GMRCR"	LIST+7!, LIST+10, LIST+13!
^TMP("ORQQCN"	PARSEQ13+84, LIST+8
^TMP("SDHL7CON"	RTCLIST+6

Name	Line Occurrences
$$VALIDMSG	PARSEQ13+43
@(	PARSEQ13+108
LIST	PARSEQ13+88
LOADMSG	PARSEQ13+39
LOADXMT	PARSEQ13+34
PARSEMSG	PARSEQ13+41
PARSESEG	PARSEMSG+7
RTCLIST	PARSEQ13+89
SENDERR	PARSEQ13+44, PARSEQ13+65, PARSEQ13+75, PARSEQ13+81

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CID	RTCLIST+5~, RTCLIST+11!, RTCLIST+16*, RTCLIST+26
CLINID	RTCLIST+5~, RTCLIST+11!, RTCLIST+16*, RTCLIST+23, RTCLIST+24, RTCLIST+25, RTCLIST+26
CLINNM	RTCLIST+11!, RTCLIST+24*
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+26
CNT	PARSEQ13+37~, PARSEQ13+48~, PARSEQ13+51, PARSEQ13+53, PARSEQ13+54, PARSEQ13+55, PARSEQ13+56, PARSEQ13+57, PARSEQ13+58, PARSEQ13+59 , PARSEQ13+102, PARSEQ13+103, PARSEQ13+104, PARSEQ13+105, PARSEQ13+109, PARSEQ13+112, VALIDMSG+17~, VALIDMSG+34, VALIDMSG+35, VALIDMSG+36 , VALIDMSG+37, VALIDMSG+38, RTCLIST+5~, RTCLIST+7, RTCLIST+26, RTCLIST+27, 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+84*, PARSEQ13+85, PARSEQ13+107, PARSEQ13+119
DIFF	LIST+1~
DT	PARSEQ13+87
EIN	PARSEQ13+31~, PARSEQ13+32*, PARSEQ13+96, SENDERR+2
ERR	PARSEQ13+23~, PARSEQ13+24, PARSEQ13+43, PARSEQ13+44, PARSEQ13+64, PARSEQ13+65, PARSEQ13+74, PARSEQ13+75, PARSEQ13+80, PARSEQ13+81 , PARSEQ13+99~, PARSEQ13+102, PARSEQ13+106, VALIDMSG~, VALIDMSG+18!, VALIDMSG+19, VALIDMSG+32, VALIDMSG+41, VALIDMSG+53, VALIDMSG+55 , VALIDMSG+56, VALIDMSG+60, SENDERR~, SENDERR+4, SENDERR+5
ERROR	PARSEQ13+48~, PARSEQ13+70, PARSEQ13+73
EXTIME	PARSEQ13+48~, PARSEQ13+91*
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+100~, PARSEQ13+101*
FS	PARSESEG+21~, PARSESEG+27*, PARSESEG+32, PARSESEG+33, PARSESEG+35, PARSESEG+36
GMRCOER	LIST+1~, LIST+2*, LIST+9
HIT	PARSEQ13+48~, PARSEQ13+91*
HL	PARSEQ13+34, PARSEQ13+41, PARSEQ13+96, PARSEQ13+102, PARSEQ13+103, PARSEQ13+104, PARSEQ13+105, PARSEQ13+109, LOADXMT~, PARSESEG~ , PARSEMSG~, PARSEMSG+7, SENDERR+2, SENDERR+4, SENDERR+5
HL("APAT"	LOADXMT+16
HL("ECH"	PARSEQ13+97, LOADXMT+19, PARSESEG+28, PARSESEG+29, PARSESEG+30, SENDERR+3
HL("EID"	PARSEQ13+116, LOADXMT+12*, SENDERR+8
HL("EIDS"	PARSEQ13+116, LOADXMT+13*, LOADXMT+24, SENDERR+8
HL("ETN"	LOADXMT+18
HL("FS"	PARSEQ13+97, LOADXMT+19, PARSESEG+27, SENDERR+3
HL("MID"	PARSEQ13+102, LOADXMT+14, SENDERR+4
HL("MTN"	LOADXMT+17
HLA	PARSEQ13+48~
HLA("HLA"	PARSEQ13+114, SENDERR+7
HLA("HLS"	PARSEQ13+112, PARSEQ13+114, SENDERR+6, SENDERR+7
>> HLMTIENS	PARSEQ13+116, 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+19, RTCLIST+21, RTCLIST+26
IX	PARSEQ13+23~, PARSEQ13+112, SENDERR+6
J	LIST+1~, LIST+2*
LEN	PARSEQ13+99~, PARSEQ13+102, PARSEQ13+103, PARSEQ13+104, PARSEQ13+105, PARSEQ13+109, SENDERR+4, SENDERR+5
LST	PARSEQ13+48~, PARSEQ13+88
MRTC	RTCLIST+5~, RTCLIST+11!, RTCLIST+17, RTCLIST+18, RTCLIST+21, RTCLIST+22, RTCLIST+26
MSG	PARSEMSG+5~
MSGCONID	PARSEQ13+48~, PARSEQ13+50, PARSEQ13+59
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+58, PARSEQ13+59, PARSEQ13+66, PARSEQ13+76, PARSEQ13+82, PARSEQ13+94 , PARSEQ13+102, PARSEQ13+103, PARSEQ13+104, PARSEQ13+105, PARSEQ13+109, PARSEQ13+112, PARSEQ13+119, 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+116, SENDERR+8
ORLOC	LIST+1~
PRVID	RTCLIST+5~, RTCLIST+11!, RTCLIST+16*, RTCLIST+26
QNAME	VALIDMSG+16~
QPD	PARSEQ13+48~, PARSEQ13+55, PARSEQ13+104, 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+56, PARSEQ13+63, PARSEQ13+71*, PARSEQ13+72, PARSEQ13+79, PARSEQ13+88, PARSEQ13+89
QRYDFN2	PARSEQ13+48~, PARSEQ13+50, PARSEQ13+57
QRYICN2	PARSEQ13+48~, PARSEQ13+50, PARSEQ13+57, PARSEQ13+63, PARSEQ13+70, PARSEQ13+71*
QTAG	VALIDMSG+16~, VALIDMSG+43*, VALIDMSG+55
RDF	PARSEQ13+48~, PARSEQ13+58, PARSEQ13+105, 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+26
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+18*, RTCLIST+26
RTCLST	PARSEQ13+48~, PARSEQ13+89, PARSEQ13+109
RTCPAR	RTCLIST+5~, RTCLIST+11!, RTCLIST+18, RTCLIST+19, RTCLIST+26
SDEC0	RTCLIST+5~, RTCLIST+11!, RTCLIST+12*, RTCLIST+13, RTCLIST+14, RTCLIST+15, RTCLIST+16
SDEDT	PARSEQ13+87~, PARSEQ13+88, PARSEQ13+89, LIST~, LIST+4, LIST+9, RTCLIST~, RTCLIST+7*, RTCLIST+15
SDPT	LIST~, LIST+9, RTCLIST~, RTCLIST+8, RTCLIST+9
SDSDT	PARSEQ13+87~, PARSEQ13+88, PARSEQ13+89, 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+26, RTCLIST+27
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+58, PARSEQ13+59, 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+25*
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+26
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: 9

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: