Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in HL7 Interface |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: SDCCRSEN

Package: Scheduling

Routine: SDCCRSEN


Information

SDCCRSEN ;CCRA/LB,PB - Appointment retrieval API;APR 4, 2019

Source Information

Source file <SDCCRSEN.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Scheduling 8 ($$CHKMSG,$$DATALKUP,$$INSTRING,$$TIMES,ACK,ANAK,APPMSG,COPYMSG,DONEINC,INT,MESSAGE)^SDCCRCOR  ($$GET,PARSESEG)^SDCCRSCU  APPADD^SDEC07  APPDEL^SDEC08  NOSHOW^SDEC31  $$INACTIVE^SDEC32  $$NETTOFM^SDECDATE  $$APPTGET^SDECUTL  
Kernel 3 ($$FMTE,$$HL7TFM,$$NOW)^XLFDT  ($$LOW,$$UP)^XLFSTR  $$PATCH^XPDUTL  
VA FileMan 2 $$FIND1^DIC  $$GET1^DIQ  
Master Patient Index VistA 1 $$GETDFN^MPIF001  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Scheduling 1 SDCCRCOR  

Entry Points

Name Comments DBIA/ICR reference
EN() ;Primary entry routine for HL7 based CCRA scheduling processing.
PROCMSG(MSG1) ; Process message
MAKE ;MAKE APPOINTMENT: "S12"="SCHEDULE"
CANCEL ;CANCEL APPOINTMENT: "S15"="CANCEL"
NOSHOW ;NOSHOW APPOINTMENT: "S26"="NOSHOW"
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.
AIL(AIL,RETVAL) ; Process AIL Segment
AIG(AIG,MSGARY,PROVDTL,BASEDTE) ;AIG segment processing.
GETRSN(SCH) ; Collects appointment reason and translates into internal format.
GETTYPE(OBX) ;translates appointment type into internal format
GETUSER(SCH) ;collects appointment entered by user and confirms they are a user in the 200 file
GETSTAT(SCH) ; Translates status into appropriate scheduling statuses
GETIDS(PID,IDENTIFIERS) ;Loops over PID-3 and extracts all IDs out into an array. Currently will identify ICN and IEN identifiers only
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

External References

Name Field # of Occurrence
$$FIND1^DIC GETUSER+3
$$GET1^DIQ PV1+12, PV1+13
$$GETDFN^MPIF001 PID+6
$$CHKMSG^SDCCRCOR EN+6
$$DATALKUP^SDCCRCOR GETRSN+3, GETTYPE+3
$$INSTRING^SDCCRCOR GETSTAT+5, GETSTAT+6
$$TIMES^SDCCRCOR SCH+20
ACK^SDCCRCOR EN+8, MAKE+5, SCH+21, PV1+7, PV1+14, PV1+16, PV1+18, PV1+21, PV1+24, GETSTAT+7
ANAK^SDCCRCOR PROCMSG+23, MAKE+17, CANCEL+22, NOSHOW+20
APPMSG^SDCCRCOR PROCMSG+25
COPYMSG^SDCCRCOR EN+5
DONEINC^SDCCRCOR PROCMSG+30
INT^SDCCRCOR EN+4
MESSAGE^SDCCRCOR PROCMSG+24, MAKE+7, MAKE+16, CANCEL+14, CANCEL+21, NOSHOW+14, NOSHOW+19
$$GET^SDCCRSCU SCH+30, NTE+9, NTE+10, PV1+20, PV1+23, AIG+7, GETSTAT+3, GETSTAT+4
PARSESEG^SDCCRSCU MSH+1, SCH+6, PID+5, PV1+6, AIP+6, AIG+6
APPADD^SDEC07 MAKE+12
APPDEL^SDEC08 CANCEL+17
NOSHOW^SDEC31 NOSHOW+15
$$INACTIVE^SDEC32 CHECKLST+25
$$NETTOFM^SDECDATE CANCEL+6, NOSHOW+8
$$APPTGET^SDECUTL MAKE+4, CANCEL+7, NOSHOW+9
$$FMTE^XLFDT MAKE+10, PV1+12
$$HL7TFM^XLFDT AIG+7, DETTIME+5, DETTIME+6
$$NOW^XLFDT DETTIME+8
$$LOW^XLFSTR SCH+24
$$UP^XLFSTR SCH+26
$$PATCH^XPDUTL SCH+15

Used in HL7 Interface

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(123 - [#123] GET1^DIQ
^VA(200 - [#200] FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] MAKE+1, CANCEL+1, NOSHOW+1, CHECKLST+26
^SC("B" CHECKLST+13, CHECKLST+17, CHECKLST+22, CHECKLST+26
^SD(409.2 - [#409.2] SCH+11
^SDEC(409.831 - [#409.831] PV1+17
^TMP("SDEC" NOSHOW+17, NOSHOW+18
^TMP("SDEC07" MAKE+14, MAKE+15, MAKE+17
^TMP("SDEC08" CANCEL+19, CANCEL+20
^VA(200 - [#200] SCH+24, SCH+25, SCH+26

Label References

Name Line Occurrences
$$CHECKLST PV1+15
$$DETTIME PV1+20, PV1+23
$$GETRSN SCH+10
$$GETSTAT SCH+28
$$GETUSER SCH+23
$$PROCMSG EN+7
AIG PROCMSG+19
AIL PROCMSG+20
AIP PROCMSG+21
AIS PROCMSG+18
CANCEL PROCMSG+28
MAKE PROCMSG+27
MSH PROCMSG+12
NOSHOW PROCMSG+29
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+3~, EN+8, PROCMSG+5*, PROCMSG+13, PROCMSG+14, PROCMSG+15, PROCMSG+16, PROCMSG+24, PROCMSG+25, MAKE+6*
MAKE+7, MAKE+15*, MAKE+16, MAKE+17, CANCEL+12*, CANCEL+14, CANCEL+20*, CANCEL+21, CANCEL+22, NOSHOW+12*
NOSHOW+14, NOSHOW+18*, NOSHOW+19, NOSHOW+20, SCH~, SCH+21*, SCH+27*, NTE~, PID~, PV1~
, PV1+7*, PV1+14*, PV1+16*, PV1+18*, PV1+21*, PV1+24*, GETSTAT+7*
ADDTXT PROCMSG+2~
AIG AIG~, AIG+6, AIG+7
AIL AIL~
AIP AIP~, AIP+6
AIP(3 AIP+7
AIS AIS~
APPTTYPE GETTYPE+2~, GETTYPE+3*, GETTYPE+4*, GETTYPE+5
APPTYPE PROCMSG+3!, PROCMSG+4*
APTTM PROCMSG+2~, PROCMSG+23, MAKE+17, CANCEL+22, NOSHOW+20, SCH+20*
ASSIGN GETIDS+3~
BASEDT EN+3~, PROCMSG+5*, PROCMSG+13, PROCMSG+19, PROCMSG+21, CANCEL+6*, CANCEL+7, NOSHOW+8*, NOSHOW+9, SCH~
BASEDTE AIP~, AIG~, AIG+8
CANRSN SCH+11~*
CID PROCMSG+2~, PROCMSG+4*, MAKE+11, PV1+12*
CLINARY EN+3~, 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+27
CONID PROCMSG+2~, PROCMSG+23, MAKE+17, CANCEL+22, NOSHOW+20, SCH+9*, PV1+8*
CONSULTID CANCEL+12, NOSHOW+12, SCH+5~, PV1+8*, PV1+9, PV1+10, PV1+12, PV1+13, PV1+16
CONTITLE PROCMSG+2~, PV1+13*, CHECKLST+3~, CHECKLST+10*, CHECKLST+17
COUNT EN+3~
CS EN+2~
DFN PROCMSG+2~, PROCMSG+23, MAKE+2, MAKE+17, CANCEL+2, CANCEL+22, NOSHOW+2, NOSHOW+20, PID+6*
DUZ PROCMSG+23*, SCH+24*, SCH+25*, SCH+26*, SCH+27*
EESTAT PROCMSG+3!, PROCMSG+4*
ERR1 PROCMSG+1~, SCH+21*, SCH+27*, PV1+7*, PV1+14*, PV1+16*, PV1+18*
ERROR PV1+5~, PV1+16*, PV1+18*, PV1+20, PV1+21, PV1+23, PV1+24, DETTIME~, DETTIME+4!, DETTIME+6*
, DETTIME+7*
ES EN+2~
EVENT SETEVENT~, SETEVENT+3, SETEVENT+4, SETEVENT+5, SETEVENT+6
FS EN+2~
GMRCATIU PROCMSG+2~
GMRCDFN PROCMSG+2~
GMRCTIU PROCMSG+2~
GMRCTIUS PROCMSG+2~
HDR EN+3~
HDRTIME EN+3~, PROCMSG+16, PV1~, PV1+20, PV1+23, DETTIME~, DETTIME+6
HLNODE EN+2~
HLQUIT EN+2~
I PROCMSG+1~, CHECKLST+3~, CHECKLST+9*, CHECKLST+15*
ICN EN+2~, PROCMSG+23, MAKE+17, CANCEL+22, NOSHOW+20, PID+6*
ID GETSTAT+2~, GETSTAT+3*, GETSTAT+6, GETSTAT+7, GETIDS+3~, GETIDS+4*
IDENTIFIERS PID+4~, GETIDS~
IDENTIFIERS(" PATIENT ICN" , GETIDS+6*, PATIENT IEN" , GETIDS+5*
IDS GETIDS+2!
IDTYPE GETIDS+3~
IENCHECK PID+4~
INACT CHECKLST+25~*, CHECKLST+26
INP PROCMSG+31!
LASTSEG EN+3~, PROCMSG+10*, PROCMSG+14, NTE~, NTE+8*, NTE+13
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+24, PROCMSG+25, MAKE+5, MAKE+7, MAKE+16, CANCEL+14, CANCEL+21, NOSHOW+14
NOSHOW+19, SCH+21, PV1+7, PV1+14, PV1+16, PV1+18, PV1+21, PV1+24, GETSTAT+7
MSG EN+3~, EN+5, EN+6, EN+7
MSG1 PROCMSG~, PROCMSG+31!
MSG1( PROCMSG+7, PROCMSG+9, PROCMSG+11
MSGARY EN+3~, 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~, AIP~
, AIG~
MSGARY("CANCE L CODE" , CANCEL+15*, CANCEL+17, SCH+10*, L REASON" , CANCEL+16*, CANCEL+17, SCH+10*, SCH+11*
MSGARY("CHECKINDT" PV1+20*
MSGARY("CHECKOUTDT" PV1+23*
MSGARY("COMMENT" CANCEL+17, NTE+14*, NTE+15*
MSGARY("DURATION" SCH+13*, AIG+9
MSGARY("EVENT" PROCMSG+27, PROCMSG+28, PROCMSG+29, SETEVENT+4*, SETEVENT+5*, SETEVENT+6*, SCH+10
MSGARY("FILLE R ID" , PV1+9*
MSGARY("PLACE R ID" , SCH+7*
MSGARY("STATUS" SCH+28*, PV1+21, PV1+24
MSGARY("USER" CANCEL+17, NOSHOW+15, SCH+23*
MSH EN+2~, MSH~, MSH+1
MSH(5 MSH+2
NAKMSG EN+2~, PROCMSG+23, SCH+27*, PV1+7*, PV1+14*, PV1+18*
NOTE NTE+7~, NTE+9*, NTE+12*, NTE+14, NTE+15
NOTETYPE NTE+7~, NTE+10*
NTE NTE~, NTE+9, NTE+10
OBX GETTYPE~, GETTYPE+3
OK PID+4~
ORDIDTYP SCH+5~, SCH+30*
OVB PROCMSG+3!, PROCMSG+4*
P694 EN+3~, SCH+15*
PID PID~, PID+5, GETIDS~
PID(3 PID+6, GETIDS+4, GETIDS+5, GETIDS+6
PROV PROCMSG+2~, PROCMSG+4*, MAKE+11, AIP+7*
PROVDTL EN+3~, PROCMSG+14, PROCMSG+19, PROCMSG+21, 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+20, PV1+23
PV1(19 PV1+7, PV1+8
PV1TIME DETTIME~, DETTIME+5
QUIT PROCMSG+1~, PROCMSG+6*, PROCMSG+23*, PROCMSG+26*, PROCMSG+32, MAKE+6*, MAKE+8, MAKE+12, CANCEL+13*, CANCEL+17
NOSHOW+13*, NOSHOW+15
RAWSEG PROCMSG+2~, PROCMSG+9*
REP GETIDS+3~
RESNAME PV1+11~
RESULTS EN+3~
RET PROCMSG+31!
RETVAL AIL~
RGS RGS~
RS EN+2~
RSNAME PROCMSG+31!, CHECKLST+11*, CHECKLST+12*
SCH SCH~, SCH+6, SCH+30, GETRSN~, GETRSN+3, GETUSER~, GETUSER+2, GETUSER+3, GETSTAT~, GETSTAT+3
, GETSTAT+4
SCH(1 SCH+7
SCH(11 SCH+20, SCH+21
SCH(12 SCH+9
SCH(13 SCH+24
SCH(2 SCH+9
SCH(20 SCH+23
SCH(25 SCH+28
SCH(6 SCH+10
SCH(9 SCH+13
SDAPTYP PROCMSG+3!, PROCMSG+4*, PROCMSG+31!, MAKE+12, PV1+10*
SDCL PROCMSG+3!, PROCMSG+4*, PROCMSG+31!, MAKE+1, MAKE+4, MAKE+12, CANCEL+1, CANCEL+7, NOSHOW+1, NOSHOW+9
, PV1+15*, PV1+16
SDDDT PROCMSG+3!, PROCMSG+4*
SDDFN PROCMSG+3!, PROCMSG+4*, PROCMSG+31!, MAKE+2*, MAKE+4, MAKE+12, CANCEL+2*, CANCEL+7, NOSHOW+2*, NOSHOW+9
, PID+6*
SDECAPTID PROCMSG+31!, MAKE+1*, MAKE+4*, MAKE+5, CANCEL+1*, CANCEL+7*, CANCEL+10, CANCEL+17, NOSHOW+1*, NOSHOW+9*
NOSHOW+10, NOSHOW+15
SDECATID PROCMSG+3!, PROCMSG+4*
SDECCR PROCMSG+3!, PROCMSG+4*
SDECDATE PROCMSG+31!, CANCEL+17, NOSHOW+15
SDECEND PROCMSG+3!, PROCMSG+4*, MAKE+12, SCH+20*
SDECLEN PROCMSG+3!, PROCMSG+4*, MAKE+1*, MAKE+3*, MAKE+12, CANCEL+1*, CANCEL+3*, NOSHOW+1*, NOSHOW+3*, SCH+13*
SDECNOT PROCMSG+31!
SDECNOTE PROCMSG+3!, PROCMSG+4*, PROCMSG+31!, MAKE+11*, MAKE+12, NTE+12*
SDECRES PROCMSG+3!, PROCMSG+4*, MAKE+4, MAKE+12, CANCEL+7, NOSHOW+9, PV1+17*, PV1+18
SDECRESA PROCMSG+2~, PV1+13*
SDECSTART PROCMSG+3!, PROCMSG+4*, MAKE+4, MAKE+9*, MAKE+10*, MAKE+12, CANCEL+6, CANCEL+12, NOSHOW+8, NOSHOW+12
, SCH+20*
SDECY PROCMSG+31!, MAKE+12, CANCEL+17, NOSHOW+15
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+31!, PV1+17~*
SDSVCP PROCMSG+3!, PROCMSG+4*
SDSVCPR PROCMSG+3!, PROCMSG+4*
SDXRAY PROCMSG+3!, PROCMSG+4*
SEG EN+3~, PROCMSG+11*, PROCMSG+12, PROCMSG+13, PROCMSG+14, PROCMSG+15, PROCMSG+16, PROCMSG+17, PROCMSG+18, PROCMSG+19
, PROCMSG+20, PROCMSG+21
SEGTYPE EN+3~, 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
SITECODE PROCMSG+3!, MSH+2*, SCH+20
SRVNAME SCH+5~, PV1+13*, PV1+14, PV1+15, 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+26*
SRVNAME1 PROCMSG+2~, CHECKLST+19~, CHECKLST+22*
SRVNAMEX PROCMSG+2~, PV1+16, PV1+17, PV1+18, CHECKLST+23*, CHECKLST+26*
SS EN+2~
STATUS GETSTAT+2~
STID PROCMSG+2~
TITLE GETSTAT+2~, GETSTAT+4*, GETSTAT+5, GETSTAT+7
USER EN+2~, GETUSER+3*, GETUSER+4*, GETUSER+5
USERMAIL EN+2~, PROCMSG+23, MAKE+17, CANCEL+22, NOSHOW+20, SCH+24*, SCH+25, SCH+26
XC CHECKLST+3~, CHECKLST+8*, CHECKLST+9*, CHECKLST+11, CHECKLST+12
XX PROCMSG+6*, PROCMSG+7*, PROCMSG+9, PROCMSG+11, PROCMSG+22!
Y PV1+11~

Marked Items

Name Field # of Occurrence
$T(LIST+I CHECKLST+17
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Used in HL7 Interface |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All