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* |