TIUCCHL7UT ; CCRA/PB - TIUCCRA HSRM Msg Processing; November 3, 2020
Source file <TIUCCHL7UT.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 2 | ($$FMADD,$$FMTHL7,$$NOW)^XLFDT $$KSP^XUPARAM |
Health Level Seven | 1 | GENACK^HLMA1 |
Scheduling | 1 | $$INACTIVE^SDEC32 |
VA FileMan | 1 | $$GET1^DIQ |
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 |
---|---|---|
Text Integration Utility | 4 | TIUCCRHL7P1 TIUCCRHL7P2 TIUCCRHL7P3 TIUCCRHL7P4 |
Name | Comments | DBIA/ICR reference |
---|---|---|
TIUC(X) | ; Check each segment of the CCRA TIU notes for HL7 control characters
|
|
ANAK(MSGID,MSGTEXT,CONID) | ; Application Error
|
|
ERR(TIUSEG,TIUP,TIUNUM,TIUTXT) | ;
|
|
ACK(MSGID,MSGTEXT,CONID) | ; Application Error
|
|
TIULKUP(CONSULTID,TITLE,NOTEDATE,NOTENUM) | ;
|
|
CHECKLST(SERVICENAME) | ;
; lookup matching clinic for imaging comm care consults |
|
LIST | ; List of Imaging Community Care consult titles and clinics
|
FileNo | Call Tags |
---|---|
^GMR(123 - [#123] | GET1^DIQ |
^DPT - [#2] | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^SC - [#44] | CHECKLST+26, CHECKLST+28, CHECKLST+29 |
^SC("B" | CHECKLST+13, CHECKLST+17, CHECKLST+22, CHECKLST+28, CHECKLST+29 |
^TIU(8925 - [#8925] | TIULKUP+8, TIULKUP+9, TIULKUP+13, TIULKUP+15, TIULKUP+16 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> ABORT | CHECKLST+26* |
CCPNUMBER | TIULKUP+7~, TIULKUP+16*, TIULKUP+17 |
CLINIC | 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+28*, CHECKLST+29*, CHECKLST+30 |
CONID | ANAK~, ANAK+9, ANAK+10, ANAK+11, ANAK+20, ACK~, ACK+9, ACK+10, ACK+11 |
CONPAT | ANAK+1~, ANAK+10*, ANAK+11, ANAK+12, ANAK+14, ACK+1~, ACK+10*, ACK+11, ACK+12, ACK+14 |
CONSULT | TIULKUP+10~, TIULKUP+15*, TIULKUP+17 |
CONSULTID | TIULKUP~, TIULKUP+6, TIULKUP+17, CHECKLST+4 |
CONTITLE | CHECKLST+3~, CHECKLST+10*, CHECKLST+17 |
CS | ANAK+1~, ANAK+4*, ACK+1~, ACK+4* |
>> DFN | ANAK+12, ACK+12 |
DIVID | CHECKLST+3~, CHECKLST+4*, CHECKLST+28 |
EID | ANAK+1~, ANAK+16*, ANAK+21, ACK+1~, ACK+16*, ACK+21 |
EIDS | ANAK+1~, ANAK+17*, ANAK+21, ACK+1~, ACK+17*, ACK+21 |
>> ERR1 | CHECKLST+26* |
ES | ANAK+1~, ANAK+6*, ACK+1~, ACK+6* |
FS | ANAK+1~, ACK+1~ |
>> HL("ECH" | ANAK+3*, ANAK+4, ANAK+5, ANAK+6, ANAK+7, ACK+3*, ACK+4, ACK+5, ACK+6, ACK+7 |
>> HL("EID" | ANAK+16, ACK+16 |
>> HL("EIDS" | ANAK+17, ACK+17 |
>> HL("FS" | ANAK+3*, ANAK+20, ACK+3*, ACK+20 |
>> HL("MID" | ANAK+18, ACK+18 |
>> HLA("HLA" | ANAK+20*, ACK+20* |
>> HLMTIENS | ANAK+21, ACK+21 |
I | CHECKLST+3~, CHECKLST+9*, CHECKLST+15* |
ICN | ANAK+1~, ANAK+14*, ANAK+15*, ANAK+20, ACK+1~, ACK+14*, ACK+15* |
IEN | TIULKUP+7~, TIULKUP+8*, TIULKUP+9, TIULKUP+13, TIULKUP+15, TIULKUP+16, TIULKUP+17 |
INACT | CHECKLST+25~*, CHECKLST+26, CHECKLST+28, CHECKLST+29 |
LEN | CHECKLST+3~, CHECKLST+8*, CHECKLST+9 |
LENG | CHECKLST+19~, CHECKLST+20*, CHECKLST+21*, CHECKLST+22 |
MSGID | ANAK~, ANAK+20, ACK~, ACK+20 |
MSGN | ANAK+1~, ANAK+18*, ACK+1~, ACK+18* |
MSGTEXT | ANAK~, ANAK+8, ANAK+20, ACK~, ACK+8 |
>> NAKMSG | CHECKLST+26* |
NOTEDATE | TIULKUP~, TIULKUP+6*, TIULKUP+8* |
NOTENUM | TIULKUP~, TIULKUP+17 |
PATNAME | ANAK+1~, ANAK+11*, ANAK+12*, ACK+1~, ACK+11*, ACK+12* |
RES | ANAK+1~, ANAK+21, ACK+1~, ACK+21 |
RS | ANAK+1~, ANAK+5*, ACK+1~, ACK+5* |
RSNAME | CHECKLST+3~, CHECKLST+11*, CHECKLST+12* |
SERVICENAME | 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+28*, CHECKLST+29* |
SERVICENAME1 | CHECKLST+19~, CHECKLST+22* |
SERVICENAMEX | CHECKLST+3~, CHECKLST+23*, CHECKLST+28*, CHECKLST+29* |
SITE | ANAK+1~, ANAK+13*, ANAK+20, ACK+1~, ACK+13* |
SS | ANAK+1~, ANAK+7*, ACK+1~, ACK+7* |
TITLE | TIULKUP~, TIULKUP+9 |
>> TIU("EC" | ERR+1*, ERR+2 |
>> TIU("PTNAME" | ANAK+20 |
>> TIUCS | ERR+2 |
>> TIUEMAIL | ANAK+20 |
>> TIUFS | ERR+2 |
TIUIEN | TIULKUP+7~ |
TIUIEN1 | TIULKUP+7~, TIULKUP+8*, TIULKUP+11*, TIULKUP+14, TIULKUP+17*, TIULKUP+18, TIULKUP+20 |
>> TIUNAME | ERR+2 |
TIUNUM | ERR~, ERR+2 |
TIUP | ERR~, ERR+2 |
TIUSEG | ERR~, ERR+2 |
TIUTXT | ERR~, ERR+2 |
X | TIUC~, TIUC+1, TIUC+2*, TIUC+3*, TIUC+4*, TIUC+5*, TIUC+6*, TIUC+7*, TIUC+8*, TIUC+9* , TIUC+10*, TIUC+11*, TIUC+12*, TIUC+13*, TIUC+14*, TIUC+15 |
XC | CHECKLST+3~, CHECKLST+8*, CHECKLST+9*, CHECKLST+11, CHECKLST+12 |
>> XX | TIULKUP+8* |
YY | TIULKUP+12!, TIULKUP+13*, TIULKUP+15, TIULKUP+16 |
Name | Field # of Occurrence |
---|---|
$T(LIST+I | CHECKLST+17 |