SDCCRSCU ;CCRA/LB,PB - Appointment Message Parsing Utilities;APR 4, 2019
Source file <SDCCRSCU.m>
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Scheduling | 2 | SDCCRCOR SDCCRSEN |
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. |
FileNo | Call Tags |
---|---|
^DGEN(27.11 - [#27.11] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DPT - [#2] | INP+18, INP+24 |
^GMR(123 - [#123] | INP+4 |
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 |
>> | 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 |