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

Package: Scheduling

Routine: SDCCRSCU


Information

SDCCRSCU ;CCRA/LB,PB - Appointment Message Parsing Utilities;APR 4, 2019

Source Information

Source file <SDCCRSCU.m>

Call Graph

Call Graph

Call Graph Total: 5

Package Total Call Graph
Kernel 2 ($$FMTE,$$HTFM)^XLFDT  $$NAME^XUAF4  
VA FileMan 2 NOW^%DTC  $$GET1^DIQ  
Health Level Seven 1 $$FMDATE^HLFNC  

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
PARSE(FIELD,REP,COMP,SUBCOMP,ESCAPE,SEG,TO) ;
NEXTCHAR(SEG) ;
DESCAPE(VALUE,FIELD,COMP,SUBCOMP,REP,ESCAPE) ;
GETCODE(SEG,VALUE,FIELD,COMP,REP) ;
GET(SEG,FIELD,COMP,SUBCOMP,REP) ;
PARSEHDR(HDR) ;
ZB25 ;
ZB26 ;
PARSESEG(SEG,DATA,HL) ;Generic segment parser
INP ; set up the INP array for calling ARSET^SDECAR2 to update the RTC orders
; Need to add code to add the rtcparent to the HL7 message and to parse it out.

External References

Name Field # of Occurrence
NOW^%DTC INP+8
$$GET1^DIQ INP+19
$$FMDATE^HLFNC ZB25+28
$$FMTE^XLFDT INP+8
$$HTFM^XLFDT INP+8
$$NAME^XUAF4 INP+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGEN(27.11 - [#27.11] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] INP+18, INP+24
^GMR(123 - [#123] INP+4

Label References

Name Line Occurrences
$$DESCAPE PARSE+31, PARSE+34, PARSE+37, PARSE+40, ZB25+18, ZB25+20, ZB25+21, ZB25+22, ZB25+23, ZB25+25
ZB25+26, ZB25+27, ZB25+28, ZB25+29, ZB25+35, ZB25+36, ZB25+39, ZB25+40, ZB25+41, ZB25+44
ZB25+48, ZB25+52, ZB25+53, ZB25+54
$$GET GETCODE+10, GETCODE+11, GETCODE+12, GETCODE+13, GETCODE+14, GETCODE+15, GETCODE+16, GETCODE+17, GETCODE+18
$$NEXTCHAR PARSE+27

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CHAR PARSE+14~, PARSE+27*, PARSE+28, PARSE+30, PARSE+33, PARSE+36, PARSE+39, PARSE+42, DESCAPE+4~, DESCAPE+9*
, DESCAPE+10, DESCAPE+11, DESCAPE+12, DESCAPE+13, DESCAPE+14, DESCAPE+15
CMP PARSESEG+13~, PARSESEG+41*, PARSESEG+42, PARSESEG+45, PARSESEG+46
CMPVAL PARSESEG+14~, PARSESEG+42*, PARSESEG+43, PARSESEG+44, PARSESEG+46
COMP PARSE~, PARSE+18, PARSE+31, PARSE+34, PARSE+36, PARSE+37, PARSE+40, DESCAPE~, DESCAPE+12, GETCODE~
, GETCODE+5, GETCODE+10, GETCODE+11, GETCODE+12, GETCODE+13, GETCODE+14, GETCODE+15, GETCODE+16, GETCODE+17, GETCODE+18
, GET~, GET+21, GET+24*, GET+27
CONSID1 INP+3~, INP+4*
COUNTS PARSE+14~
COUNTS("COMP" PARSE+23*, PARSE+29, PARSE+31, PARSE+32*, PARSE+34, PARSE+35*, PARSE+37, PARSE+38*, PARSE+40
COUNTS("FIELD" PARSE+21*, PARSE+29, PARSE+31, PARSE+32*, PARSE+34, PARSE+37, PARSE+40
COUNTS("REP" PARSE+22*, PARSE+29, PARSE+31, PARSE+32*, PARSE+34, PARSE+35*, PARSE+37, PARSE+40
COUNTS("SUBCOMP" PARSE+24*, PARSE+29, PARSE+31, PARSE+32*, PARSE+34, PARSE+35*, PARSE+37, PARSE+38*, PARSE+40, PARSE+41*
CS ZB25+1~, ZB25+8*, ZB25+14, ZB25+18, ZB25+20, ZB25+21, ZB25+22, ZB25+23, ZB25+25, ZB25+26
ZB25+27, ZB25+28, ZB25+29, ZB25+33, ZB25+34, ZB25+35, ZB25+36, ZB25+38, ZB25+39, ZB25+40
ZB25+41, ZB25+42, ZB25+43, ZB25+44, ZB25+53, ZB25+54, PARSESEG+22~, PARSESEG+29*, PARSESEG+41, PARSESEG+42
DATA PARSESEG~, PARSESEG+27!
DATA( PARSESEG+45*, PARSESEG+46*, PARSESEG+47*, PARSESEG+48*
DATA(0 PARSESEG+34*
>> DUZ(2 INP+11
ES PARSESEG+25~, PARSESEG+31*
ESCAPE PARSE~, PARSE+31, PARSE+34, PARSE+37, PARSE+40, DESCAPE~, DESCAPE+3, DESCAPE+10, DESCAPE+15, ZB25+1~
ZB25+10*, ZB25+16
FIELD PARSE~, PARSE+16, PARSE+30, PARSE+31, PARSE+34, PARSE+37, PARSE+40, PARSE+44, DESCAPE~, DESCAPE+11
, GETCODE~, GETCODE+4, GETCODE+10, GETCODE+11, GETCODE+12, GETCODE+13, GETCODE+14, GETCODE+15, GETCODE+16, GETCODE+17
, GETCODE+18, GET~, GET+17, GET+18*, GET+21, GET+22, GET+27
FLD PARSESEG+15~, PARSESEG+37*, PARSESEG+38, PARSESEG+45, PARSESEG+46, PARSESEG+47, PARSESEG+48
FLDVAL PARSESEG+16~, PARSESEG+38*, PARSESEG+39, PARSESEG+40, PARSESEG+47, PARSESEG+48
FS ZB25+1~, ZB25+5*, ZB25+6, ZB25+7, ZB25+13, ZB25+18, ZB25+19, ZB25+23, ZB25+24, ZB25+28
ZB25+29, ZB25+32, ZB25+36, ZB25+37, ZB25+40, ZB25+41, ZB25+42, ZB25+43, ZB25+44, ZB25+47
ZB25+52, ZB25+53, ZB25+54, PARSESEG+21~, PARSESEG+28*, PARSESEG+34, PARSESEG+35, PARSESEG+37, PARSESEG+38
HDR PARSEHDR~
HDR("ACCEPT A CK TYPE" , ZB25+42*, ZB25+50*
HDR("APP ACK TYPE" , ZB25+43*, ZB25+51*
HDR("BATCH CO MMENT" , ZB25+52*, NTROL ID" , ZB25+53*
HDR("BATCH NA ME/ID/TYPE" , ZB25+48*
HDR("COMPONEN T SEPARATOR" , ZB25+14*
HDR("CONTINUA TION POINTER" , ZB25+41*
HDR("COUNTRY" ZB25+44*
HDR("DT/TM OF MESSAGE" , ZB25+28*
HDR("ENCODING CHARACTERS" , ZB25+7*, ZB25+8, ZB25+9, ZB25+10, ZB25+11
HDR("ESCAPE C HARACTER" , ZB25+16*
HDR("EVENT" ZB25+34*
HDR("FIELD SE PARATOR" , ZB25+13*
HDR("MESSAGE CONTROL ID" , ZB25+36*, STRUCTURE" , ZB25+35*, TYPE" , ZB25+33*
HDR("PROCESSI NG ID" , ZB25+38*, ZB25+49*, NG MODE" , ZB25+39*
HDR("RECEIVIN G APPLICATION" , ZB25+23*, G FACILITY" , ZB25+25*, ZB25+26*, ZB25+27*
HDR("REFERENC E BATCH CONTROL ID" , ZB25+54*
HDR("REPETITI ON SEPARATOR" , ZB25+15*
HDR("SECURITY" ZB25+29*
HDR("SEGMENT TYPE" , ZB25+4*, ZB25+31, ZB25+46
HDR("SENDING APPLICATION" , ZB25+18*, FACILITY" , ZB25+20*, ZB25+21*, ZB25+22*
HDR("SUBCOMPO NENT SEPARATOR" , ZB25+17*
HDR("VERSION" ZB25+40*
HDR(1 ZB25+2, ZB25+5, ZB25+7, ZB25+18, ZB25+19, ZB25+23, ZB25+24
HDR(2 ZB25+28, ZB25+29, ZB25+32, ZB25+36, ZB25+37, ZB25+40, ZB25+41, ZB25+42, ZB25+43, ZB25+44
ZB25+47, ZB25+52, ZB25+53, ZB25+54
HL PARSESEG~
HL("ECH" PARSESEG+29, PARSESEG+30, PARSESEG+31, PARSESEG+32
HL("FS" PARSESEG+28
I DESCAPE+4~, DESCAPE+8*
INP INP+5!
INP(1 INP+6*
INP(11 INP+16*
INP(12 INP+17*
INP(13 INP+19*
INP(14 INP+21*
INP(17 INP+22*
INP(19 INP+25*
INP(2 INP+7*, INP+24
INP(22 INP+26*
INP(23 INP+27*
INP(28 INP+28*
INP(3 INP+8*
INP(4 INP+11*
INP(5 INP+12*
INP(6 INP+13*
INP(8 INP+14*
INP(9 INP+15*
INTV INP+3~
LEN DESCAPE+4~, DESCAPE+7*, DESCAPE+8
NEWSTRNG DESCAPE+4~, DESCAPE+5*, DESCAPE+11*, DESCAPE+12*, DESCAPE+13*, DESCAPE+14*, DESCAPE+15*, DESCAPE+16*, DESCAPE+17
NODE3 INP+3~
NOW INP+8~*
NUMAPTS INP+3~
ORDATE INP+3~
ORDNUM INP+3~, INP+4*, INP+28
PCE INP+18*, INP+19, INP+29!
REP PARSE~, PARSE+17, PARSE+31, PARSE+33, PARSE+34, PARSE+37, PARSE+40, DESCAPE~, DESCAPE+14, GETCODE~
, GETCODE+9*, GETCODE+10, GETCODE+11, GETCODE+12, GETCODE+13, GETCODE+14, GETCODE+15, GETCODE+16, GETCODE+18, GET~
, GET+21, GET+26*, GET+27, ZB25+1~, ZB25+9*, ZB25+12, ZB25+15, PARSESEG+17~, PARSESEG+39*, PARSESEG+40
, PARSESEG+45, PARSESEG+46, PARSESEG+47
REPVAL PARSESEG+18~, PARSESEG+40*, PARSESEG+41, PARSESEG+42, PARSESEG+47
RET NEXTCHAR+4~, NEXTCHAR+6*, NEXTCHAR+7
RS PARSESEG+23~, PARSESEG+30*, PARSESEG+39, PARSESEG+40, PARSESEG+47
SCPERC INP+23*, INP+24*, INP+25, INP+29!
>> SDAPTYP INP+4
>> SDCL INP+13
>> SDDDT INP+4*, INP+16
>> SDDFN INP+7, INP+18
>> SDECNOTE INP+17
SEG PARSE~, PARSE+20, PARSE+27, NEXTCHAR~, GETCODE~, GETCODE+10, GETCODE+11, GETCODE+12, GETCODE+13, GETCODE+14
, GETCODE+15, GETCODE+16, GETCODE+17, GETCODE+18, GET~, PARSESEG~, PARSESEG+34, PARSESEG+35*, PARSESEG+37, PARSESEG+38
SEG( NEXTCHAR+6, NEXTCHAR+8, NEXTCHAR+9, GET+27
SEG("CHAR" PARSE+26*, NEXTCHAR+5*, NEXTCHAR+6, NEXTCHAR+9*
SEG("FIELD SE PARATOR" , GET+21
SEG("LINE" PARSE+26*, NEXTCHAR+3, NEXTCHAR+6, NEXTCHAR+8*, NEXTCHAR+9
SEG("SEGMENT TYPE" , GET+17, GET+21, GET+22
SEG(0 PARSE+26
SET DESCAPE+4~, DESCAPE+6*, DESCAPE+10
SS PARSESEG+24~, PARSESEG+32*, PARSESEG+43, PARSESEG+44
SUB GETCODE+3~, GETCODE+6*, GETCODE+10, GETCODE+11, GETCODE+12, GETCODE+13, GETCODE+14, GETCODE+15, GETCODE+16, GETCODE+18
, PARSESEG+19~, PARSESEG+43*, PARSESEG+44, PARSESEG+45
SUBCOMP PARSE~, PARSE+19, PARSE+31, PARSE+34, PARSE+37, PARSE+39, PARSE+40, DESCAPE~, DESCAPE+13, GET~
, GET+21, GET+25*, GET+27, ZB25+1~, ZB25+11*, ZB25+17
SUBLEN DESCAPE+4~, DESCAPE+5*, DESCAPE+8*, DESCAPE+11*, DESCAPE+12*, DESCAPE+13*, DESCAPE+14*, DESCAPE+15*, DESCAPE+16*
SUBSTRNG DESCAPE+4~, DESCAPE+5*, DESCAPE+8*, DESCAPE+9, DESCAPE+10, DESCAPE+11*, DESCAPE+12*, DESCAPE+13*, DESCAPE+14*, DESCAPE+15*
, DESCAPE+16*, DESCAPE+17
SUBVAL PARSESEG+20~, PARSESEG+44*, PARSESEG+45
TO PARSE~, PARSE+15!
TO( PARSE+29*, PARSE+31*, PARSE+34*, PARSE+37*, PARSE+40*
TO("FIELD SEP ARATOR" , PARSE+44*
TO("SEGMENT T YPE" , PARSE+43*, PARSE+44
TO(0 PARSE+43*
U INP+18
VALUE PARSE+14~, PARSE+25*, PARSE+29, PARSE+31*, PARSE+34*, PARSE+37*, PARSE+40*, PARSE+42*, DESCAPE~, DESCAPE+3
, DESCAPE+7, DESCAPE+8, GETCODE~, ZB25+1~, ZB25+2*, ZB25+3, ZB25+4, ZB25+19*, ZB25+20, ZB25+21
ZB25+22, ZB25+24*, ZB25+25, ZB25+26, ZB25+27, ZB25+32*, ZB25+33, ZB25+34, ZB25+35, ZB25+37*
ZB25+38, ZB25+39, ZB25+47*, ZB25+48, ZB25+49, ZB25+50, ZB25+51
VALUE("ALTERN ATE ID" , GETCODE+13*, ATE SYSTEM VERSION" , GETCODE+17*, ATE SYSTEM" , GETCODE+15*, ATE TEXT" , GETCODE+14*
VALUE("ID" GETCODE+10*
VALUE("ORIGIN AL TEXT" , GETCODE+18*
VALUE("SYSTEM VERSION" , GETCODE+16*
VALUE("SYSTEM" GETCODE+12*
VALUE("TEXT" GETCODE+11*
VAR GETCODE+3~, GETCODE+6*, GETCODE+8*, GETCODE+10, GETCODE+11, GETCODE+12, GETCODE+13, GETCODE+14, GETCODE+15, GETCODE+16
, GETCODE+17, GETCODE+18
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All