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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: SDCCRCOR

Package: Scheduling

Routine: SDCCRCOR


Information

SDCCRCOR ;CCRA/LB,PB - Core Tags;APR 4, 2019

Source Information

Source file <SDCCRCOR.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Scheduling 4 ($$INSTRING,ACK)^SDCCRCOR  $$APTNODEP^SDCCRGAP  $$GET^SDCCRSCU  $$SETEVENT^SDCCRSEN  
Kernel 3 ($$FMADD,$$FMTE,$$FMTHL7,$$HL7TFM)^XLFDT  ($$LOW,$$STRIP)^XLFSTR  $$KSP^XUPARAM  
VA FileMan 3 ^DIC  $$GET1^DIQ  $$UTC^DIUTC  
Health Level Seven 2 $$FMDATE^HLFNC  GENACK^HLMA1  
MailMan 1 ^XMD  

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: 2

Package Total Caller Graph
Scheduling 2 SDCCRCOR  SDCCRSEN  

Entry Points

Name Comments DBIA/ICR reference
HL72VATS(HL7TS) ; Converts HL7 formatted timestamps to VA format
; HL7TS - date/time stamp in 24H HL7 format (YYYYMMDDHHMMSS)
VA2HL7TS(VATS) ; Converts VA formatted timestamps to HL7 format
; VATS - date/time stamp in VA format (YYYMMDD.HHMMSS)
GETPTIEN(PATNAME) ; Returns patient ID or null, name must be perfect match
; PATNAME - Patient name - must be exact LAST,FIRST
GETPTNM(DFN) ; Returns patient name from ^DPT global, given a valid DFN
; DFN - Patient ID to look for
GETLCIEN(LOCNAME) ; Returns Location ID or null, name must be perfect match
; PATNAME - Location name - must be exact
GETLCNM(LOCID) ; Returns location name from clinic file 44 given a valid clinic IEN
; LOCID - Location ID to look for
GETNMPRV(CLINIC) ; Returns the number of providers associated with a clinic
; CLINIC - The Clinic IEN (first piece of DPT 0 node)
GETCNGNM(CLINICGROUP) ; Returns the Name of a Clinic's group
; CLINICGROUP - The Clinic Group IEN
GETPRVNM(PROVIEN) ; Returns the provider name, given a provider ID
; PROVIEN - The Provider IEN
ICLNDPRV(CLINIC,PROVIEN) ; Determines if the provider is the default provider for the clinic
; CLINIC - The Clinic IEN (first piece of DPT 0 node)
; PROVIEN - The Provider IEN
CLNPVIND(CLINIC,PROVIEN) ; Determines the line number the provider is listed on for a clinic
; CLINIC - The Clinic IEN (first piece of DPT 0 node)
; PROVIEN - The Provider IEN
GTCANRSN(PATIENTIEN,APPTDT) ; Returns the discrete cancellation reason
; PATIEN (I,REQ)- Patient ID as in DPT(PATIEN,"S",APPTDAT
; APPTDAT (I,REQ) - Appointment date
GTCNRNTP(PATIENTIEN,APPTDT) ; Gets the cancelation reason type.
; PATIEN - Patient ID as in DPT(PATIEN,"S",APPTDAT
; APPTDAT - Appointment date
ORD2CONS(ORDERID) ;Returns the consult ID linked to the given order
; ORDERID - Order ID
INSTRING(VALUE,LIST,DELIM) ; compare a string value to see if it is a list given a particular delimiter
; VALUE - value to find in the list.
; LIST - The list to check
; DELIM - Delimiter that separates the data in the list. Default = ","
INITINC ; Sets temp global that indicates this process is filing an incoming message
DONEINC ; Clears temp global that indicates this process is filing an incoming message
INCINTF() ; Checks temp global that indicates whether the process is filing an incoming message
SETMSGET()
FMTPHONE(PHONE,EXT) ; Formats a VistA telephone number into an HL7-compliant format
; Formats include: (nnn)nnn-nnnn and nnn-nnnn, depending on whether or not there is an area code.
; If the number is not in a valid format, does not attempt to do any formatting.
; Returns 1 if the number was formatted, 0 otherwise.
GETLEN(SCH,AIP,AIG) ;Translates duration into Minutes. Assumes minutes unless set to S or SEC for the units
; Only one parameter at a time should be passed-in, depending on what segment is calling this tag
; SCH (I/OPT) - SCH message segment data
; AIP (I/OPT) - AIP message segment data
; AIG (I/OPT) - AIG message segment data
COPYMSG(Y) ; Copy HL7 Message to array Y (by reference)
; Based on HL*1.6*56 VISTA HL7 Site Manager & Developer Manual
; Paragraph 9.7, page 9-4
CHKMSG(Y) ; Check Message for all required segments
DATALKUP(SEG,FILE,FILEPATH,FIELD,ERRCODE,ERRTEXT) ; Translates a data element for a given FileMan file in an HL7 field
ACK(STAT,MID,SID,SEG,FLD,CD,TXT,ACKTYP) ; Creates ACKs for HL7 Message
APPMSG(MSGID,ABORT) ; Send a MailMan Message with the errors
MESSAGE(MSGID,ABORT) ; Send a MailMan Message with the errors
ANAK(NAKMSG,USERMAIL,ICN,DFN,APTTM,CONID) ; Application Error
INT ;
TIMES(APPTTIME,SITECODE) ; convert/calculate appt times
DSTTEST(YR,CHKDT) ;
DSTTABLE ;

External References

Name Field # of Occurrence
^DIC DATALKUP+17, DATALKUP+20
$$GET1^DIQ GETLCNM+2, DATALKUP+22, ANAK+10, ANAK+11, ANAK+12, TIMES+7
$$UTC^DIUTC TIMES+11, TIMES+13
$$FMDATE^HLFNC APPMSG+2, MESSAGE+3
GENACK^HLMA1 ACK+51, ANAK+20
$$INSTRING^SDCCRCOR FMTPHONE+19, GETLEN+19
ACK^SDCCRCOR DATALKUP+24
$$APTNODEP^SDCCRGAP GTCANRSN+3, GTCNRNTP+4
$$GET^SDCCRSCU GETLEN+7, GETLEN+9, GETLEN+11, GETLEN+13, GETLEN+15, DATALKUP+13, DATALKUP+14
$$SETEVENT^SDCCRSEN CHKMSG+22
$$FMADD^XLFDT TIMES+11, TIMES+14
$$FMTE^XLFDT APPMSG+2, APPMSG+8, MESSAGE+3
$$FMTHL7^XLFDT VA2HL7TS+2
$$HL7TFM^XLFDT HL72VATS+2, TIMES+6, TIMES+8
$$LOW^XLFSTR MESSAGE+12
$$STRIP^XLFSTR FMTPHONE+12
^XMD APPMSG+13, MESSAGE+17
$$KSP^XUPARAM ANAK+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$G(DSTFL),!
  • Line Location: TIMES+9
Routine Call
  • DIC
  • Line Location:
    • DATALKUP+17
    • DATALKUP+20

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" TIMES+16
^DIC(4 - [#4] TIMES+7
^DPT - [#2] GETPTNM+4, GETPTNM+5, ANAK+14
^DPT("B" GETPTIEN+4, GETPTIEN+5
^OR(100 - [#100] ORD2CONS+4
^SC - [#44] GETNMPRV+2, ICLNDPRV+3, CLNPVIND+3
^SC("B" GETLCIEN+4, GETLCIEN+5
^SD(409.2 - [#409.2] GTCANRSN+3, GTCNRNTP+5
^SD(409.67 - [#409.67] GETCNGNM+2
^TMP($J INITINC+1*, DONEINC+1!, INCINTF+1
^VA(200 - [#200] GETPRVNM+2

Label References

Name Line Occurrences
$$CLNPVIND ICLNDPRV+3
$$DSTTEST TIMES+9
ACK GETLEN+8, GETLEN+12, GETLEN+16, CHKMSG+11, CHKMSG+18, CHKMSG+26, CHKMSG+32

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ABORT GETLEN+8*, GETLEN+12*, GETLEN+16*, CHKMSG+12*, CHKMSG+19*, CHKMSG+27*, CHKMSG+33*, APPMSG~, MESSAGE~, MESSAGE+2
, MESSAGE+5, MESSAGE+10
ACKTYP ACK~, ACK+36, ACK+40
AIG GETLEN~, GETLEN+14, GETLEN+15
AIP GETLEN~, GETLEN+10, GETLEN+11, GETLEN+13
APPT TIMES+1~, TIMES+2*, TIMES+11*, TIMES+14*, TIMES+15*, TIMES+16*, TIMES+18
APPTDT GTCANRSN~, GTCANRSN+3, GTCNRNTP~, GTCNRNTP+4
APPTTIME TIMES~, TIMES+4, TIMES+6, TIMES+8
APTTM ANAK~, ANAK+8, ANAK+19
CANTYPE GTCNRNTP+3~, GTCNRNTP+4*, GTCNRNTP+5
CD ACK~, ACK+19*, ACK+37, ACK+42
CHKDT DSTTEST~, DSTTEST+4, DSTTEST+7
CLINIC GETNMPRV~, GETNMPRV+2, ICLNDPRV~, ICLNDPRV+3, CLNPVIND~, CLNPVIND+3
CLINICGROUP GETCNGNM~, GETCNGNM+2
CNSLTLNK ORD2CONS+2~, ORD2CONS+4*, ORD2CONS+5
CONID MESSAGE+4, ANAK~, ANAK+9, ANAK+10, ANAK+11, ANAK+19
CONPAT ANAK+1~, ANAK+10*, ANAK+11, ANAK+12, ANAK+14
>> CONSULTID APPMSG+3, APPMSG+5
>> CONTITLE APPMSG+6
CS CHKMSG+14, CHKMSG+16, CHKMSG+22, CHKMSG+24, ACK+10~, ACK+12*, ACK+32, ACK+37, ACK+42, ANAK+1~
, ANAK+3*, INT+4*
DATA DATALKUP+11~, DATALKUP+12*, DATALKUP+17*, DATALKUP+18, DATALKUP+20*, DATALKUP+21, DATALKUP+22*, DATALKUP+23
DATE APPMSG+1~, APPMSG+2*, MESSAGE+1~, MESSAGE+3*, MESSAGE+8
DATES DSTTEST+1~, DSTTEST+6*, DSTTEST+7
DELIM INSTRING~, INSTRING+4
DFN GETPTNM~, GETPTNM+3, GETPTNM+4, GETPTNM+5, CHKMSG+1~, ANAK~, ANAK+12
DIC DATALKUP+11~, DATALKUP+17*, DATALKUP+20*
DIC(0 DATALKUP+17*, DATALKUP+20*
DIFROM APPMSG+1~, MESSAGE+1~
DSTFL TIMES+9*, TIMES+14, TIMES+17!
DURATION GETLEN+5~, GETLEN+7*, GETLEN+8, GETLEN+11*, GETLEN+12, GETLEN+15*, GETLEN+16, GETLEN+19*, GETLEN+20
DUZ APPMSG+1~, MESSAGE+1~, INT+2*
EID ACK+10~, ACK+23*, ACK+25, ACK+51, ANAK+1~, ANAK+16*, ANAK+20
EIDS ACK+10~, ACK+24*, ACK+25, ACK+51, ANAK+1~, ANAK+17*, ANAK+20
ERRARY ACK+30!
ERRARY( ACK+45*, ACK+47*, ACK+48*
ERRCODE DATALKUP~, DATALKUP+24
ERRI ACK+10~, ACK+41*, ACK+44*, ACK+45, ACK+47, ACK+48
ERRMSG CHKMSG+1~, CHKMSG+16*, CHKMSG+17*, CHKMSG+18, CHKMSG+19, CHKMSG+24*, CHKMSG+25*, CHKMSG+26, CHKMSG+27
ERRTEXT DATALKUP~, DATALKUP+24
ES ACK+10~, ACK+14*, ANAK+1~, ANAK+5*, INT+6*
EXP TIMES+2*, TIMES+7*, TIMES+17!
EXP1 TIMES+7*, TIMES+10, TIMES+12, TIMES+17!
EXT FMTPHONE~, FMTPHONE+14*
FIELD DATALKUP~, DATALKUP+10, DATALKUP+13, DATALKUP+14
FILE DATALKUP~, DATALKUP+10, DATALKUP+22
FILEPATH DATALKUP~, DATALKUP+17, DATALKUP+20
FLD ACK~, ACK+19*, ACK+32
FLG1 MESSAGE+1~, MESSAGE+5*, MESSAGE+12
FMDTTM TIMES+3!, TIMES+8*, TIMES+9, TIMES+11, TIMES+14, TIMES+15
FS CHKMSG+9, CHKMSG+14, CHKMSG+16, CHKMSG+17, CHKMSG+22, CHKMSG+24, CHKMSG+25, CHKMSG+29, ACK+10~, ACK+11*
, ACK+22, ACK+32, ACK+33, ACK+37, ACK+42, ANAK+1~, ANAK+2*, INT+3*
>> HDRTIME CHKMSG+29*
>> HL("DTM" APPMSG+2, MESSAGE+3
>> HL("ECH" ACK+12, ACK+13, ACK+14, ACK+15, ANAK+3, ANAK+4, ANAK+5, ANAK+6, INT+4, INT+5
INT+6, INT+7
>> HL("EID" ACK+23, ANAK+16
>> HL("EIDS" ACK+24, ANAK+17
>> HL("FS" ACK+11, ANAK+2, INT+3
>> HL("MID" ANAK+18, INT+8
HL7TS HL72VATS~, HL72VATS+2
HLA ACK+10~
HLA("HLA" ACK+22*, ACK+31*, ACK+32*, ACK+33*, ACK+37*, ACK+42*, ACK+45, ACK+46, ACK+47, ACK+48
, ANAK+19*
>> HLMTIENS ACK+25, ACK+51, ANAK+20
>> HLNEXT COPYMSG+3, COPYMSG+6
>> HLNODE COPYMSG+7, INT+9*
>> HLNODE( COPYMSG+8, COPYMSG+9
>> HLQUIT COPYMSG+6, INT+9*
HSRMOFFSET TIMES+3!
HSRMOFFSET1 TIMES+3!, TIMES+8*, TIMES+11, TIMES+14, TIMES+15
I COPYMSG+5~, COPYMSG+6*, COPYMSG+7, COPYMSG+9, CHKMSG+1~, CHKMSG+4*, CHKMSG+5*, CHKMSG+6, CHKMSG+9, CHKMSG+14
, CHKMSG+16, CHKMSG+17, CHKMSG+22, CHKMSG+24, CHKMSG+25, CHKMSG+29, DSTTEST+1~, DSTTEST+6*
ICN CHKMSG+1~, ANAK~, ANAK+14*, ANAK+15*, ANAK+19
ID DATALKUP+11~, DATALKUP+13*, DATALKUP+15, DATALKUP+19, DATALKUP+20, DATALKUP+22
IEN GETPTIEN+2~, GETPTIEN+5*, GETPTIEN+6, GETLCIEN+2~, GETLCIEN+5*, GETLCIEN+6
J COPYMSG+5~, COPYMSG+7*, COPYMSG+8*, COPYMSG+9, APPMSG+1~, MESSAGE+1~
LENGTH FMTPHONE+9~, FMTPHONE+18*, FMTPHONE+19, FMTPHONE+20, FMTPHONE+21
LIST INSTRING~, INSTRING+4
LOCID GETLCNM~, GETLCNM+2
LOCNAME GETLCIEN~, GETLCIEN+3, GETLCIEN+4, GETLCIEN+5
MID GETLEN+8, GETLEN+12, GETLEN+16, CHKMSG+11, CHKMSG+18, CHKMSG+26, CHKMSG+32, DATALKUP+24, ACK~, ACK+18*
, ACK+22, INT+8*
>> MSGARY CHKMSG+22
MSGEVN CHKMSG+1~, CHKMSG+22*
MSGID APPMSG~, MESSAGE~, MESSAGE+9
MSGN ANAK+1~, ANAK+18*, ANAK+19
MSGTEXT APPMSG+1~, MESSAGE+1~
MSGTEXT(1 APPMSG+4*, MESSAGE+6*
MSGTEXT(2 APPMSG+5*, MESSAGE+7*
MSGTEXT(3 APPMSG+6*, MESSAGE+8*
MSGTEXT(4 APPMSG+7*, MESSAGE+9*
MSGTEXT(5 APPMSG+8*, MESSAGE+10*
MSGTEXT(6 MESSAGE+12*
NAKMSG ANAK~, ANAK+7, ANAK+19
OFFSET TIMES+3!, TIMES+11*, TIMES+14*
OFFSET1 TIMES+11*, TIMES+13*, TIMES+14, TIMES+15, TIMES+17!
ORDERID ORD2CONS~, ORD2CONS+3, ORD2CONS+4
>> P694 TIMES+16
PATIENTIEN GTCANRSN~, GTCANRSN+3, GTCNRNTP~, GTCNRNTP+4
PATNAME GETPTIEN~, GETPTIEN+3, GETPTIEN+4, GETPTIEN+5, GETPTNM+2~, GETPTNM+5*, GETPTNM+6, ANAK+1~, ANAK+11*, ANAK+12*
, ANAK+19
PHONE FMTPHONE~, FMTPHONE+8, FMTPHONE+12, FMTPHONE+24*
>> PROVIDER APPMSG+8
PROVIEN GETPRVNM~, GETPRVNM+2, ICLNDPRV~, ICLNDPRV+3, CLNPVIND~, CLNPVIND+3
QUIT CHKMSG+1~, CHKMSG+2*, CHKMSG+3, CHKMSG+10*, CHKMSG+13, CHKMSG+15*, CHKMSG+20, CHKMSG+23*, CHKMSG+28, CHKMSG+31*
, CHKMSG+34
REQSEG CHKMSG+1~, CHKMSG+3*, CHKMSG+7, CHKMSG+32, CHKMSG+33
RES ACK+10~, ACK+27*, ACK+51, ANAK+20
>> RESULTS INT+1*
RS ACK+10~, ACK+13*, ANAK+1~, ANAK+4*, INT+5*
RTN DSTTEST+1~, DSTTEST+2*, DSTTEST+7*, DSTTEST+8
SCH GETLEN~, GETLEN+6, GETLEN+7, GETLEN+9
>> SDECSTART APPMSG+8
SEG DATALKUP~, DATALKUP+13, DATALKUP+14, ACK~, ACK+18*, ACK+32
SEGFND CHKMSG+1~, CHKMSG+4*, CHKMSG+5, CHKMSG+7*, CHKMSG+30
SEGTYP CHKMSG+1~, CHKMSG+6*, CHKMSG+7, CHKMSG+8
SID ACK~, ACK+18*, ACK+29, ACK+32
SITE ANAK+1~, ANAK+13*, ANAK+19
SITECODE TIMES~, TIMES+5, TIMES+7*, TIMES+11, TIMES+13
>> SRVNAMEX APPMSG+7
SS ACK+10~, ACK+15*, ANAK+1~, ANAK+6*, INT+7*
STAT ACK~, ACK+18*, ACK+22
TEMP FMTPHONE+9~, FMTPHONE+12*, FMTPHONE+13*, FMTPHONE+14, FMTPHONE+15*, FMTPHONE+18, FMTPHONE+20*, FMTPHONE+21*, FMTPHONE+24
TITLE DATALKUP+11~, DATALKUP+14*, DATALKUP+15, DATALKUP+17
TXT ACK~, ACK+19*, ACK+22, ACK+37, ACK+42
UNIT GETLEN+5~, GETLEN+9*, GETLEN+13*, GETLEN+19
USERMAIL MESSAGE+10, MESSAGE+12, ANAK~, ANAK+19
UTCAPTTM TIMES+3!
VAL GTCNRNTP+3~, GTCNRNTP+5*, GTCNRNTP+6
VALUE INSTRING~, INSTRING+4
VATS VA2HL7TS~, VA2HL7TS+2
X DATALKUP+11~, DATALKUP+17*, DATALKUP+20*
XMDUZ APPMSG+1~, APPMSG+10*, APPMSG+11*, MESSAGE+1~, MESSAGE+14*, MESSAGE+15*
XMMG APPMSG+1~, MESSAGE+1~
XMROU APPMSG+1~, MESSAGE+1~
XMSTRIP APPMSG+1~, MESSAGE+1~
XMSUB APPMSG+1~, APPMSG+3*, MESSAGE+1~, MESSAGE+4*
XMTEXT APPMSG+1~, APPMSG+9*, MESSAGE+1~, MESSAGE+13*
XMY APPMSG+1~, MESSAGE+1~
XMY("G.GMRC H SRM SIU HL7 MESSAGES" , APPMSG+12*, MESSAGE+16*
XMYBLOB APPMSG+1~, MESSAGE+1~
XMZ APPMSG+1~, MESSAGE+1~
XOUT TIMES+3!, TIMES+6*, TIMES+11, TIMES+13
Y COPYMSG~, CHKMSG~, DATALKUP+11~, DATALKUP+17, DATALKUP+20, TIMES+3!, TIMES+16*
Y( COPYMSG+7*, COPYMSG+9*, CHKMSG+5, CHKMSG+6, CHKMSG+9, CHKMSG+14, CHKMSG+16, CHKMSG+17, CHKMSG+22, CHKMSG+24
, CHKMSG+25, CHKMSG+29
YR TIMES+6*, TIMES+9, DSTTEST~, DSTTEST+3, DSTTEST+6

Marked Items

Name Field # of Occurrence
$T(DSTTABLE+I DSTTEST+6
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items  | All