Routine: SDCCRSEN

Package	Total	Call Graph
Scheduling	4	($$CHKMSG,$$GETRSN,$$GETUSER,$$INSTRING,$$TIMES,ACK,APPMSG,COPYMSG,DONEINC,INT)^SDCCRCOR ($$GET,PARSESEG)^SDCCRSCU ($$MSGTXT,CANCEL,MAKE,NOSHOW)^SDCCRSEN1 $$INACTIVE^SDEC32
Kernel	3	($$FMTE,$$HL7TFM,$$NOW)^XLFDT ($$LOW,$$UP)^XLFSTR $$PATCH^XPDUTL
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
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+14, PV1+15, PV1+22, PV1+29
$$GETDFN^MPIF001	PID+6
$$CHKMSG^SDCCRCOR	EN+6
$$GETRSN^SDCCRCOR	SCH+10
$$GETUSER^SDCCRCOR	SCH+19
$$INSTRING^SDCCRCOR	GETSTAT+5, GETSTAT+6
$$TIMES^SDCCRCOR	SCH+16
ACK^SDCCRCOR	EN+8
APPMSG^SDCCRCOR	PROCMSG+23
COPYMSG^SDCCRCOR	EN+5
DONEINC^SDCCRCOR	PROCMSG+29
INT^SDCCRCOR	EN+4
$$GET^SDCCRSCU	SCH+35, NTE+11, PV1+35, PV1+38, AIG+7, GETSTAT+3, GETSTAT+4
PARSESEG^SDCCRSCU	MSH+1, SCH+6, NTE+9, PID+5, PV1+6, AIP+6, AIG+6
$$MSGTXT^SDCCRSEN1	SCH+17, SCH+31, PV1+8, PV1+17, PV1+25, PV1+29, PV1+31, PV1+33, GETSTAT+7, CHECKLST+27
CANCEL^SDCCRSEN1	PROCMSG+27
MAKE^SDCCRSEN1	PROCMSG+26
NOSHOW^SDCCRSEN1	PROCMSG+28
$$INACTIVE^SDEC32	PV1+24, CHECKLST+25
$$FMTE^XLFDT	PV1+14
$$HL7TFM^XLFDT	AIG+7, DETTIME+5, DETTIME+6
$$NOW^XLFDT	DETTIME+8
$$LOW^XLFSTR	SCH+23
$$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+27, CHECKLST+30, CHECKLST+31
^SC("B"	CHECKLST+13, CHECKLST+17, CHECKLST+22, CHECKLST+30, CHECKLST+31
^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+33
$$PROCMSG	EN+7
AIG	PROCMSG+18
AIP	PROCMSG+19
AIS	PROCMSG+17
MSH	PROCMSG+11
NTE	PROCMSG+13
PID	PROCMSG+14
PV1	PROCMSG+15
RGS	PROCMSG+16
SCH	PROCMSG+12

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ABORT	EN+3~, EN+8, PROCMSG+5, PROCMSG+12, PROCMSG+13, PROCMSG+14, PROCMSG+15, PROCMSG+23, SCH~, SCH+17 , SCH+31, NTE~, PID~, PV1~, PV1+8, PV1+17, PV1+25, PV1+29, PV1+31, PV1+33* , PV1+36, PV1+39, GETSTAT+7, CHECKLST+27
ADDTXT	PROCMSG+2~
AIG	AIG~, AIG+6, AIG+7
AIP	AIP~, AIP+6
AIP(3	AIP+7
AIS	AIS~
APPTYPE	PROCMSG+3!, PROCMSG+4*
APTTM	PROCMSG+2~, SCH+16*
BASEDT	EN+3~, PROCMSG+5*, PROCMSG+12, PROCMSG+18, PROCMSG+19, SCH~
BASEDTE	AIP~, AIG~, AIG+8
CANRSN	SCH+11~*
CID	PROCMSG+2~, PROCMSG+4, PV1+14
CLINARY	EN+3~, PROCMSG+13, 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+27 , CHECKLST+30, CHECKLST+31, CHECKLST+32
CONID	PROCMSG+2~, SCH+9, NTE+10, PV1+9
CONSULTID	SCH+5~, PV1+9*, PV1+10, PV1+11, PV1+14, PV1+15, PV1+29, PV1+31
CONTITLE	PROCMSG+2~, PV1+15, CHECKLST+3~, CHECKLST+10, CHECKLST+17
COUNT	EN+3~
CS	EN+2~
DFN	PROCMSG+2~, PID+6*
DIVID	PROCMSG+2~, PV1+13*, CHECKLST+30
DUZ	SCH+21, SCH+22, SCH+23, SCH+24, SCH+25, SCH+26, SCH+29, SCH+31
EESTAT	PROCMSG+3!, PROCMSG+4*
ER	EN+2~
ER1	EN+2~
ER2	EN+2~
ER3	EN+2~
ERR1	PROCMSG+1~, SCH+17, SCH+31, PV1+8, PV1+17, PV1+25, PV1+29, PV1+31, PV1+33, CHECKLST+27
ERROR	PV1+5~, PV1+35, PV1+36, PV1+38, PV1+39, DETTIME~, DETTIME+4!, DETTIME+6, DETTIME+7
ES	EN+2~
EVENT	SETEVENT~, SETEVENT+3, SETEVENT+4, SETEVENT+5, SETEVENT+6
FMDTTM	EN+2~
FS	EN+2~
GMRCATIU	PROCMSG+2~
GMRCDFN	PROCMSG+2~
GMRCTIU	PROCMSG+2~
GMRCTIUS	PROCMSG+2~
HDR	EN+3~
HDRTIME	EN+3~, PROCMSG+15, PV1~, PV1+35, PV1+38, DETTIME~, DETTIME+6
HLNODE	EN+2~
HLQUIT	EN+2~
I	PROCMSG+1~, CHECKLST+3~, CHECKLST+9, CHECKLST+15
ICN	EN+2~, 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+27, CHECKLST+30, CHECKLST+31
INP	PROCMSG+30!
LASTSEG	EN+3~, PROCMSG+9, PROCMSG+13, 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+4*
MID	EN+2~, EN+8, PROCMSG+23
MSG	EN+3~, EN+5, EN+6, EN+7
MSG1	PROCMSG~, PROCMSG+30!
MSG1(	PROCMSG+7, PROCMSG+8, PROCMSG+10
MSGARY	EN+3~, PROCMSG+11, PROCMSG+12, PROCMSG+13, PROCMSG+14, PROCMSG+15, PROCMSG+16, PROCMSG+17, PROCMSG+18, PROCMSG+19 , SETEVENT~, MSH~, SCH~, NTE~, PID~, PV1~, RGS~, AIS~, 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+26, PROCMSG+27, PROCMSG+28, SETEVENT+4, SETEVENT+5, SETEVENT+6*, SCH+10, SCH+30
MSGARY("FILLE	R ID" , PV1+10*
MSGARY("PLACE	R ID" , SCH+7*
MSGARY("STATUS"	SCH+33*, PV1+36, PV1+39
MSGARY("USER"	SCH+19*
MSGTXT	EN+2~
MSH	EN+2~, MSH~, MSH+1
MSH(5	MSH+2
NAKMSG	EN+2~, PV1+36, PV1+39
NOTE	NTE+7~, NTE+10, NTE+13, NTE+15, NTE+16
NOTETYPE	NTE+7~, NTE+11*
NTE	NTE~, NTE+9, NTE+11
NTE(3	NTE+10
OK	PID+4~
ORDIDTYP	SCH+5~, SCH+35*
OVB	PROCMSG+3!, PROCMSG+4*
P694	EN+3~, SCH+15*
PID	PID~, PID+5
PID(3	PID+6
PROV	PROCMSG+2~, PROCMSG+4, AIP+7
PROVDTL	EN+3~, PROCMSG+13, PROCMSG+18, PROCMSG+19, NTE~, AIP~, AIG~
PROVDTL("DT"	AIG+7, AIG+8
PROVDTL("LN"	AIG+9*
PROVIDER	PROCMSG+2~, SCH+9*
PROVIEN	PROCMSG+3!, PROCMSG+4*
PV1	PV1~, PV1+6, PV1+35, PV1+38
PV1(19	PV1+8, PV1+9
PV1(3	PV1+13
PV1TIME	DETTIME~, DETTIME+5
QUIT	PROCMSG+1~, PROCMSG+6, PROCMSG+24, PROCMSG+25, PROCMSG+31, SCH+17, SCH+31, SCH+32, PV1+8, PV1+17 , PV1+25, PV1+26, PV1+28, PV1+29, PV1+31, PV1+33, GETSTAT+7, CHECKLST+27*, CHECKLST+28
RAWSEG	PROCMSG+2~, PROCMSG+8*
RESNAME	PV1+12~
RESULTS	EN+3~
RET	PROCMSG+30!
RGS	RGS~
RS	EN+2~
RSNAME	PROCMSG+30!, CHECKLST+11, CHECKLST+12
SCH	SCH~, SCH+6, SCH+35, 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+33
SCH(6	SCH+10
SCH(9	SCH+13
SDAPTYP	PROCMSG+3!, PROCMSG+4, PROCMSG+30!, PV1+11
SDCL	PROCMSG+3!, PROCMSG+4, PROCMSG+30!, PV1+22, PV1+23, PV1+24, PV1+25, PV1+27*, PV1+28, PV1+29 , PV1+31
SDDDT	PROCMSG+3!, PROCMSG+4*
SDDFN	PROCMSG+3!, PROCMSG+4, PROCMSG+30!, PID+6
SDECAPTID	PROCMSG+30!
SDECATID	PROCMSG+3!, PROCMSG+4*
SDECCR	PROCMSG+3!, PROCMSG+4*
SDECDATE	PROCMSG+30!
SDECEND	PROCMSG+3!, PROCMSG+4, SCH+16
SDECLEN	PROCMSG+3!, PROCMSG+4, SCH+13
SDECNOT	PROCMSG+30!
SDECNOTE	PROCMSG+3!, PROCMSG+4, PROCMSG+30!, NTE+13
SDECRES	PROCMSG+3!, PROCMSG+4, PV1+32, PV1+33
SDECRESA	PROCMSG+2~, PV1+15*, PV1+19, PV1+21
SDECSTART	PROCMSG+3!, PROCMSG+4, SCH+16
SDECY	PROCMSG+30!
SDEKG	PROCMSG+3!, PROCMSG+4*
SDEL	PROCMSG+3!, PROCMSG+4*
SDID	PROCMSG+3!, PROCMSG+4*
SDLAB	PROCMSG+3!, PROCMSG+4*
SDMRTC	PROCMSG+3!, PROCMSG+4*
SDPARENT	PROCMSG+3!, PROCMSG+4*
SDREQBY	PROCMSG+3!, PROCMSG+4*
SDRES	PROCMSG+30!, PV1+32~*
SDSVCP	PROCMSG+3!, PROCMSG+4*
SDSVCPR	PROCMSG+3!, PROCMSG+4*
SDXRAY	PROCMSG+3!, PROCMSG+4*
SEG	EN+3~, PROCMSG+10*, PROCMSG+11, PROCMSG+12, PROCMSG+13, PROCMSG+14, PROCMSG+15, PROCMSG+16, PROCMSG+17, PROCMSG+18 , PROCMSG+19
SEGTYPE	EN+3~, PROCMSG+1~, PROCMSG+8*, PROCMSG+9, PROCMSG+11, PROCMSG+12, PROCMSG+13, PROCMSG+14, PROCMSG+15, PROCMSG+16 , PROCMSG+17, PROCMSG+18, PROCMSG+19
SITECODE	PROCMSG+3!, MSH+2*, SCH+16
SRVNAME	SCH+5~, PV1+15, 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+30, CHECKLST+31
SRVNAME1	PROCMSG+2~, CHECKLST+19~, CHECKLST+22*
SRVNAMEX	PROCMSG+2~, PV1+22, PV1+29, PV1+31, PV1+32, PV1+33, CHECKLST+23, CHECKLST+30, CHECKLST+31
SS	EN+2~
STARTFM	EN+2~, SCH+16
STARTFM1	EN+3~, SCH+16*
STATUS	GETSTAT+2~
STID	PROCMSG+2~
T1	PV1+20~, PV1+21*
T2	PV1+20~, PV1+21*, PV1+22
T3	PV1+20~
TITLE	GETSTAT+2~, GETSTAT+4*, GETSTAT+5, GETSTAT+7
TYPE	EN+3~, SCH+30*, SCH+31
USER	EN+2~
USERMAIL	EN+2~, SCH+21, SCH+23, SCH+24*, SCH+25, SCH+26, SCH+31
XC	CHECKLST+3~, CHECKLST+8, CHECKLST+9, CHECKLST+11, CHECKLST+12
XX	PROCMSG+6, PROCMSG+7, PROCMSG+8, PROCMSG+10, PROCMSG+20!
Y	PV1+12~

Customize PDF page

Package: Scheduling

Routine: SDCCRSEN

Information

Source Information

Call Graph

Call Graph Total: 9

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