DGENUPL2 ;ALB/CJM,RTK,TMK,ISA/KWP/RMM/CKN,EG,ERC,PWC,TDM,TEJ,KUM,SJD - PROCESS INCOMING (Z11 EVENT TYPE) HL7 MESSAGES ; 23 Nov 2019 1:07 PM
Source file <DGENUPL2.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 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PID | ;
|
|
| ZPD | ;
|
|
| ZIE | ;
|
|
| ZIO | ;New segment - DG*5.3*653
|
|
| ZEL(COUNT) | ;
|
|
| ZEN | ;
|
|
| ZMT | ;
|
|
| ZCD | ;
|
|
| SKIP | ;
|
|
| ZSP | ;
|
|
| ZMH | ;Purple Heart, OEFOIE, POW
|
|
| ZRD | ;
|
|
| OBX | ;
|
|
| DCNEW(DGNEWDX,DGNEWNM) | ;DG*5.3*1138 - New tag to set entry into Disability Condition File (#31)
; Creates new entry when DX code is not defined |
|
| DCLOOKUP(DGCODE,DGNAME) | ;
; Description: Returns the ien of a Disability Condition (file #31) based on the DGCODE and DGNAME |
|
| REGCHECK(DFN) | ;
; Description: passes patient through the registration consistency checker |
|
| PEND(DFN,DGSTAT) | ;
|
| Name | Field # of Occurrence |
|---|---|
| $$ADD^DGENDBS | DCNEW+15 |
| ADDERROR^DGENUPL | ZIE+3, ZEN+4, ZEN+15, ZEN+18, ZEN+23, ZEN+27, ZEN+38, ZEN+42, ZEN+51, ZEN+60 , ZMT+1, ZMT+4, ZCD+6, ZCD+9, ZCD+12, ZCD+18, ZCD+22, ZCD+26, SKIP+17, ZSP+3 , ZSP+7, ZSP+10, ZSP+20, ZSP+23, ZSP+26, ZSP+29, ZSP+32, ZSP+35, ZRD+14, ZRD+17 , ZRD+19 |
| $$CONVERT^DGENUPL1 | ZIE+1, ZIE+4, ZIE+5, ZEN+2, ZEN+5, ZEN+6, ZEN+11, ZEN+12, ZEN+13, ZEN+16 , ZEN+20, ZEN+21, ZEN+25, ZEN+36, ZEN+40, ZEN+41, ZEN+44, ZEN+45, ZEN+46, ZEN+49 , ZEN+52, ZMT+2, ZCD+3, ZCD+4, ZCD+7, ZCD+10, ZCD+13, ZCD+14, ZCD+16, ZCD+20 , ZCD+24, SKIP+6, SKIP+9, SKIP+10, SKIP+11, SKIP+13, SKIP+14, SKIP+15, ZSP+1, ZSP+4 , ZSP+5, ZSP+8, ZSP+18, ZSP+21, ZSP+24, ZSP+27, ZSP+30, ZSP+33, ZRD+10, ZRD+11 , ZRD+12, ZRD+15 |
| ZMH^DGENUPL3 | ZMH+1 |
| OBX^DGENUPLA | OBX+1 |
| ZEL^DGENUPLA | ZEL+1 |
| ZIO^DGENUPLA | ZIO+1 |
| ZPD^DGENUPLA | ZPD+1 |
| ^DGRPC | REGCHECK+8 |
| $$UPPER^DGUTL | DCNEW+12 |
| $$FIND1^DIC | ZEN+47 |
| CHK^DIE | ZEN+55 |
| GETS^DIQ | PEND+7 |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GETS^DIQ |
| ^DGEN(27.11 - [#27.11] | CHK^DIE |
| ^DG(408.43 - [#408.43] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(31 - [#31] | ZRD+8, DCLOOKUP+12, DCLOOKUP+13, DCLOOKUP+15 |
| ^DIC(8 - [#8] | PEND+11 |
| ^DPT - [#2] | PEND+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| COND | ZRD+1~, ZRD+9*, ZRD+18 |
| COUNT | ZEL~, ZEL+1, ZRD+1~, ZRD+7*, ZRD+9, ZRD+10, ZRD+11, ZRD+12, ZRD+15 |
| D3 | SKIP+3~, SKIP+4*, SKIP+5, SKIP+6 |
| DFN | REGCHECK~, PEND~, PEND+2, PEND+7, PEND+9, PEND+16, PEND+17, PEND+18 |
| DGADD | DCNEW+9~, DCNEW+15* |
| DGARR | PEND+1~ |
| DGARR(2 | PEND+9, PEND+16, PEND+17, PEND+18 |
| DGCD | REGCHECK+5~ |
| >> DGCDIS("BY" | ZCD+3* |
| >> DGCDIS("COND" | SKIP+11*, SKIP+16 |
| >> DGCDIS("DATE" | ZCD+4* |
| >> DGCDIS("DESCR" | SKIP+6*, SKIP+8, SKIP+16 |
| >> DGCDIS("DIAG" | SKIP+9*, SKIP+16 |
| >> DGCDIS("DTFACIRV" | ZCD+20* |
| >> DGCDIS("DTVETNOT" | ZCD+24* |
| >> DGCDIS("EXT" | SKIP+13* |
| >> DGCDIS("FACDET" | ZCD+7* |
| >> DGCDIS("METDET" | ZCD+13* |
| >> DGCDIS("PERM" | SKIP+15* |
| >> DGCDIS("PROC" | SKIP+10*, SKIP+16 |
| >> DGCDIS("REVDTE" | ZCD+10* |
| >> DGCDIS("SCORE" | SKIP+14* |
| >> DGCDIS("VCD" | ZCD+14*, SKIP+16 |
| >> DGCDIS("VETREQDT" | ZCD+16* |
| DGCHK | REGCHECK+5~ |
| DGCODE | DCLOOKUP~, DCLOOKUP+9, DCLOOKUP+12, DCLOOKUP+14, DCLOOKUP+15 |
| DGDATA | DCNEW+9~, DCNEW+15 |
| DGDATA( | DCNEW+14* |
| DGDATA(2 | DCNEW+13* |
| DGDAY | REGCHECK+5~ |
| DGEC | PEND+1~, PEND+9*, PEND+10, PEND+11*, PEND+12, PEND+13, PEND+14 |
| DGEDCN | REGCHECK+5~, REGCHECK+7* |
| >> DGELG("EFFDT" | ZSP+8*, ZSP+10, ZSP+12* |
| >> DGELG("MTSTA" | ZMT+2* |
| >> DGELG("P&T" | ZSP+18* |
| >> DGELG("P&TDT" | ZSP+27* |
| >> DGELG("POS" | ZSP+5* |
| >> DGELG("RATEDIS" | ZRD+7, ZRD+9*, ZRD+10*, ZRD+11*, ZRD+12*, ZRD+15* |
| >> DGELG("SC" | ZSP+1*, ZSP+16 |
| >> DGELG("SCAWDATE" | ZSP+24* |
| >> DGELG("SCPER" | ZSP+4*, ZSP+16* |
| >> DGELG("UNEMPLOY" | ZSP+21* |
| >> DGENR( | ZEN+66* |
| >> DGENR("APP" | ZEN+25*, ZEN+29, ZEN+33*, ZEN+34*, ZEN+61* |
| >> DGENR("DATE" | ZEN+2*, ZEN+33 |
| >> DGENR("EFFDATE" | ZEN+21*, ZEN+34, ZEN+62* |
| >> DGENR("END" | ZEN+36* |
| >> DGENR("FACREC" | ZEN+13* |
| >> DGENR("PRIORITY" | ZEN+20* |
| >> DGENR("PTAPPLIED" | ZEN+45* |
| >> DGENR("RCODE" | ZEN+44* |
| >> DGENR("REASON" | ZEN+11* |
| >> DGENR("REGDATE" | ZEN+49*, ZEN+60, ZEN+61, ZEN+62 |
| >> DGENR("REGREA" | ZEN+46*, ZEN+47*, ZEN+48* |
| >> DGENR("REGSRC" | ZEN+52*, ZEN+53, ZEN+55, ZEN+56* |
| >> DGENR("REMARKS" | ZEN+12* |
| >> DGENR("SOURCE" | ZEN+5*, ZEN+63* |
| >> DGENR("STATUS" | ZEN+6*, ZEN+59 |
| >> DGENR("SUBGRP" | ZEN+40* |
| DGER | REGCHECK+5~ |
| DGERR | PEND+1~, PEND+8 |
| DGLST | REGCHECK+5~ |
| DGNAME | DCLOOKUP~, DCLOOKUP+14 |
| DGNCK | REGCHECK+5~ |
| DGNEWDX | DCNEW~, DCNEW+10, DCNEW+13 |
| DGNEWNM | DCNEW~, DCNEW+11*, DCNEW+12*, DCNEW+14 |
| >> DGOAPP | ZEN+24*, ZEN+29*, ZEN+30* |
| >> DGPAT("DENTC2DT" | ZSP+33* |
| >> DGPAT("DENTC2IN" | ZSP+30* |
| >> DGPAT("INELDATE" | ZIE+1* |
| >> DGPAT("INELDEC" | ZIE+5* |
| >> DGPAT("INELREA" | ZIE+4* |
| >> DGPAT("PFSRC" | ZEN+41* |
| >> DGPAT("PREFAC" | ZEN+16* |
| >> DGPAT("SSN" | PID+1*, ZIE+3, ZEN+4, ZEN+15, ZEN+18, ZEN+23, ZEN+27, ZEN+38, ZEN+42, ZEN+51 , ZEN+60, ZMT+1, ZMT+4, ZCD+6, ZCD+9, ZCD+12, ZCD+18, ZCD+22, ZCD+26, SKIP+17 , ZSP+3, ZSP+7, ZSP+20, ZSP+23, ZSP+26, ZSP+29, ZSP+32, ZSP+35, ZRD+14, ZRD+17 , ZRD+19 |
| DGRES | ZEN+1~, ZEN+54*, ZEN+55, ZEN+56 |
| DGRPCOLD | REGCHECK+5~ |
| DGSC | REGCHECK+5~ |
| DGSTAT | PEND~, PEND+3, PEND+4, PEND+5*, PEND+6 |
| DGTYPE | REGCHECK+5~ |
| DGVT | REGCHECK+5~ |
| DGX | PEND+1~, PEND+14, PEND+15*, PEND+16*, PEND+17*, PEND+18* |
| DXCODE | ZRD+1~, ZRD+2*, ZRD+3*, ZRD+5, ZRD+8, ZRD+9 |
| >> ERRCOUNT | ZIE+3, ZEN+4, ZEN+15, ZEN+18, ZEN+23, ZEN+27, ZEN+38, ZEN+42, ZEN+51, ZEN+60 , ZMT+1, ZMT+4, ZCD+6, ZCD+9, ZCD+12, ZCD+18, ZCD+22, ZCD+26, SKIP+17, ZSP+3 , ZSP+7, ZSP+10, ZSP+20, ZSP+23, ZSP+26, ZSP+29, ZSP+32, ZSP+35, ZRD+14, ZRD+17 , ZRD+19 |
| >> ERROR | ZIE+1, ZIE+2, ZEN+2, ZEN+3, ZEN+8*, ZEN+13, ZEN+14, ZEN+16, ZEN+17, ZEN+21 , ZEN+22, ZEN+25, ZEN+26, ZEN+36, ZEN+37, ZEN+49, ZEN+50, ZMT+1*, ZMT+2, ZMT+3 , ZCD+4, ZCD+5, ZCD+7, ZCD+8, ZCD+10, ZCD+11, ZCD+16, ZCD+17, ZCD+20, ZCD+21 , ZCD+24, ZCD+25, SKIP+17*, ZSP+1, ZSP+2, ZSP+5, ZSP+6, ZSP+8, ZSP+9, ZSP+18 , ZSP+19, ZSP+21, ZSP+22, ZSP+24, ZSP+25, ZSP+27, ZSP+28, ZSP+30, ZSP+31, ZSP+33 , ZSP+34, ZRD+12, ZRD+13, ZRD+15, ZRD+16, ZRD+20* |
| FOUND | DCLOOKUP+10~, DCLOOKUP+11*, DCLOOKUP+12, DCLOOKUP+14*, DCLOOKUP+15 |
| >> HLECH | ZCD+13, SKIP+13, SKIP+14, SKIP+15, ZRD+2, ZRD+4 |
| I | SKIP+3~, SKIP+5*, SKIP+6 |
| IEN | DCLOOKUP+10~, DCLOOKUP+11*, DCLOOKUP+12*, DCLOOKUP+13, DCLOOKUP+15*, DCLOOKUP+16 |
| >> MSGID | ZIE+3, ZEN+4, ZEN+15, ZEN+18, ZEN+23, ZEN+27, ZEN+38, ZEN+42, ZEN+51, ZEN+60 , ZMT+1, ZMT+4, ZCD+6, ZCD+9, ZCD+12, ZCD+18, ZCD+22, ZCD+26, SKIP+17, ZSP+3 , ZSP+7, ZSP+10, ZSP+20, ZSP+23, ZSP+26, ZSP+29, ZSP+32, ZSP+35, ZRD+14, ZRD+17 , ZRD+19 |
| NAME | ZRD+1~, ZRD+4*, ZRD+8, ZRD+9 |
| NODE | DCLOOKUP+10~, DCLOOKUP+13*, DCLOOKUP+14 |
| PFSRC | ZEN+41~*, ZEN+42 |
| >> SEG(1 | ZMT+1, ZCD+2, SKIP+9, SKIP+10, SKIP+11, SKIP+13, SKIP+14, SKIP+15 |
| >> SEG(10 | ZEN+21, SKIP+11, ZSP+27 |
| >> SEG(11 | ZEN+25, SKIP+14, ZSP+8 |
| >> SEG(12 | ZEN+36, ZCD+14, ZSP+30, ZRD+11 |
| >> SEG(13 | ZEN+40, SKIP+15, ZSP+33, ZRD+12 |
| >> SEG(14 | ZEN+41, ZCD+16, ZRD+15 |
| >> SEG(15 | ZEN+44, ZCD+20 |
| >> SEG(16 | ZEN+45, ZCD+24 |
| >> SEG(17 | ZEN+46, SKIP+5, SKIP+6 |
| >> SEG(18 | ZEN+49 |
| >> SEG(19 | PID+1, ZEN+52 |
| >> SEG(2 | ZIE+1, ZEN+2, ZCD+10, ZSP+1, ZRD+2, ZRD+4 |
| >> SEG(3 | ZIE+4, ZEN+5, ZMT+2, ZCD+3, ZSP+4, ZRD+10 |
| >> SEG(4 | ZIE+5, ZEN+6, ZCD+7, ZCD+9, ZSP+5 |
| >> SEG(5 | ZEN+11, ZCD+4 |
| >> SEG(6 | ZEN+12, ZCD+13, ZSP+18 |
| >> SEG(7 | ZEN+13, ZEN+15, SKIP+9, ZSP+21 |
| >> SEG(8 | ZEN+16, ZEN+18, SKIP+10, ZSP+24 |
| >> SEG(9 | ZEN+20, SKIP+13 |
| SUB | ZEN+1~, ZEN+65*, ZEN+66* |
| U | PEND+2, PEND+11 |
| VA | REGCHECK+5~ |
| X | REGCHECK+5~ |
