©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
DG53372M ;ALB/PDJ DG*5.3*372 Elig Code Cleanup Mailman Msg ; 03/30/01
Source file <DG53372M.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PRTENC | ; Print Encounter Records
|
|
| MAIL1 | ; Send message
|
|
| BLDENC | ; Format Patient Encounter line for printing
|
|
| BLDERR | ; Format error line for printing
|
|
| FILERRS | ; Print Filing errors
|
|
| BLDPAT | ; Format Patient line for printing
|
|
| ; Send a mailman msg to user with results
|
||
| BLDSTR(NSTR,STR,COL,NSL) | ; build a string
; Input: ; NSTR = a string to be added to STR ; STR = an existing string to which NSTR will be added ; COL = column location at which NSTR will be added to STR ; NSL = length of new string ; Output: ; returns STR with NSTR appended at the specified COL |
|
| PRTRECS | ; Print List of records
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(8 - [#8] | MAIL+54 |
| ^TMP("DG53372" | MAIL+8!, MAIL+13*, MAIL+14*, MAIL+21*, MAIL+23*, MAIL+25*, MAIL+33*, MAIL+39*, MAIL+41*, MAIL+47* , MAIL+49*, MAIL+54*, MAIL+56*, MAIL+58*, MAIL+61*, MAIL+63*, PRTRECS+2*, PRTRECS+6*, PRTRECS+10*, PRTRECS+12* , PRTRECS+21*, PRTRECS+28*, PRTENC+2*, PRTENC+6*, PRTENC+8*, PRTENC+17*, PRTENC+24*, FILERRS+3*, FILERRS+7*, FILERRS+9* , FILERRS+20*, MAIL1+2*, MAIL1+4*, MAIL1+7!, BLDERR+13*, BLDPAT+11*, BLDENC+12* |
| ^XTMP( | PRTRECS+4, PRTRECS+8, PRTRECS+23, PRTRECS+24, PRTRECS+25, PRTENC+4, PRTENC+19, PRTENC+20, PRTENC+21, FILERRS+5 , FILERRS+11, FILERRS+23, FILERRS+24, FILERRS+25, FILERRS+26, BLDERR+2, BLDPAT+2, BLDENC+2 |
| Name | Line Occurrences |
|---|---|
| $$BLDSTR | PRTRECS+4, PRTRECS+8, PRTRECS+15, PRTRECS+16, PRTRECS+17, PRTRECS+18, PRTRECS+19, PRTENC+4, PRTENC+11, PRTENC+12 , PRTENC+13, PRTENC+14, PRTENC+15, FILERRS+5, FILERRS+13, FILERRS+14, FILERRS+15, FILERRS+16, FILERRS+17, FILERRS+18 , BLDERR+5, BLDERR+6, BLDERR+7, BLDERR+8, BLDERR+10, BLDERR+11, BLDPAT+5, BLDPAT+6, BLDPAT+7, BLDPAT+8 , BLDPAT+9, BLDENC+5, BLDENC+6, BLDENC+7, BLDENC+8, BLDENC+10 |
| BLDENC | PRTENC+22 |
| BLDERR | FILERRS+27 |
| BLDPAT | PRTRECS+26 |
| MAIL1 | MAIL+27 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | MAIL+1~, MAIL+12 |
| >> CLNOK | MAIL+19 |
| COL | BLDSTR~, BLDSTR+9 |
| DATA | MAIL+2~, BLDERR+1~, BLDERR+2*, BLDERR+3, BLDPAT+1~, BLDPAT+2*, BLDPAT+3, BLDENC+1~, BLDENC+2*, BLDENC+3 |
| DATA1 | MAIL+2~ |
| DIFROM | MAIL+1~ |
| DTECD | BLDERR+1~, BLDERR+3*, BLDERR+9*, BLDERR+10, BLDPAT+1~ |
| DUZ | MAIL+10 |
| ELIGCD | MAIL+4~, PRTRECS+22*, PRTRECS+23*, PRTRECS+24, PRTRECS+25, PRTENC+18*, PRTENC+19*, PRTENC+20, PRTENC+21, FILERRS+22* , FILERRS+24*, FILERRS+25, FILERRS+26, BLDERR+2, BLDERR+5, BLDPAT+2, BLDPAT+5, BLDENC+2, BLDENC+5 |
| ENCDT | BLDENC+1~, BLDENC+3*, BLDENC+9 |
| ERRTXT | BLDERR+1~, BLDERR+3*, BLDERR+11, BLDPAT+1~, BLDENC+1~ |
| FILE | MAIL+2~, FILERRS+22*, FILERRS+23*, FILERRS+24, FILERRS+25, FILERRS+26, BLDERR+2, BLDERR+4 |
| FLD | MAIL+2~ |
| I | MAIL+2~ |
| IEN | MAIL+2~, MAIL+31*, MAIL+37, MAIL+39, MAIL+45, MAIL+47, MAIL+54, MAIL+56 |
| IENX | MAIL+2~ |
| NAME | MAIL+3~, BLDERR+1~, BLDERR+3*, BLDERR+8, BLDPAT+1~, BLDPAT+3*, BLDPAT+8, BLDENC+1~, BLDENC+3*, BLDENC+8 |
| NODE | MAIL+2~, MAIL+15*, MAIL+20*, MAIL+21, MAIL+22*, MAIL+23, MAIL+24*, MAIL+25, MAIL+26*, MAIL+32* , MAIL+33, MAIL+38*, MAIL+39, MAIL+40*, MAIL+41, MAIL+46*, MAIL+47, MAIL+48*, MAIL+49, MAIL+53* , MAIL+54, MAIL+55*, MAIL+56, MAIL+57*, MAIL+58, MAIL+60*, MAIL+61, MAIL+62*, MAIL+63, PRTRECS+1* , PRTRECS+2, PRTRECS+5*, PRTRECS+6, PRTRECS+9*, PRTRECS+10, PRTRECS+11*, PRTRECS+12, PRTRECS+20*, PRTRECS+21, PRTRECS+27* , PRTRECS+28, PRTENC+1*, PRTENC+2, PRTENC+5*, PRTENC+6, PRTENC+7*, PRTENC+8, PRTENC+16*, PRTENC+17, PRTENC+23* , PRTENC+24, FILERRS+2*, FILERRS+3, FILERRS+6*, FILERRS+7, FILERRS+8*, FILERRS+9, FILERRS+19*, FILERRS+20, MAIL1+1* , MAIL1+2, MAIL1+3*, MAIL1+4, BLDERR+12*, BLDERR+13, BLDPAT+10*, BLDPAT+11, BLDENC+11*, BLDENC+12 |
| NSL | BLDSTR~, BLDSTR+9 |
| >> NSTD( | MAIL+37, MAIL+45 |
| NSTR | BLDSTR~, BLDSTR+9 |
| PIEN | MAIL+4~, PRTRECS+22*, PRTRECS+24*, PRTRECS+25, PRTENC+18*, PRTENC+20*, PRTENC+21, FILERRS+22*, FILERRS+25*, FILERRS+26 , BLDERR+2, BLDERR+6, BLDPAT+2, BLDPAT+6, BLDENC+2, BLDENC+6 |
| SELIGCD | BLDPAT+1~, BLDPAT+3*, BLDPAT+9 |
| SIEN | MAIL+4~, PRTRECS+22*, PRTRECS+25*, PRTENC+18*, PRTENC+21*, FILERRS+22*, FILERRS+26*, BLDERR+2, BLDERR+7, BLDPAT+2 , BLDPAT+7, BLDENC+2, BLDENC+7 |
| STA | MAIL+2~ |
| >> STDCDS( | MAIL+47 |
| STR | BLDSTR~, BLDSTR+9 |
| TEXT | MAIL+2~, PRTRECS+3*, PRTRECS+4*, PRTRECS+6, PRTRECS+7*, PRTRECS+8*, PRTRECS+10, PRTRECS+14*, PRTRECS+15*, PRTRECS+16* , PRTRECS+17*, PRTRECS+18*, PRTRECS+19*, PRTRECS+21, PRTENC+3*, PRTENC+4*, PRTENC+6, PRTENC+10*, PRTENC+11*, PRTENC+12* , PRTENC+13*, PRTENC+14*, PRTENC+15*, PRTENC+17, FILERRS+4*, FILERRS+5*, FILERRS+7, FILERRS+12*, FILERRS+13*, FILERRS+14* , FILERRS+15*, FILERRS+16*, FILERRS+17*, FILERRS+18*, FILERRS+20, BLDERR+4*, BLDERR+5*, BLDERR+6*, BLDERR+7*, BLDERR+8* , BLDERR+10*, BLDERR+11*, BLDERR+13, BLDPAT+4*, BLDPAT+5*, BLDPAT+6*, BLDPAT+7*, BLDPAT+8*, BLDPAT+9*, BLDPAT+11 , BLDENC+4*, BLDENC+5*, BLDENC+6*, BLDENC+7*, BLDENC+8*, BLDENC+10*, BLDENC+12 |
| X | MAIL+2~ |
| XMDUZ | MAIL+2~, MAIL+10* |
| XMSUB | MAIL+2~, MAIL+9* |
| XMTEXT | MAIL+2~, MAIL+11* |
| XMY | MAIL+2~ |
| XMY( | MAIL+10* |
| XTENC | MAIL+3~, MAIL+7*, PRTENC+4, PRTENC+19, PRTENC+20, PRTENC+21, BLDENC+2 |
| XTERR | MAIL+3~, MAIL+5*, FILERRS+5, FILERRS+11, FILERRS+23, FILERRS+24, FILERRS+25, FILERRS+26, BLDERR+2 |
| XTPAT | MAIL+3~, MAIL+6*, PRTRECS+4, PRTRECS+8, PRTRECS+23, PRTRECS+24, PRTRECS+25, BLDPAT+2 |
| Y | MAIL+2~, MAIL+12*, BLDERR+9*, BLDENC+1~, BLDENC+9*, BLDENC+10 |