AMEREDTE ; IHS/OIT/SCR - SUB-ROUTINE FOR ER VISIT EDIT of ER CONSULTANTS
Source file <AMEREDTE.m>
| Package | Total | Call Graph | 
|---|---|---|
| VA Fileman | 5 | DD^%DT EN^DDIOL ^DIC (,EN)^DIK ^DIR | 
| Emergency Room | 2 | ($$EDAUDIT,$$EDDISPL,MULTAUDT)^AMEREDAU (DIE,MULTDIE)^AMEREDIT | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| DELETE(IEN,SUBIEN) | ||
| EDTCONS(AMERDA,AMERAIEN,AMERCSLT) | ||
| DSPCONS(AMERDA) | ||
| SYNCH | ; | |
| EDTCNSLT(AMERDA,AMEREDNO,AMERAIEN) | ;EP from AMEREDIT ; Called when "er consultants" is selected for editing ; INPUT: ; AMERDA : the IEN of the ER VISIT that is selected for editing ; AMEREDNO : an incremented number used for uniqueness in audit file ; AMERAIEN : The IEN of the ER AUDIT that is created when user begins editing a record ; | |
| DELCONS(IEN,SUBIEN) | 
| Name | Field # of Occurrence | 
|---|---|
| DD^%DT | DSPCONS+10, EDTCONS+11, EDTCONS+28 | 
| $$EDAUDIT^AMEREDAU | EDTCNSLT+50, EDTCONS+16, EDTCONS+41, EDTCONS+66 | 
| $$EDDISPL^AMEREDAU | EDTCNSLT+50, EDTCONS+16, EDTCONS+41, EDTCONS+66 | 
| MULTAUDT^AMEREDAU | EDTCNSLT+90, EDTCONS+76 | 
| DIE^AMEREDIT | SYNCH+4 | 
| MULTDIE^AMEREDIT | EDTCNSLT+88, EDTCONS+74 | 
| EN^DDIOL | EDTCNSLT+7, EDTCNSLT+18, EDTCNSLT+23, EDTCNSLT+33, EDTCNSLT+68, EDTCNSLT+70, EDTCNSLT+82, EDTCNSLT+84, DSPCONS+11, EDTCONS+14 , EDTCONS+35, EDTCONS+37, EDTCONS+60, EDTCONS+62 | 
| ^DIC | EDTCNSLT+40, EDTCNSLT+55, EDTCNSLT+77, EDTCONS+53 | 
| ^DIK | DELCONS+7, DELETE+3 | 
| EN^DIK | DELCONS+7, DELETE+3 | 
| ^DIR | EDTCNSLT+25, EDTCNSLT+65, EDTCONS+30, DELCONS+3 | 
| FileNo | Call Tags | 
|---|---|
| ^VA(200 - [#200] | Classic Fileman Calls | 
| ^AMERVSIT - [#9009080] | Classic Fileman Calls | 
| ^AMER(2.9 - [#9009082.9] | Classic Fileman Calls | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AMER(2.9 - [#9009082.9] | EDTCNSLT+17, DSPCONS+5, EDTCONS+14 | 
| ^AMERVSIT - [#9009080] | EDTCNSLT+13, EDTCNSLT+14, EDTCNSLT+15, EDTCNSLT+22, EDTCNSLT+27, DSPCONS+4, DSPCONS+5, EDTCONS+7, EDTCONS+9, EDTCONS+12 , EDTCONS+50, SYNCH+2 | 
| ^VA(200 - [#200] | DSPCONS+8, EDTCONS+13 | 
| ^XUSEC("AMERZ9999" | EDTCNSLT+7 | 
| Name | Line Occurrences | 
|---|---|
| $$DELCONS | EDTCONS+15 | 
| $$DELETE | EDTCNSLT+69, EDTCNSLT+83, EDTCONS+36, EDTCONS+61 | 
| $$EDTCONS | EDTCNSLT+47 | 
| DSPCONS | EDTCNSLT+19 | 
| SYNCH | EDTCNSLT+27, EDTCNSLT+96 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| AMERAIEN | EDTCNSLT~, EDTCNSLT+47, EDTCNSLT+90, EDTCONS~, EDTCONS+76 | 
| AMERCNO | EDTCNSLT+8~, EDTCNSLT+57*, EDTCNSLT+69, EDTCNSLT+83, EDTCNSLT+98!, DSPCONS+2~, DSPCONS+3*, DSPCONS+4*, DSPCONS+5, EDTCONS+3~ , EDTCONS+6*, EDTCONS+7*, EDTCONS+9, EDTCONS+12, EDTCONS+15, EDTCONS+36, EDTCONS+50, EDTCONS+61, EDTCONS+72 | 
| AMERCSLT | EDTCNSLT+8~, EDTCNSLT+11*, EDTCNSLT+15*, EDTCNSLT+16, EDTCNSLT+17, EDTCNSLT+42*, EDTCNSLT+43, EDTCNSLT+47, EDTCNSLT+49, EDTCNSLT+54 , EDTCNSLT+98!, EDTCONS~, EDTCONS+6, EDTCONS+7, EDTCONS+14 | 
| AMERCTM | EDTCNSLT+8~, EDTCNSLT+98! | 
| AMERDA | EDTCNSLT~, EDTCNSLT+13, EDTCNSLT+14, EDTCNSLT+15, EDTCNSLT+19, EDTCNSLT+22, EDTCNSLT+27, EDTCNSLT+47, EDTCNSLT+53, EDTCNSLT+56 , EDTCNSLT+69, EDTCNSLT+83, DSPCONS~, DSPCONS+4, DSPCONS+5, EDTCONS~, EDTCONS+7, EDTCONS+9, EDTCONS+12, EDTCONS+15 , EDTCONS+36, EDTCONS+50, EDTCONS+61, EDTCONS+72, SYNCH+2, SYNCH+4 | 
| AMERDOC | EDTCNSLT+8~, EDTCNSLT+11*, EDTCNSLT+17*, EDTCNSLT+98! | 
| AMEREDNO | EDTCNSLT~, EDTCNSLT+44*, EDTCNSLT+50, EDTCONS+16, EDTCONS+41, EDTCONS+66 | 
| AMEREDTS | EDTCNSLT+8~, EDTCNSLT+11*, EDTCNSLT+52*, EDTCNSLT+90, EDTCNSLT+92*, EDTCNSLT+98!, EDTCONS+3~, EDTCONS+5*, EDTCONS+18*, EDTCONS+43* , EDTCONS+68*, EDTCONS+76, EDTCONS+77* | 
| AMERFND | EDTCONS+3~, EDTCONS+6*, EDTCONS+8*, EDTCONS+79 | 
| AMERNAME | EDTCNSLT+9~, DSPCONS+2~, DSPCONS+7*, DSPCONS+8*, DSPCONS+11, EDTCONS+3~, EDTCONS+12*, EDTCONS+13*, EDTCONS+14, EDTCONS+50* , EDTCONS+51, EDTCONS+55* | 
| AMERNEW | EDTCNSLT+8~, EDTCNSLT+11*, EDTCNSLT+49*, EDTCNSLT+50, EDTCNSLT+98!, EDTCONS+3~, EDTCONS+39*, EDTCONS+40, EDTCONS+41, EDTCONS+44 , EDTCONS+55*, EDTCONS+65, EDTCONS+66 | 
| AMEROLD | EDTCNSLT+8~, EDTCNSLT+11*, EDTCNSLT+98!, EDTCONS+3~, EDTCONS+6*, EDTCONS+16, EDTCONS+27*, EDTCONS+40, EDTCONS+41, EDTCONS+51* , EDTCONS+52*, EDTCONS+65, EDTCONS+66 | 
| AMERQUIT | EDTCNSLT+9~, EDTCNSLT+12*, EDTCNSLT+28*, EDTCNSLT+32, EDTCNSLT+34, EDTCNSLT+41*, EDTCNSLT+51*, EDTCNSLT+67*, EDTCNSLT+92*, EDTCNSLT+94* , EDTCONS+3~, EDTCONS+6*, EDTCONS+17*, EDTCONS+33*, EDTCONS+42*, EDTCONS+67* | 
| AMERSKIP | EDTCNSLT+9~ | 
| AMERSTRG | EDTCNSLT+8~, EDTCNSLT+11*, EDTCNSLT+50*, EDTCNSLT+51, EDTCNSLT+52, EDTCNSLT+98!, EDTCONS+3~, EDTCONS+16*, EDTCONS+17, EDTCONS+18 , EDTCONS+41*, EDTCONS+42, EDTCONS+43, EDTCONS+66*, EDTCONS+67, EDTCONS+68 | 
| AMERTIME | EDTCNSLT+8~, EDTCNSLT+9~, EDTCNSLT+11*, EDTCNSLT+72*, EDTCNSLT+73, EDTCNSLT+98!, DSPCONS+2~, DSPCONS+6*, DSPCONS+9, EDTCONS+3~ , EDTCONS+10*, EDTCONS+27, EDTCONS+28, EDTCONS+39* | 
| >> DA | EDTCNSLT+56*, EDTCNSLT+88, EDTCONS+72*, EDTCONS+74, DELCONS+5*, DELETE+1* | 
| >> DA(1 | EDTCNSLT+53*, EDTCNSLT+56*, EDTCNSLT+88, EDTCONS+72*, EDTCONS+74, DELCONS+5*, DELETE+1* | 
| DIC | EDTCNSLT+10~, EDTCNSLT+36*, EDTCNSLT+40!, EDTCNSLT+53*, EDTCNSLT+56, EDTCNSLT+58!, EDTCNSLT+74*, EDTCONS+47* | 
| DIC("A" | EDTCNSLT+39*, EDTCNSLT+74*, EDTCONS+47* | 
| DIC("B" | EDTCNSLT+35!, EDTCONS+51* | 
| DIC("S" | EDTCNSLT+37*, EDTCNSLT+76*, EDTCONS+49* | 
| DIC(0 | EDTCNSLT+36*, EDTCNSLT+53*, EDTCNSLT+74*, EDTCONS+47* | 
| DIE | EDTCNSLT+10~, EDTCNSLT+56*, EDTCNSLT+88, EDTCONS+72*, EDTCONS+74 | 
| DIK | DELCONS+1~, DELCONS+6*, DELCONS+8!, DELETE+2*, DELETE+4! | 
| DIR | EDTCNSLT+10~, EDTCNSLT+25!, EDTCNSLT+65!, EDTCONS+30!, DELCONS+1~, DELCONS+3! | 
| DIR("?" | EDTCNSLT+64*, EDTCONS+29* | 
| DIR("A" | EDTCNSLT+24*, EDTCNSLT+63*, EDTCONS+24*, EDTCONS+26*, DELCONS+2* | 
| DIR("B" | EDTCNSLT+24*, EDTCNSLT+59!, EDTCONS+28*, DELCONS+2* | 
| DIR(0 | EDTCNSLT+24*, EDTCNSLT+63*, EDTCONS+24*, EDTCONS+26*, DELCONS+2* | 
| DR | EDTCNSLT+10~, EDTCNSLT+11*, EDTCNSLT+73*, EDTCNSLT+78*, EDTCNSLT+81*, EDTCNSLT+87, EDTCNSLT+88, EDTCNSLT+92*, EDTCONS+4~, EDTCONS+5* , EDTCONS+34*, EDTCONS+44*, EDTCONS+59*, EDTCONS+69*, EDTCONS+73, EDTCONS+74, EDTCONS+77*, SYNCH+2*, SYNCH+3*, SYNCH+4 | 
| DTOUT | EDTCNSLT+31!, EDTCNSLT+41, EDTCNSLT+66, EDTCNSLT+97!, EDTCONS+32, EDTCONS+54 | 
| DUOUT | EDTCNSLT+31!, EDTCNSLT+41, EDTCNSLT+66, EDTCNSLT+97!, EDTCONS+32, EDTCONS+54 | 
| DUZ | EDTCNSLT+7 | 
| IEN | DELCONS~, DELCONS+5, DELETE~, DELETE+1 | 
| SUBIEN | DELCONS~, DELCONS+5, DELETE~, DELETE+1 | 
| U | EDTCNSLT+13, EDTCNSLT+14, EDTCNSLT+22, EDTCNSLT+27, EDTCNSLT+42, DSPCONS+5, DSPCONS+6, DSPCONS+7, DSPCONS+8, EDTCONS+7 , EDTCONS+9, EDTCONS+12, EDTCONS+13, EDTCONS+50, SYNCH+2 | 
| >> X | EDTCNSLT+54* | 
| Y | EDTCNSLT+10~, EDTCNSLT+26, EDTCNSLT+36*, EDTCNSLT+42, EDTCNSLT+56, EDTCNSLT+57, EDTCNSLT+72, EDTCNSLT+78, EDTCNSLT+80, DSPCONS+2~ , DSPCONS+5*, DSPCONS+6, DSPCONS+7, DSPCONS+9*, DSPCONS+11, EDTCONS+9*, EDTCONS+10, EDTCONS+14, EDTCONS+28*, EDTCONS+39 , EDTCONS+54*, EDTCONS+55, EDTCONS+58, EDTCONS+69, DELCONS+4 | 
| Y1 | EDTCNSLT+10~, DSPCONS+2~, DSPCONS+5*, DSPCONS+11 |