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 |
| VA FileMan | 2 | ^%DT $$GET1^DIQ |
| Health Level Seven | 1 | GENACK^HLMA1 |
| Scheduling | 1 | $$INACTIVE^SDEC32 |
| 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+12, TIULKUP+13, TIULKUP+14, TIULKUP+19, TIULKUP+22, TIULKUP+23, TIULKUP+24 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ABORT | CHECKLST+26* |
| CCPNUMBER | TIULKUP+10~, TIULKUP+23*, TIULKUP+24*, TIULKUP+25 |
| 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 |
| >> CNT | TIULKUP+11* |
| 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+15~, TIULKUP+22*, TIULKUP+25 |
| CONSULTID | TIULKUP~, TIULKUP+8, TIULKUP+25, CHECKLST+4 |
| CONTITLE | CHECKLST+3~, CHECKLST+10*, CHECKLST+17 |
| CS | ANAK+1~, ANAK+4*, ACK+1~, ACK+4* |
| >> DFN | ANAK+12, ACK+12, TIULKUP+13 |
| 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+10~, TIULKUP+12*, TIULKUP+13, TIULKUP+14, TIULKUP+19, TIULKUP+22, TIULKUP+23, TIULKUP+24, TIULKUP+25 |
| 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*, TIULKUP+9*, TIULKUP+12* |
| NOTENUM | TIULKUP~, TIULKUP+25 |
| 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+14 |
| >> TIU("EC" | ERR+1*, ERR+2 |
| >> TIU("PTNAME" | ANAK+20 |
| >> TIUCS | ERR+2 |
| >> TIUEMAIL | ANAK+20 |
| >> TIUFS | ERR+2 |
| TIUIEN | TIULKUP+10~ |
| TIUIEN1 | TIULKUP+10~, TIULKUP+12*, TIULKUP+16, TIULKUP+17*, TIULKUP+20, TIULKUP+25*, TIULKUP+29 |
| >> 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, TIULKUP+6~* |
| XC | CHECKLST+3~, CHECKLST+8*, CHECKLST+9*, CHECKLST+11, CHECKLST+12 |
| >> XX | TIULKUP+12* |
| Y | TIULKUP+6~ |
| YY | TIULKUP+18!, TIULKUP+19*, TIULKUP+22, TIULKUP+23, TIULKUP+24 |
| Name | Field # of Occurrence |
|---|---|
| $T(LIST+I | CHECKLST+17 |