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 |