DPTLK7A ;OAK/MKO-MAS PATIENT LOOKUP ENTERPRISE SEARCH (cont) ;13 May 2020 1:13 PM
Source file <DPTLK7A.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 |
|---|---|---|
| ADDTF(DFN,IDS) | ;Add the Treating Facility returned from the Enterprise Search
|
|
| CHKSRCID(SRCID,FCLTY) | ;Strip leading and trailing 0s from 200ESR source IDs
|
|
| FORMATR(DGF,DGM,DG20NAME) | ; - merge MPI and user input (MPI authorative)
|
|
| GETCNTY(DGVAL) | ;
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(5 - [#5] | FORMATR+20, FORMATR+29, FORMATR+47 |
| ^HL(779.004 - [#779.004] | FORMATR+31, FORMATR+33, FORMATR+49 |
| Name | Line Occurrences |
|---|---|
| $$CHKSRCID | ADDTF+12 |
| $$GETCNTY | FORMATR+56 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AA | ADDTF+7~, ADDTF+14*, ADDTF+16 |
| CNT | CHKSRCID+1~, CHKSRCID+3*, CHKSRCID+4 |
| DFN | ADDTF~, ADDTF+8, ADDTF+16 |
| DG20NAME | FORMATR~, FORMATR+10*, FORMATR+12, FORMATR+61~, FORMATR+70*, FORMATR+72 |
| DG20NAME("DEGREE" | FORMATR+8*, FORMATR+68* |
| DG20NAME("FAMILY" | FORMATR+3*, FORMATR+63* |
| DG20NAME("GIVEN" | FORMATR+4*, FORMATR+64* |
| DG20NAME("MIDDLE" | FORMATR+5*, FORMATR+65* |
| DG20NAME("PREFIX" | FORMATR+6*, FORMATR+66* |
| DG20NAME("SUFFIX" | FORMATR+7*, FORMATR+67* |
| DGCNTY | FORMATR+56~*, FORMATR+57, GETCNTY+1~*, GETCNTY+4*, GETCNTY+5 |
| DGF | FORMATR~ |
| DGF( | FORMATR+13*, FORMATR+14*, FORMATR+15*, FORMATR+16*, FORMATR+17*, FORMATR+18*, FORMATR+19*, FORMATR+21*, FORMATR+23*, FORMATR+24* , FORMATR+25*, FORMATR+26*, FORMATR+27*, FORMATR+30*, FORMATR+32*, FORMATR+34*, FORMATR+35*, FORMATR+36*, FORMATR+37*, FORMATR+38* , FORMATR+40*, FORMATR+41*, FORMATR+43*, FORMATR+44*, FORMATR+45*, FORMATR+46*, FORMATR+48*, FORMATR+50*, FORMATR+51*, FORMATR+52* , FORMATR+53*, FORMATR+55, FORMATR+56, FORMATR+57*, FORMATR+78*, FORMATR+79! |
| DGF("ALIAS" | FORMATR+73*, FORMATR+74* |
| DGF("ICN" | FORMATR+75* |
| DGI | FORMATR+54~*, FORMATR+55, FORMATR+56, FORMATR+57 |
| DGM | FORMATR~ |
| DGM( | FORMATR+3, FORMATR+4, FORMATR+5, FORMATR+6, FORMATR+7, FORMATR+8, FORMATR+14, FORMATR+15, FORMATR+16, FORMATR+17 , FORMATR+18, FORMATR+19, FORMATR+20, FORMATR+23, FORMATR+24, FORMATR+25, FORMATR+26, FORMATR+27, FORMATR+29, FORMATR+31 , FORMATR+33, FORMATR+35, FORMATR+36, FORMATR+37, FORMATR+38, FORMATR+40, FORMATR+41, FORMATR+43, FORMATR+44, FORMATR+45 , FORMATR+46, FORMATR+47, FORMATR+49, FORMATR+51, FORMATR+52, FORMATR+53, FORMATR+60, FORMATR+62, FORMATR+63, FORMATR+64 , FORMATR+65, FORMATR+66, FORMATR+67, FORMATR+68, FORMATR+74, FORMATR+75 |
| DGM(0 | FORMATR+2 |
| DGVAL | GETCNTY~, GETCNTY+2 |
| DGX | FORMATR+1~, FORMATR+2*, FORMATR+3, FORMATR+4, FORMATR+5, FORMATR+6, FORMATR+7, FORMATR+8, FORMATR+14, FORMATR+15 , FORMATR+16, FORMATR+17, FORMATR+18, FORMATR+19, FORMATR+20, FORMATR+23, FORMATR+24, FORMATR+25, FORMATR+26, FORMATR+27 , FORMATR+29, FORMATR+31, FORMATR+33, FORMATR+35, FORMATR+36, FORMATR+37, FORMATR+38, FORMATR+40, FORMATR+41, FORMATR+43 , FORMATR+44, FORMATR+45, FORMATR+46, FORMATR+47, FORMATR+49, FORMATR+51, FORMATR+52, FORMATR+53, FORMATR+60, FORMATR+62 , FORMATR+63, FORMATR+64, FORMATR+65, FORMATR+66, FORMATR+67, FORMATR+68, FORMATR+74, FORMATR+75, GETCNTY+1~, GETCNTY+2 |
| DGX("FIPS COD | E" , GETCNTY+3, GETCNTY+4 |
| DGX("STATE PO | INTER" , GETCNTY+3, GETCNTY+4 |
| DGY | FORMATR+1~, FORMATR+12*, FORMATR+13, FORMATR+20*, FORMATR+21, FORMATR+29*, FORMATR+30, FORMATR+31*, FORMATR+32, FORMATR+33* , FORMATR+34, FORMATR+47*, FORMATR+48, FORMATR+49*, FORMATR+50, FORMATR+61~, FORMATR+72*, FORMATR+73 |
| DGZ | FORMATR+1~, FORMATR+60*, FORMATR+62, FORMATR+63, FORMATR+64, FORMATR+65, FORMATR+66, FORMATR+67, FORMATR+68, FORMATR+73 , FORMATR+74 |
| FCLTY | CHKSRCID~, CHKSRCID+2 |
| IDS | ADDTF~ |
| IDS( | ADDTF+9, ADDTF+10, ADDTF+11, ADDTF+12, ADDTF+13, ADDTF+14, ADDTF+15 |
| IDSTAT | ADDTF+7~, ADDTF+13*, ADDTF+16 |
| IDTYPE | ADDTF+7~, ADDTF+15*, ADDTF+16 |
| SEQ | ADDTF+7~, ADDTF+9*, ADDTF+10, ADDTF+11, ADDTF+12, ADDTF+13, ADDTF+14, ADDTF+15 |
| SRCID | ADDTF+7~, ADDTF+12*, ADDTF+16, CHKSRCID~, CHKSRCID+2, CHKSRCID+3, CHKSRCID+4*, CHKSRCID+5*, CHKSRCID+6 |
| STAIEN | ADDTF+7~, ADDTF+11*, ADDTF+16 |
| STANUM | ADDTF+7~, ADDTF+10*, ADDTF+12 |