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 |