AMEREDTA ; IHS/OIT/SCR - SUB-ROUTINE FOR ER VISIT EDIT of ADMIT information
Source file <AMEREDTA.m>
Package | Total | Call Graph |
---|---|---|
Emergency Room | 11 | $$CAT^AMER0 CKSC^AMER1 $$GETCLN^AMER2A $$CKHLOC^AMERBSD ($$EDAUDIT,$$EDDISPL,DIEREC)^AMEREDAU DIE^AMEREDIT (AMBULNCE,TRANSFER)^AMEREDTU SYNCHPCC^AMERPCC TIMESTMP^AMERSAV1 CHKTIME^AMERTIME ($$CHANGPAT,$$NEWREG,$$UPDATPAT,UPDTVTIM)^AMERVSIT |
VA Fileman | 6 | DD^%DT EN^DDIOL ^DIC (,EN)^DIK $$GET1^DIQ ^DIR |
IHS Patient | 1 | $$DOB^AUPNPAT |
Name | Comments | DBIA/ICR reference |
---|---|---|
EDADMIT(AMERDA,AMERAIEN) | ||
PQ | ||
ERSEDTA(AMERDA,AMERAIEN) |
Name | Field # of Occurrence |
---|---|
DD^%DT | EDADMIT+65 |
$$CAT^AMER0 | EDADMIT+123, ERSEDTA+9, ERSEDTA+65 |
CKSC^AMER1 | PQ+9 |
$$GETCLN^AMER2A | EDADMIT+120 |
$$CKHLOC^AMERBSD | EDADMIT+137 |
$$EDAUDIT^AMEREDAU | EDADMIT+30, EDADMIT+49, EDADMIT+75, EDADMIT+141, PQ+17, ERSEDTA+16, ERSEDTA+39, ERSEDTA+74 |
$$EDDISPL^AMEREDAU | EDADMIT+47, EDADMIT+48, EDADMIT+73, EDADMIT+74, EDADMIT+139, EDADMIT+140, ERSEDTA+16, ERSEDTA+33, ERSEDTA+72 |
DIEREC^AMEREDAU | EDADMIT+33, EDADMIT+52, EDADMIT+77, EDADMIT+142, PQ+20, ERSEDTA+19, ERSEDTA+53, ERSEDTA+77 |
DIE^AMEREDIT | EDADMIT+32, EDADMIT+51, EDADMIT+78, EDADMIT+129, PQ+21, ERSEDTA+20, ERSEDTA+54, ERSEDTA+78 |
AMBULNCE^AMEREDTU | ERSEDTA+81 |
TRANSFER^AMEREDTU | ERSEDTA+57 |
SYNCHPCC^AMERPCC | EDADMIT+53 |
TIMESTMP^AMERSAV1 | ERSEDTA+22 |
CHKTIME^AMERTIME | EDADMIT+80 |
$$CHANGPAT^AMERVSIT | EDADMIT+36, EDADMIT+38 |
$$NEWREG^AMERVSIT | EDADMIT+12 |
$$UPDATPAT^AMERVSIT | EDADMIT+22 |
UPDTVTIM^AMERVSIT | EDADMIT+79 |
$$DOB^AUPNPAT | EDADMIT+44 |
EN^DDIOL | EDADMIT+5, EDADMIT+6, EDADMIT+14, EDADMIT+58, EDADMIT+92, PQ+25, PQ+27, ERSEDTA+4, ERSEDTA+59 |
^DIC | EDADMIT+126, ERSEDTA+12, ERSEDTA+67 |
^DIK | ERSEDTA+49 |
EN^DIK | ERSEDTA+49 |
$$GET1^DIQ | EDADMIT+113, EDADMIT+121 |
^DIR | EDADMIT+8, EDADMIT+17, EDADMIT+60, EDADMIT+68, PQ+5, PQ+30, ERSEDTA+31 |
FileNo | Call Tags |
---|---|
^AMERVSIT - [#9009080] | Classic Fileman Calls, GET1^DIQ |
^AMER(3 - [#9009083] | Classic Fileman Calls, GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AMER(3 - [#9009083] | ERSEDTA+63 |
^AMERVSIT - [#9009080] | EDADMIT+11, EDADMIT+64, PQ+1, ERSEDTA+5, ERSEDTA+29, ERSEDTA+46, ERSEDTA+61, ERSEDTA+64 |
^AUPNPAT - [#9000001] | EDADMIT+24, EDADMIT+41 |
^DPT - [#2] | EDADMIT+21, EDADMIT+25, EDADMIT+26, EDADMIT+27, EDADMIT+42 |
^XUSEC("AMERZ9999" | EDADMIT+4 |
Name | Line Occurrences |
---|---|
$$ERSEDTA | EDADMIT+4, PQ+31 |
PQ | PQ+10 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
AMERAIEN | EDADMIT~, EDADMIT+4, EDADMIT+33, EDADMIT+52, EDADMIT+77, EDADMIT+80, EDADMIT+142, PQ+20, PQ+31, ERSEDTA~ , ERSEDTA+19, ERSEDTA+53, ERSEDTA+77 |
AMERANS | EDADMIT+2~, EDADMIT+19*, EDADMIT+20, EDADMIT+35 |
>> AMERCHNG | EDADMIT+22*, EDADMIT+23 |
AMERCHRT | EDADMIT+1~, EDADMIT+3*, EDADMIT+24*, EDADMIT+41*, EDADMIT+46 |
AMERCKSC | PQ+10, PQ+12! |
AMERCLN | EDADMIT+118~, EDADMIT+120*, EDADMIT+121 |
AMERDA | EDADMIT~, EDADMIT+4, EDADMIT+11, EDADMIT+12, EDADMIT+32, EDADMIT+36, EDADMIT+38, EDADMIT+51, EDADMIT+53, EDADMIT+64 , EDADMIT+78, EDADMIT+79, EDADMIT+113, EDADMIT+129, PQ+1, PQ+21, PQ+31, ERSEDTA~, ERSEDTA+5, ERSEDTA+20 , ERSEDTA+22, ERSEDTA+29, ERSEDTA+46, ERSEDTA+48, ERSEDTA+54, ERSEDTA+57, ERSEDTA+61, ERSEDTA+64, ERSEDTA+78 |
>> AMERDFN | EDADMIT+11*, EDADMIT+12, EDADMIT+21, EDADMIT+22, EDADMIT+24, EDADMIT+25, EDADMIT+26, EDADMIT+27, EDADMIT+36*, EDADMIT+38* , EDADMIT+39, EDADMIT+40, EDADMIT+41, EDADMIT+42, EDADMIT+44, EDADMIT+46, EDADMIT+47 |
AMERDOB | EDADMIT+1~, EDADMIT+3*, EDADMIT+26*, EDADMIT+29, EDADMIT+44*, EDADMIT+46 |
AMERDR | EDADMIT+1~, EDADMIT+3*, EDADMIT+29*, EDADMIT+32, EDADMIT+46*, EDADMIT+51, EDADMIT+57*, EDADMIT+71*, EDADMIT+78, EDADMIT+83* , EDADMIT+118~, EDADMIT+128*, EDADMIT+129, PQ+19*, PQ+21, PQ+22*, PQ+26!, ERSEDTA+3*, ERSEDTA+18*, ERSEDTA+20 , ERSEDTA+23*, ERSEDTA+35*, ERSEDTA+38*, ERSEDTA+44*, ERSEDTA+54, ERSEDTA+55*, ERSEDTA+71*, ERSEDTA+73*, ERSEDTA+78, ERSEDTA+79* |
AMEREDTS | EDADMIT+1~, EDADMIT+3*, PQ+26!, ERSEDTA+3*, ERSEDTA+76* |
>> AMERHERN | ERSEDTA+45*, ERSEDTA+46*, ERSEDTA+47 |
AMERISNW | EDADMIT+2~, EDADMIT+12*, EDADMIT+13, EDADMIT+36, EDADMIT+38 |
AMERNEW | EDADMIT+1~, EDADMIT+3*, EDADMIT+47*, EDADMIT+49, EDADMIT+73*, EDADMIT+75, EDADMIT+133~, EDADMIT+140*, EDADMIT+141, PQ+15* , PQ+16, PQ+17, PQ+19, PQ+22*, ERSEDTA+3*, ERSEDTA+14*, ERSEDTA+15, ERSEDTA+16, ERSEDTA+18, ERSEDTA+23* , ERSEDTA+33*, ERSEDTA+34, ERSEDTA+35, ERSEDTA+38, ERSEDTA+39, ERSEDTA+41, ERSEDTA+57, ERSEDTA+58, ERSEDTA+69*, ERSEDTA+70 , ERSEDTA+71 |
AMERNNAM | EDADMIT+2~, EDADMIT+27*, EDADMIT+30 |
AMERNTIM | EDADMIT+2~, EDADMIT+71*, EDADMIT+72, EDADMIT+73, EDADMIT+79, EDADMIT+80 |
AMEROLD | EDADMIT+1~, EDADMIT+3*, EDADMIT+11*, EDADMIT+36, EDADMIT+38, EDADMIT+40, EDADMIT+48*, EDADMIT+49, EDADMIT+74*, EDADMIT+75 , EDADMIT+133~, EDADMIT+139*, EDADMIT+141, PQ+2*, PQ+3, PQ+16, PQ+17, PQ+22*, ERSEDTA+3*, ERSEDTA+6* , ERSEDTA+7, ERSEDTA+15, ERSEDTA+16, ERSEDTA+23*, ERSEDTA+27*, ERSEDTA+28*, ERSEDTA+29*, ERSEDTA+34, ERSEDTA+39, ERSEDTA+61* , ERSEDTA+62, ERSEDTA+63, ERSEDTA+64*, ERSEDTA+70, ERSEDTA+72*, ERSEDTA+73, ERSEDTA+74 |
AMERONAM | EDADMIT+2~, EDADMIT+21*, EDADMIT+30 |
AMEROTIM | EDADMIT+2~, EDADMIT+64*, EDADMIT+72, EDADMIT+74, EDADMIT+79 |
AMERQUIT | EDADMIT+2~, EDADMIT+3*, EDADMIT+31*, EDADMIT+50*, EDADMIT+56, EDADMIT+69*, EDADMIT+82*, EDADMIT+86, EDADMIT+116*, EDADMIT+126* , EDADMIT+132, EDADMIT+144, PQ+18*, PQ+24, ERSEDTA+3*, ERSEDTA+17*, ERSEDTA+25, ERSEDTA+40*, ERSEDTA+68*, ERSEDTA+75* , ERSEDTA+83 |
AMERSEX | EDADMIT+1~, EDADMIT+3*, EDADMIT+25*, EDADMIT+29, EDADMIT+42*, EDADMIT+46 |
AMERSTRG | EDADMIT+1~, EDADMIT+3*, EDADMIT+30*, EDADMIT+31, EDADMIT+33, EDADMIT+49*, EDADMIT+50, EDADMIT+52, EDADMIT+75*, EDADMIT+76 , EDADMIT+77, EDADMIT+82, EDADMIT+141*, EDADMIT+142, PQ+17*, PQ+18, PQ+20, ERSEDTA+3*, ERSEDTA+16*, ERSEDTA+17 , ERSEDTA+19, ERSEDTA+39*, ERSEDTA+40, ERSEDTA+53, ERSEDTA+74*, ERSEDTA+75, ERSEDTA+76, ERSEDTA+77 |
>> AMERTIM | EDADMIT+3* |
AMERTRAN | ERSEDTA+2~, ERSEDTA+3*, ERSEDTA+69*, ERSEDTA+74, ERSEDTA+81 |
AMERTYP | EDADMIT+118~ |
DA | ERSEDTA+47*, ERSEDTA+50! |
DA(1 | ERSEDTA+48*, ERSEDTA+50! |
DIC | EDADMIT+118~, EDADMIT+122*, PQ+26!, ERSEDTA+8*, ERSEDTA+12!, ERSEDTA+13!, ERSEDTA+65*, ERSEDTA+67!, ERSEDTA+68! |
DIC("A" | EDADMIT+125*, ERSEDTA+11*, ERSEDTA+60* |
DIC("B" | EDADMIT+119*, EDADMIT+121*, ERSEDTA+7*, ERSEDTA+62!, ERSEDTA+63* |
DIC("S" | EDADMIT+123*, ERSEDTA+9*, ERSEDTA+65* |
DIC(0 | EDADMIT+124*, ERSEDTA+10*, ERSEDTA+66* |
DIK | ERSEDTA+48*, ERSEDTA+49!, ERSEDTA+50! |
DIR | EDADMIT+1~, EDADMIT+8!, EDADMIT+17!, EDADMIT+61!, EDADMIT+68!, PQ+5!, PQ+26!, PQ+30!, ERSEDTA+31! |
DIR("?" | EDADMIT+67*, PQ+4* |
DIR("A" | EDADMIT+7*, EDADMIT+16*, EDADMIT+59*, EDADMIT+63*, PQ+4*, PQ+28*, ERSEDTA+30* |
DIR("B" | EDADMIT+7*, EDADMIT+59*, EDADMIT+66*, PQ+3*, PQ+11, PQ+29*, ERSEDTA+28*, ERSEDTA+29* |
DIR(0 | EDADMIT+7*, EDADMIT+15*, EDADMIT+59*, EDADMIT+63*, PQ+4*, PQ+29*, ERSEDTA+30* |
DTOUT | EDADMIT+9!, EDADMIT+61!, EDADMIT+69!, PQ+6!, ERSEDTA+13!, ERSEDTA+32!, ERSEDTA+68!, ERSEDTA+84! |
DUOUT | EDADMIT+9!, EDADMIT+61!, EDADMIT+69!, PQ+6!, ERSEDTA+13!, ERSEDTA+32!, ERSEDTA+68!, ERSEDTA+84! |
DUZ | EDADMIT+4, EDADMIT+29, EDADMIT+46 |
DUZ(2 | EDADMIT+24, EDADMIT+41 |
ERR | EDADMIT+133~, EDADMIT+137* |
NCLN | EDADMIT+110~, EDADMIT+116*, EDADMIT+127*, EDADMIT+128, EDADMIT+132, EDADMIT+137, EDADMIT+140 |
OCLN | EDADMIT+110~, EDADMIT+116*, EDADMIT+121*, EDADMIT+132, EDADMIT+139 |
U | EDADMIT+11, EDADMIT+21, EDADMIT+24, EDADMIT+25, EDADMIT+26, EDADMIT+27, EDADMIT+41, EDADMIT+42, EDADMIT+64, ERSEDTA+5 , ERSEDTA+14, ERSEDTA+29, ERSEDTA+46, ERSEDTA+61, ERSEDTA+63, ERSEDTA+64, ERSEDTA+69 |
VIEN | EDADMIT+110~, EDADMIT+113*, EDADMIT+117, EDADMIT+120, EDADMIT+132, EDADMIT+137 |
X | EDADMIT+2~, EDADMIT+118~ |
Y | EDADMIT+1~, EDADMIT+9, EDADMIT+10, EDADMIT+18, EDADMIT+19, EDADMIT+61!, EDADMIT+62, EDADMIT+64*, EDADMIT+66, EDADMIT+70 , EDADMIT+71, EDADMIT+118~, EDADMIT+126, EDADMIT+127, PQ+1*, PQ+2, PQ+6!, PQ+11*, PQ+15, PQ+22* , PQ+31, ERSEDTA+5*, ERSEDTA+6, ERSEDTA+14, ERSEDTA+23*, ERSEDTA+33, ERSEDTA+55*, ERSEDTA+64*, ERSEDTA+69, ERSEDTA+79* |