Routine: SDCCRSEN

Package	Total	Call Graph
Scheduling	5	($$CHKMSG,$$GETRSN,$$GETUSER,$$INSTRING,$$TIMES,ACK,APPMSG,COPYMSG,DONEINC,INT)^SDCCRCOR ($$GET,PARSESEG)^SDCCRSCU ($$MSGTXT,CANCEL,MAKE,NOSHOW)^SDCCRSEN1 ($$CHKAPPT,ADDCANCOMMENT,ADDCOMMENT,NOSHOWCOMMENT)^SDCCRSEN2 $$INACTIVE^SDEC32
Kernel	3	($$FMTE,$$HL7TFM,$$NOW)^XLFDT ($$LOW,$$REPLACE,$$UP)^XLFSTR $$PATCH^XPDUTL
Health Level Seven	1	$$HLPHONE^HLFNC
Master Patient Index VistA	1	$$GETDFN^MPIF001
VA FileMan	1	$$GET1^DIQ

Package	Total	Caller Graph
Kernel	1	^ORD(101
Scheduling	1	SDCCRCOR

Name	Comments	DBIA/ICR reference
EN()	;Primary entry routine for HL7 based CCRA scheduling processing.
PROCMSG(MSG1)	; Process message
SETEVENT(EVENT,MSGARY)	;Takes the scheduling event and sets a message event to process.
MSH(MSH,MSGARY)	; RGS segment
SCH(SCH,MSGARY,ABORT,BASEDT)	;SCH segment processing.:
NTE(NTE,MSGARY,LASTSEG,CLINARY,ABORT,PROVDTL)	;NTE segment processing.
PID(PID,MSGARY,ABORT)	;PID segment
PV1(PV1,MSGARY,HDRTIME,ABORT)	;PV1 segment
RGS(RGS,MSGARY)	; RGS segment
AIS(AIS,MSGARY)	;AIS segment
AIL(AIL,MSGARY,PROVDTL,BASEDTE)	;AIL segment processing.
AIP(AIP,MSGARY,PROVDTL,BASEDTE)	;AIP segment processing.
AIG(AIG,MSGARY,PROVDTL,BASEDTE)	;AIG segment processing.
GETSTAT(SCH)	; Translates status into appropriate scheduling statuses
DETTIME(PV1TIME,HDRTIME,ERROR)	;RETURNS THE BEST CHECK IN/OUT TIME AVAILABLE IN THE MESSAGE OR DEFAULTS TO NOW
CHECKLST(SRVNAME)	; ; lookup matching clinic for imaging comm care consults
LIST	; List of Imaging Community Care consult titles and clinics

Name	Field # of Occurrence
$$GET1^DIQ	PV1+15, PV1+16, PV1+22, PV1+29
$$HLPHONE^HLFNC	AIL+18
$$GETDFN^MPIF001	PID+6
$$CHKMSG^SDCCRCOR	EN+5
$$GETRSN^SDCCRCOR	SCH+10
$$GETUSER^SDCCRCOR	SCH+19
$$INSTRING^SDCCRCOR	GETSTAT+5, GETSTAT+6
$$TIMES^SDCCRCOR	SCH+16
ACK^SDCCRCOR	EN+7
APPMSG^SDCCRCOR	PROCMSG+34
COPYMSG^SDCCRCOR	EN+4
DONEINC^SDCCRCOR	PROCMSG+41
INT^SDCCRCOR	EN+3
$$GET^SDCCRSCU	SCH+34, NTE+11, PV1+35, PV1+38, AIG+7, GETSTAT+3, GETSTAT+4
PARSESEG^SDCCRSCU	MSH+1, SCH+6, NTE+9, PID+5, PV1+6, AIL+4, AIP+6, AIG+6
$$MSGTXT^SDCCRSEN1	SCH+17, SCH+30, PV1+8, PV1+17, PV1+25, PV1+29, PV1+31, PV1+33, GETSTAT+7, CHECKLST+26
CANCEL^SDCCRSEN1	PROCMSG+39
MAKE^SDCCRSEN1	PROCMSG+38
NOSHOW^SDCCRSEN1	PROCMSG+40
$$CHKAPPT^SDCCRSEN2	PROCMSG+29, PROCMSG+37
ADDCANCOMMENT^SDCCRSEN2	PROCMSG+31
ADDCOMMENT^SDCCRSEN2	PROCMSG+30
NOSHOWCOMMENT^SDCCRSEN2	PROCMSG+32
$$INACTIVE^SDEC32	PV1+24, CHECKLST+25
$$FMTE^XLFDT	PV1+15
$$HL7TFM^XLFDT	AIG+7, DETTIME+2, DETTIME+3
$$NOW^XLFDT	DETTIME+5
$$LOW^XLFSTR	SCH+23
$$REPLACE^XLFSTR	AIL+16, AIL+17, AIP+8, AIP+11
$$UP^XLFSTR	SCH+24, SCH+26
$$PATCH^XPDUTL	SCH+15

HL7 Protocol Name	Call Tags
CCRA HSRM SIU-S12 CLIENT	EN
CCRA HSRM SIU-S15 CLIENT	EN
CCRA HSRM SIU-S26 CLIENT	EN

FileNo	Call Tags
^GMR(123 - [#123]	GET1^DIQ
^SC - [#44]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^GMR(123.5 - [#123.5]	PV1+19, PV1+21
^SC - [#44]	PV1+25, CHECKLST+26, CHECKLST+29, CHECKLST+30
^SC("B"	CHECKLST+13, CHECKLST+17, CHECKLST+22, CHECKLST+29, CHECKLST+30
^SD(409.2 - [#409.2]	SCH+11
^SDEC(409.831 - [#409.831]	PV1+32
^VA(200 - [#200]	SCH+21, SCH+23, SCH+24, SCH+25, SCH+26

Name	Line Occurrences
$$CHECKLST	PV1+27
$$DETTIME	PV1+35, PV1+38
$$GETSTAT	SCH+32
$$PROCMSG	EN+6
AIG	PROCMSG+20
AIL	PROCMSG+19
AIP	PROCMSG+21
AIS	PROCMSG+18
MSH	PROCMSG+12
NTE	PROCMSG+14
PID	PROCMSG+15
PV1	PROCMSG+16
RGS	PROCMSG+17
SCH	PROCMSG+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABORT	EN+2~, EN+7, PROCMSG+6, PROCMSG+13, PROCMSG+14, PROCMSG+15, PROCMSG+16, PROCMSG+34, SCH~, SCH+17 , SCH+30, NTE~, PID~, PV1~, PV1+8, PV1+17, PV1+25, PV1+29, PV1+31, PV1+33* , PV1+36, PV1+39, GETSTAT+7, CHECKLST+26
ADDTXT	PROCMSG+2~
AIG	AIG~, AIG+6, AIG+7
AIL	AIL~, AIL+4
AIL(3	AIL+5, AIL+15, AIL+18
AILSEG	PROCMSG+4!, PROCMSG+42!
AIP	AIP~, AIP+6
AIP(3	AIP+7, AIP+11
AIPSEG	PROCMSG+4!, PROCMSG+42!
AIS	AIS~
APPTYPE	PROCMSG+3!, PROCMSG+5*
APTTM	PROCMSG+2~, SCH+16*
BASEDT	EN+2~, PROCMSG+6*, PROCMSG+13, PROCMSG+20, PROCMSG+21, SCH~
BASEDTE	AIL~, AIP~, AIG~, AIG+8
CANRSN	SCH+11~*
CH1	AIL+8~, AIL+16, AIL+17!
CH1("&&"	AIL+9*
CH1("\T\"	AIL+17*
CHG1	AIP+8~, AIP+9~, AIP+11
CHG1("&&"	AIP+10*
CHG1("\\T\\"	AIP+8*
CID	PROCMSG+2~, PROCMSG+5, PV1+15
CLINARY	EN+2~, PROCMSG+14, NTE~
CLINIC	NTE+7~, CHECKLST+3~, CHECKLST+17*
CLINID	CHECKLST+3~, CHECKLST+4, CHECKLST+13, CHECKLST+14, CHECKLST+16, CHECKLST+17, CHECKLST+18, CHECKLST+22, CHECKLST+25, CHECKLST+26 , CHECKLST+29, CHECKLST+30, CHECKLST+31
CONID	PROCMSG+2~, PROCMSG+29, PROCMSG+37, SCH+9, NTE+10, PV1+9
CONSULTID	SCH+5~, PV1+9*, PV1+10, PV1+11, PV1+15, PV1+16, PV1+29, PV1+31
CONTITLE	PROCMSG+2~, PV1+16, CHECKLST+3~, CHECKLST+10, CHECKLST+17
COUNT	EN+2~
CS	EN+1~
DFN	PROCMSG+2~, PID+6*
DIVID	PROCMSG+2~, PV1+14*, CHECKLST+29
DUZ	SCH+21, SCH+22, SCH+23, SCH+24, SCH+25, SCH+26, SCH+27, SCH+28~, SCH+30
EESTAT	PROCMSG+3!, PROCMSG+5*
ER	EN+1~
ER1	EN+1~
ER2	EN+1~
ER3	EN+1~
ERR1	PROCMSG+1~, SCH+17, SCH+30, PV1+8, PV1+17, PV1+25, PV1+29, PV1+31, PV1+33, CHECKLST+26
ERROR	PV1+5~, PV1+35, PV1+36, PV1+38, PV1+39, DETTIME~, DETTIME+1!, DETTIME+3, DETTIME+4
ES	EN+1~
EVENT	SETEVENT~, SETEVENT+2, SETEVENT+3, SETEVENT+4, SETEVENT+5
FMDTTM	EN+1~
FS	EN+1~
GMRCATIU	PROCMSG+2~
GMRCDFN	PROCMSG+2~
GMRCTIU	PROCMSG+2~
GMRCTIUS	PROCMSG+2~
HDR	EN+2~
HDRTIME	EN+2~, PROCMSG+16, PV1~, PV1+35, PV1+38, DETTIME~, DETTIME+3
HLNODE	EN+1~
HLQUIT	EN+1~
I	PROCMSG+1~, CHECKLST+3~, CHECKLST+9, CHECKLST+15
ICN	EN+1~, PID+6*
ID	GETSTAT+2~, GETSTAT+3*, GETSTAT+6, GETSTAT+7
IDENTIFIERS	PID+4~
IENCHECK	PID+4~
INACT	PV1+24~, PV1+25, CHECKLST+25~, CHECKLST+26, CHECKLST+29, CHECKLST+30
INP	PROCMSG+42!
LASTSEG	EN+2~, PROCMSG+10, PROCMSG+14, NTE~, NTE+8, NTE+14
LEN	CHECKLST+3~, CHECKLST+8*, CHECKLST+9
LENG	CHECKLST+19~, CHECKLST+20, CHECKLST+21, CHECKLST+22
LOC	PROCMSG+2~, PROCMSG+5*
MID	EN+1~, EN+7, PROCMSG+34
MSG	EN+2~, EN+4, EN+5, EN+6
MSG1	PROCMSG~, PROCMSG+42!
MSG1(	PROCMSG+8, PROCMSG+9, PROCMSG+11
MSGARY	EN+2~, PROCMSG+12, PROCMSG+13, PROCMSG+14, PROCMSG+15, PROCMSG+16, PROCMSG+17, PROCMSG+18, PROCMSG+19, PROCMSG+20 , PROCMSG+21, SETEVENT~, MSH~, SCH~, NTE~, PID~, PV1~, RGS~, AIS~, AIL~ , AIP~, AIG~
MSGARY("CANCE	L CODE" , SCH+10, L REASON" , SCH+10, SCH+11*
MSGARY("CHECKINDT"	PV1+35*
MSGARY("CHECKOUTDT"	PV1+38*
MSGARY("COMMENT"	NTE+15, NTE+16
MSGARY("DURATION"	SCH+13*, AIG+9
MSGARY("EVENT"	PROCMSG+29, PROCMSG+30, PROCMSG+31, PROCMSG+32, PROCMSG+37, PROCMSG+38, PROCMSG+39, PROCMSG+40, SETEVENT+3, SETEVENT+4 , SETEVENT+5*, SCH+10, SCH+29
MSGARY("FILLE	R ID" , PV1+10*
MSGARY("PLACE	R ID" , SCH+7*
MSGARY("STATUS"	SCH+32*, PV1+36, PV1+39
MSGARY("USER"	SCH+19*
MSGTXT	EN+1~
MSH	EN+1~, MSH~, MSH+1
MSH(5	MSH+2
NAKMSG	EN+1~, PV1+36, PV1+39
NEWAPPT	PROCMSG+2~, PROCMSG+29, PROCMSG+30, PROCMSG+31, PROCMSG+32, PROCMSG+33, PROCMSG+37
NOTE	NTE+7~, NTE+10, NTE+13, NTE+15, NTE+16
NOTETYPE	NTE+7~, NTE+11*
NPI	PROCMSG+42!, AIP+11*
NTE	NTE~, NTE+9, NTE+11
NTE(3	NTE+10
OK	PID+4~
ORDIDTYP	SCH+5~, SCH+34*
OVB	PROCMSG+3!, PROCMSG+5*
P694	EN+2~, SCH+15*
PID	PID~, PID+5
PID(3	PID+6
PROV	PROCMSG+2~, PROCMSG+5, PROCMSG+30, PROCMSG+31, PROCMSG+32, AIP+7, AIP+8, AIP+11
>> PROV1	PROCMSG+30, PROCMSG+31, PROCMSG+32, AIP+7, AIP+8
PROVADD	PROCMSG+3!, AIL+5*
PROVDTL	EN+2~, PROCMSG+14, PROCMSG+20, PROCMSG+21, NTE~, AIL~, AIP~, AIG~
PROVDTL("DT"	AIG+7, AIG+8
PROVDTL("LN"	AIG+9*
PROVIDER	PROCMSG+2~, SCH+9*
PROVIDERADDRESS	PROCMSG+2~, PROCMSG+30, PROCMSG+31, PROCMSG+32, AIL+15, AIL+16, AIL+17*
PROVIDERPHONE	PROCMSG+2~, PROCMSG+30, PROCMSG+31, PROCMSG+32, AIL+18*
PROVIEN	PROCMSG+3!, PROCMSG+5*
PV1	PV1~, PV1+6, PV1+35, PV1+38
PV1(19	PV1+8, PV1+9
PV1(3	PV1+14
PV1TIME	DETTIME~, DETTIME+2
QUIT	PROCMSG+1~, PROCMSG+7, PROCMSG+30, PROCMSG+31, PROCMSG+32, PROCMSG+35, PROCMSG+36, PROCMSG+43, SCH+17, SCH+30 , SCH+31, PV1+8, PV1+17, PV1+25, PV1+26, PV1+28, PV1+29, PV1+31, PV1+33, GETSTAT+7 , CHECKLST+26*, CHECKLST+27
RAWSEG	PROCMSG+2~, PROCMSG+9*
RESNAME	PV1+13~
RESULTS	EN+2~
RET	PROCMSG+42!
RGS	RGS~
RS	EN+1~
RSNAME	PROCMSG+42!, CHECKLST+11, CHECKLST+12
SCH	SCH~, SCH+6, SCH+34, GETSTAT~, GETSTAT+3, GETSTAT+4
SCH(1	SCH+7
SCH(11	SCH+16, SCH+17
SCH(12	SCH+9
SCH(13	SCH+21, SCH+23, SCH+24
SCH(2	SCH+9
SCH(20	SCH+19
SCH(25	SCH+32
SCH(6	SCH+10
SCH(9	SCH+13
SCHSEG	PROCMSG+4!, PROCMSG+42!
SDAPTYP	PROCMSG+3!, PROCMSG+5, PROCMSG+42!, PV1+11
SDCL	PROCMSG+3!, PROCMSG+5, PROCMSG+42!, PV1+22, PV1+23, PV1+24, PV1+25, PV1+27*, PV1+28, PV1+29 , PV1+31
SDDDT	PROCMSG+3!, PROCMSG+5*
SDDFN	PROCMSG+3!, PROCMSG+5, PROCMSG+42!, PID+6
SDECAPTID	PROCMSG+42!
SDECATID	PROCMSG+3!, PROCMSG+5*
SDECCR	PROCMSG+3!, PROCMSG+5*
SDECDATE	PROCMSG+42!
SDECEND	PROCMSG+3!, PROCMSG+5, SCH+16
SDECLEN	PROCMSG+3!, PROCMSG+5, SCH+13
SDECNOT	PROCMSG+42!
SDECNOTE	PROCMSG+3!, PROCMSG+5, PROCMSG+42!, NTE+13
SDECRES	PROCMSG+3!, PROCMSG+5, PV1+32, PV1+33
SDECRESA	PROCMSG+2~, PV1+16*, PV1+19, PV1+21
SDECSTART	PROCMSG+3!, PROCMSG+5, PROCMSG+30, PROCMSG+31, PROCMSG+32, SCH+16
SDECY	PROCMSG+42!
SDEKG	PROCMSG+3!, PROCMSG+5*
SDEL	PROCMSG+3!, PROCMSG+5*
SDID	PROCMSG+3!, PROCMSG+5*
SDLAB	PROCMSG+3!, PROCMSG+5*
SDMRTC	PROCMSG+3!, PROCMSG+5*
SDPARENT	PROCMSG+3!, PROCMSG+5*
SDREQBY	PROCMSG+3!, PROCMSG+5*
SDRES	PROCMSG+42!, PV1+32~*
SDSVCP	PROCMSG+3!, PROCMSG+5*
SDSVCPR	PROCMSG+3!, PROCMSG+5*
SDXRAY	PROCMSG+3!, PROCMSG+5*
SEG	EN+2~, PROCMSG+11*, PROCMSG+12, PROCMSG+13, PROCMSG+14, PROCMSG+15, PROCMSG+16, PROCMSG+17, PROCMSG+18, PROCMSG+19 , PROCMSG+20, PROCMSG+21
SEGTYPE	EN+2~, PROCMSG+1~, PROCMSG+9*, PROCMSG+10, PROCMSG+12, PROCMSG+13, PROCMSG+14, PROCMSG+15, PROCMSG+16, PROCMSG+17 , PROCMSG+18, PROCMSG+19, PROCMSG+20, PROCMSG+21
SITE	PROCMSG+42!, AIL+15*
SITECODE	PROCMSG+3!, MSH+2*, SCH+16
SRVNAME	SCH+5~, PV1+16, PV1+17, PV1+27, PV1+31, CHECKLST~, CHECKLST+2, CHECKLST+5, CHECKLST+6, CHECKLST+7 , CHECKLST+8, CHECKLST+9, CHECKLST+10, CHECKLST+11, CHECKLST+12, CHECKLST+13, CHECKLST+17, CHECKLST+21, CHECKLST+22, CHECKLST+23 , CHECKLST+29, CHECKLST+30
SRVNAME1	PROCMSG+2~, CHECKLST+19~, CHECKLST+22*
SRVNAMEX	PROCMSG+2~, PV1+22, PV1+29, PV1+31, PV1+32, PV1+33, CHECKLST+23, CHECKLST+29, CHECKLST+30
SS	EN+1~
STARTFM	EN+1~, SCH+16
STARTFM1	EN+2~, SCH+16*
STATUS	GETSTAT+2~
STID	PROCMSG+2~
STREET	PROCMSG+42!
STREET1	PROCMSG+42!
T1	PV1+20~, PV1+21*
T2	PV1+20~, PV1+21*, PV1+22
T3	PV1+20~
TEXT	PROCMSG+42!
TITLE	GETSTAT+2~, GETSTAT+4*, GETSTAT+5, GETSTAT+7
TYPE	EN+2~, SCH+29*, SCH+30
USER	EN+1~
USERMAIL	EN+1~, SCH+21, SCH+23, SCH+24*, SCH+25, SCH+26, SCH+30
XC	CHECKLST+3~, CHECKLST+8, CHECKLST+9, CHECKLST+11, CHECKLST+12
XX	PROCMSG+7, PROCMSG+8, PROCMSG+9, PROCMSG+11, PROCMSG+22!
Y	PV1+13~

Customize PDF page

Package: Scheduling

Routine: SDCCRSEN

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Used in HL7 Interface

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items