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 |