Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AMEREDTA

Package: Emergency Room

Routine: AMEREDTA


Information

AMEREDTA ; IHS/OIT/SCR - SUB-ROUTINE FOR ER VISIT EDIT of ADMIT information

Source Information

Source file <AMEREDTA.m>

Call Graph

Call Graph Total: 18

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  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Emergency Room 1 AMEREDIT  

Entry Points

Name Comments DBIA/ICR reference
EDADMIT(AMERDA,AMERAIEN)
PQ
ERSEDTA(AMERDA,AMERAIEN)

External References

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AMERVSIT - [#9009080] Classic Fileman Calls,  GET1^DIQ
^AMER(3 - [#9009083] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$ERSEDTA EDADMIT+4, PQ+31
PQ PQ+10

Local Variables

Legend:

>> 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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All