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+19, FORMATR+28, FORMATR+46 |
| ^HL(779.004 - [#779.004] | FORMATR+30, FORMATR+32, FORMATR+48 |
| Name | Line Occurrences |
|---|---|
| $$CHKSRCID | ADDTF+12 |
| $$GETCNTY | FORMATR+55 |
| >> | 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+60~, FORMATR+69*, FORMATR+71 |
| DG20NAME("DEGREE" | FORMATR+8*, FORMATR+67* |
| DG20NAME("FAMILY" | FORMATR+3*, FORMATR+62* |
| DG20NAME("GIVEN" | FORMATR+4*, FORMATR+63* |
| DG20NAME("MIDDLE" | FORMATR+5*, FORMATR+64* |
| DG20NAME("PREFIX" | FORMATR+6*, FORMATR+65* |
| DG20NAME("SUFFIX" | FORMATR+7*, FORMATR+66* |
| DGCNTY | FORMATR+55~*, FORMATR+56, GETCNTY+1~*, GETCNTY+4*, GETCNTY+5 |
| DGF | FORMATR~ |
| DGF( | FORMATR+13*, FORMATR+14*, FORMATR+15*, FORMATR+16*, FORMATR+17*, FORMATR+18*, FORMATR+20*, FORMATR+22*, FORMATR+23*, FORMATR+24* , FORMATR+25*, FORMATR+26*, FORMATR+29*, FORMATR+31*, FORMATR+33*, FORMATR+34*, FORMATR+35*, FORMATR+36*, FORMATR+37*, FORMATR+39* , FORMATR+40*, FORMATR+42*, FORMATR+43*, FORMATR+44*, FORMATR+45*, FORMATR+47*, FORMATR+49*, FORMATR+50*, FORMATR+51*, FORMATR+52* , FORMATR+54, FORMATR+55, FORMATR+56*, FORMATR+77*, FORMATR+78! |
| DGF("ALIAS" | FORMATR+72*, FORMATR+73* |
| DGF("ICN" | FORMATR+74* |
| DGI | FORMATR+53~*, FORMATR+54, FORMATR+55, FORMATR+56 |
| 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+22, FORMATR+23, FORMATR+24, FORMATR+25, FORMATR+26, FORMATR+28, FORMATR+30, FORMATR+32 , FORMATR+34, FORMATR+35, FORMATR+36, FORMATR+37, FORMATR+39, FORMATR+40, FORMATR+42, FORMATR+43, FORMATR+44, FORMATR+45 , FORMATR+46, FORMATR+48, FORMATR+50, FORMATR+51, FORMATR+52, FORMATR+59, FORMATR+61, FORMATR+62, FORMATR+63, FORMATR+64 , FORMATR+65, FORMATR+66, FORMATR+67, FORMATR+73, FORMATR+74 |
| 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+22, FORMATR+23, FORMATR+24, FORMATR+25, FORMATR+26, FORMATR+28 , FORMATR+30, FORMATR+32, FORMATR+34, FORMATR+35, FORMATR+36, FORMATR+37, FORMATR+39, FORMATR+40, FORMATR+42, FORMATR+43 , FORMATR+44, FORMATR+45, FORMATR+46, FORMATR+48, FORMATR+50, FORMATR+51, FORMATR+52, FORMATR+59, FORMATR+61, FORMATR+62 , FORMATR+63, FORMATR+64, FORMATR+65, FORMATR+66, FORMATR+67, FORMATR+73, FORMATR+74, 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+19*, FORMATR+20, FORMATR+28*, FORMATR+29, FORMATR+30*, FORMATR+31, FORMATR+32* , FORMATR+33, FORMATR+46*, FORMATR+47, FORMATR+48*, FORMATR+49, FORMATR+60~, FORMATR+71*, FORMATR+72 |
| DGZ | FORMATR+1~, FORMATR+59*, FORMATR+61, FORMATR+62, FORMATR+63, FORMATR+64, FORMATR+65, FORMATR+66, FORMATR+67, FORMATR+72 , FORMATR+73 |
| 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 |