AMEREDTD ; IHS/OIT/SCR - Sub-routine for ER VISIT edit of discharge data
Source file <AMEREDTD.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EDPROCS(AMERDA,AMEREDNO,AMERAIEN) | ; EP from AMEREDIT - ER PROCEDURES
|
|
| EDDISCHG(AMERDA,AMERAIEN) | ; EP from AMEREDIT for discharge information
|
|
| EDFUINST(AMERDA,AMERAIEN) | ;EP - From AMEREDIT
|
|
| EDEXTAS(AMERDA,AMERAIEN) |
| Name | Field # of Occurrence |
|---|---|
| $$CAT^AMER0 | EDEXTAS+31 |
| $$OPT^AMER0 | EDEXTAS+34, EDEXTAS+41, EDEXTAS+52 |
| $$TCK^AMER2A | EDDISCHG+58 |
| $$TVAL^AMER2A | EDDISCHG+56 |
| $$EDAUDIT^AMEREDAU | EDDISCHG+23, EDDISCHG+42, EDDISCHG+60, EDPROCS+33, EDPROCS+47, EDEXTAS+14, EDEXTAS+55, EDEXTAS+76, EDFUINST+31 |
| $$EDDISPL^AMEREDAU | EDDISCHG+23, EDDISCHG+42, EDDISCHG+60, EDPROCS+33, EDPROCS+47, EDEXTAS+55, EDFUINST+31 |
| DIEREC^AMEREDAU | EDFUINST+35 |
| MULTAUDT^AMEREDAU | EDDISCHG+71, EDPROCS+53, EDEXTAS+25, EDEXTAS+92 |
| DIE^AMEREDIT | EDDISCHG+69, EDEXTAS+23, EDEXTAS+90, EDFUINST+33 |
| DELETVST^AMERVSIT | EDEXTAS+48 |
| EN^DDIOL | EDDISCHG+2, EDPROCS+5, EDPROCS+7, EDPROCS+8, EDPROCS+12, EDPROCS+15, EDEXTAS+35, EDEXTAS+42, EDEXTAS+63, EDEXTAS+65 , EDEXTAS+82, EDEXTAS+83 |
| ^DIC | EDDISCHG+15, EDDISCHG+37, EDPROCS+20, EDPROCS+45, EDEXTAS+33, EDEXTAS+71 |
| ^DIK | EDPROCS+37 |
| EN^DIK | EDPROCS+37 |
| $$GET1^DIQ | EDFUINST+5, EDFUINST+12 |
| ^DIR | EDDISCHG+52, EDPROCS+29, EDEXTAS+9, EDEXTAS+45, EDFUINST+17 |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | Classic Fileman Calls |
| ^AMERVSIT - [#9009080] | Classic Fileman Calls, GET1^DIQ |
| ^AMER(2.1 - [#9009082.1] | Classic Fileman Calls |
| ^AMER(3 - [#9009083] | Classic Fileman Calls, GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AMER(2 - [#9009082] | EDFUINST+9 |
| ^AMER(2.1 - [#9009082.1] | EDEXTAS+65, EDEXTAS+69, EDEXTAS+70, EDEXTAS+72 |
| ^AMER(3 - [#9009083] | EDPROCS+11, EDEXTAS+32, EDFUINST+10 |
| ^AMERVSIT - [#9009080] | EDDISCHG+8, EDDISCHG+9, EDDISCHG+32, EDDISCHG+47, EDDISCHG+48, EDDISCHG+56, EDDISCHG+58, EDPROCS+5, EDPROCS+10, EDPROCS+11 , EDPROCS+19, EDPROCS+25, EDPROCS+27, EDEXTAS+4, EDEXTAS+29, EDEXTAS+68 |
| ^DD("DD" | EDDISCHG+48 |
| ^DD(9009080 | EDPROCS+42 |
| ^VA(200 - [#200] | EDDISCHG+10, EDDISCHG+33 |
| ^XUSEC("AMERZ9999" | EDDISCHG+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | EDFUINST+2~ |
| AMERAIEN | EDDISCHG~, EDDISCHG+71, EDPROCS~, EDPROCS+53, EDEXTAS~, EDEXTAS+25, EDEXTAS+92, EDFUINST~, EDFUINST+35 |
| AMERDA | EDDISCHG~, EDDISCHG+8, EDDISCHG+9, EDDISCHG+32, EDDISCHG+47, EDDISCHG+48, EDDISCHG+56, EDDISCHG+58, EDDISCHG+69, EDPROCS~ , EDPROCS+5, EDPROCS+10, EDPROCS+11, EDPROCS+19, EDPROCS+25, EDPROCS+27, EDPROCS+36, EDPROCS+42, EDEXTAS~, EDEXTAS+4 , EDEXTAS+23, EDEXTAS+29, EDEXTAS+48, EDEXTAS+49*, EDEXTAS+68, EDEXTAS+90, EDFUINST~, EDFUINST+5, EDFUINST+33 |
| AMERDR | EDDISCHG+4~, EDDISCHG+5*, EDDISCHG+21*, EDDISCHG+22*, EDDISCHG+41*, EDDISCHG+57*, EDDISCHG+63*, EDDISCHG+68, EDDISCHG+69, EDDISCHG+72! , EDEXTAS+2~, EDEXTAS+3*, EDEXTAS+17*, EDEXTAS+22, EDEXTAS+23, EDEXTAS+54*, EDEXTAS+59*, EDEXTAS+75*, EDEXTAS+89, EDEXTAS+90 , EDEXTAS+93! |
| AMEREDNO | EDPROCS~, EDPROCS+31*, EDPROCS+33, EDPROCS+46*, EDPROCS+47 |
| AMEREDTS | EDDISCHG+3~, EDDISCHG+5*, EDDISCHG+25*, EDDISCHG+44*, EDDISCHG+62*, EDDISCHG+71, EDDISCHG+72!, EDPROCS+1~, EDPROCS+2*, EDPROCS+35* , EDPROCS+49*, EDPROCS+53, EDPROCS+54!, EDEXTAS+2~, EDEXTAS+3*, EDEXTAS+16*, EDEXTAS+25, EDEXTAS+26*, EDEXTAS+57*, EDEXTAS+78* , EDEXTAS+92, EDEXTAS+93! |
| AMERFAC | EDEXTAS+2~, EDEXTAS+68*, EDEXTAS+69, EDEXTAS+93! |
| AMERM | EDEXTAS+2~, EDEXTAS+70*, EDEXTAS+93! |
| AMERNEW | EDDISCHG+3~, EDDISCHG+5*, EDDISCHG+19*, EDDISCHG+20, EDDISCHG+21, EDDISCHG+22, EDDISCHG+23, EDDISCHG+39*, EDDISCHG+40, EDDISCHG+41 , EDDISCHG+42, EDDISCHG+54*, EDDISCHG+56, EDDISCHG+57, EDDISCHG+58, EDDISCHG+59, EDDISCHG+60, EDDISCHG+63, EDDISCHG+72!, EDPROCS+1~ , EDPROCS+2*, EDPROCS+32*, EDPROCS+33, EDPROCS+43*, EDPROCS+47, EDPROCS+54!, EDEXTAS+2~, EDEXTAS+3*, EDEXTAS+11*, EDEXTAS+12 , EDEXTAS+13, EDEXTAS+14, EDEXTAS+36*, EDEXTAS+37*, EDEXTAS+40, EDEXTAS+41, EDEXTAS+46*, EDEXTAS+53, EDEXTAS+54, EDEXTAS+55 , EDEXTAS+61, EDEXTAS+72*, EDEXTAS+73*, EDEXTAS+74, EDEXTAS+76, EDEXTAS+93!, EDFUINST+26*, EDFUINST+29, EDFUINST+31, EDFUINST+32 |
| AMERNO | EDDISCHG+3~, EDDISCHG+9*, EDDISCHG+10, EDDISCHG+29*, EDDISCHG+32*, EDDISCHG+33, EDDISCHG+72!, EDPROCS+1~, EDPROCS+3*, EDPROCS+9* , EDPROCS+10*, EDPROCS+11, EDPROCS+24*, EDPROCS+25*, EDPROCS+27, EDPROCS+36, EDPROCS+39*, EDPROCS+46*, EDPROCS+54! |
| AMEROLD | EDDISCHG+3~, EDDISCHG+5*, EDDISCHG+9*, EDDISCHG+20, EDDISCHG+23, EDDISCHG+32*, EDDISCHG+33, EDDISCHG+40, EDDISCHG+42, EDDISCHG+47* , EDDISCHG+48, EDDISCHG+59, EDDISCHG+60, EDDISCHG+72!, EDPROCS+1~, EDPROCS+2*, EDPROCS+27*, EDPROCS+33, EDPROCS+43*, EDPROCS+47 , EDPROCS+54!, EDEXTAS+2~, EDEXTAS+3*, EDEXTAS+4*, EDEXTAS+5, EDEXTAS+12, EDEXTAS+14, EDEXTAS+29*, EDEXTAS+34, EDEXTAS+36 , EDEXTAS+46, EDEXTAS+53, EDEXTAS+55, EDEXTAS+59, EDEXTAS+64*, EDEXTAS+69*, EDEXTAS+74, EDEXTAS+76, EDEXTAS+86, EDEXTAS+93! , EDFUINST+2~, EDFUINST+5*, EDFUINST+29, EDFUINST+31 |
| AMEROPNO | EDEXTAS+2~, EDEXTAS+28*, EDEXTAS+29*, EDEXTAS+32 |
| AMEROPTN | EDEXTAS+2~, EDEXTAS+52*, EDEXTAS+59, EDEXTAS+61, EDEXTAS+81, EDEXTAS+86, EDEXTAS+93! |
| AMERSTRG | EDDISCHG+3~, EDDISCHG+5*, EDDISCHG+23*, EDDISCHG+24, EDDISCHG+25, EDDISCHG+42*, EDDISCHG+43, EDDISCHG+44, EDDISCHG+60*, EDDISCHG+61 , EDDISCHG+62, EDDISCHG+72!, EDPROCS+1~, EDPROCS+2*, EDPROCS+33*, EDPROCS+34, EDPROCS+35, EDPROCS+47*, EDPROCS+48, EDPROCS+49 , EDPROCS+54!, EDEXTAS+2~, EDEXTAS+3*, EDEXTAS+14*, EDEXTAS+15, EDEXTAS+16, EDEXTAS+55*, EDEXTAS+56, EDEXTAS+57, EDEXTAS+76* , EDEXTAS+77, EDEXTAS+78, EDEXTAS+93!, EDFUINST+30~, EDFUINST+31*, EDFUINST+34, EDFUINST+35 |
| CNT | EDFUINST+2~, EDFUINST+7*, EDFUINST+11*, EDFUINST+13, EDFUINST+14 |
| >> DA | EDPROCS+36* |
| >> DA(1 | EDPROCS+36*, EDPROCS+42* |
| DIC | EDDISCHG+3~, EDDISCHG+12*, EDDISCHG+16!, EDDISCHG+36*, EDDISCHG+37!, EDDISCHG+72!, EDPROCS+18*, EDPROCS+42*, EDPROCS+45!, EDEXTAS+2~ , EDEXTAS+31*, EDEXTAS+33!, EDEXTAS+66*, EDEXTAS+71!, EDEXTAS+93! |
| DIC("?" | EDDISCHG+7*, EDDISCHG+31* |
| DIC("A" | EDDISCHG+6*, EDDISCHG+29*, EDPROCS+19*, EDEXTAS+30*, EDEXTAS+67* |
| DIC("B" | EDDISCHG+6!, EDDISCHG+10*, EDDISCHG+30!, EDDISCHG+33*, EDPROCS+4!, EDEXTAS+30!, EDEXTAS+32*, EDEXTAS+69* |
| DIC("P" | EDPROCS+42* |
| DIC("S" | EDDISCHG+6!, EDDISCHG+14*, EDDISCHG+35*, EDPROCS+4!, EDPROCS+18*, EDEXTAS+30!, EDEXTAS+31* |
| DIC(0 | EDDISCHG+12*, EDDISCHG+36*, EDPROCS+18*, EDPROCS+42*, EDEXTAS+31*, EDEXTAS+66* |
| DIK | EDPROCS+36*, EDPROCS+37! |
| DIR | EDDISCHG+3~, EDDISCHG+72!, EDEXTAS+2~, EDEXTAS+93!, EDFUINST+2~ |
| DIR("?" | EDDISCHG+50*, EDEXTAS+7* |
| DIR("A" | EDDISCHG+49*, EDPROCS+28*, EDEXTAS+6*, EDEXTAS+43*, EDFUINST+16* |
| DIR("B" | EDDISCHG+48*, EDPROCS+28*, EDEXTAS+5*, EDEXTAS+44*, EDFUINST+5* |
| DIR(0 | EDDISCHG+49*, EDPROCS+28*, EDEXTAS+6*, EDEXTAS+43*, EDFUINST+8*, EDFUINST+14* |
| DR | EDDISCHG+3~, EDEXTAS+26*, EDEXTAS+93!, EDFUINST+30~, EDFUINST+32*, EDFUINST+33 |
| DTOUT | EDDISCHG+17!, EDDISCHG+38!, EDDISCHG+53, EDDISCHG+67!, EDPROCS+52!, EDEXTAS+10, EDEXTAS+21!, EDEXTAS+38!, EDEXTAS+88!, EDFUINST+25! |
| DUOUT | EDDISCHG+17!, EDDISCHG+38!, EDDISCHG+53, EDDISCHG+67!, EDPROCS+52!, EDEXTAS+10, EDEXTAS+21!, EDEXTAS+38!, EDEXTAS+88!, EDFUINST+25! |
| DUZ | EDDISCHG+2 |
| FI | EDFUINST+2~, EDFUINST+10*, EDFUINST+12, EDFUINST+13 |
| FIIEN | EDFUINST+2~, EDFUINST+9*, EDFUINST+10 |
| >> INS( | EDFUINST+13*, EDFUINST+23 |
| >> INSNM | EDFUINST+12*, EDFUINST+13, EDFUINST+14 |
| >> SKIP | EDPROCS+17*, EDPROCS+26*, EDPROCS+41 |
| U | EDDISCHG+8, EDDISCHG+9, EDDISCHG+10, EDDISCHG+32, EDDISCHG+33, EDDISCHG+47, EDDISCHG+48, EDDISCHG+56, EDDISCHG+58, EDPROCS+5 , EDPROCS+12, EDPROCS+19, EDPROCS+25, EDPROCS+42, EDEXTAS+4, EDEXTAS+29, EDEXTAS+32, EDEXTAS+65, EDEXTAS+68, EDEXTAS+69 , EDEXTAS+72, EDFUINST+13, EDFUINST+23 |
| >> X | EDPROCS+44* |
| Y | EDDISCHG+3~, EDDISCHG+18, EDDISCHG+19, EDDISCHG+39, EDDISCHG+48*, EDDISCHG+51, EDDISCHG+53*, EDDISCHG+54, EDDISCHG+59*, EDDISCHG+64* , EDDISCHG+72!, EDPROCS+1~, EDPROCS+2*, EDPROCS+11*, EDPROCS+16, EDPROCS+18*, EDPROCS+21*, EDPROCS+25, EDPROCS+30, EDPROCS+39* , EDPROCS+43, EDPROCS+44, EDPROCS+46, EDPROCS+54!, EDEXTAS+2~, EDEXTAS+3*, EDEXTAS+8, EDEXTAS+10*, EDEXTAS+11, EDEXTAS+12* , EDEXTAS+17, EDEXTAS+18*, EDEXTAS+37, EDEXTAS+46, EDEXTAS+47, EDEXTAS+72, EDEXTAS+74, EDEXTAS+75, EDEXTAS+93!, EDFUINST+23* , EDFUINST+26 |
| >> Y1 | EDPROCS+11*, EDPROCS+12 |