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 |  Local Variables |  All
Print Page as PDF
Routine: AMEREDTD

Package: Emergency Room

Routine: AMEREDTD


Information

AMEREDTD ; IHS/OIT/SCR - Sub-routine for ER VISIT edit of discharge data

Source Information

Source file <AMEREDTD.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Emergency Room 5 ($$CAT,$$OPT)^AMER0  ($$TCK,$$TVAL)^AMER2A  ($$EDAUDIT,$$EDDISPL,DIEREC,MULTAUDT)^AMEREDAU  DIE^AMEREDIT  DELETVST^AMERVSIT  
VA Fileman 5 EN^DDIOL  ^DIC  (,EN)^DIK  $$GET1^DIQ  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Emergency Room 1 AMEREDIT  

Entry Points

Name Comments DBIA/ICR reference
EDPROCS(AMERDA,AMEREDNO,AMERAIEN) ; EP from AMEREDIT - ER PROCEDURES
EDDISCHG(AMERDA,AMERAIEN) ; EP from AMEREDIT for discharge information
EDFUINST(AMERDA,AMERAIEN) ;EP - From AMEREDIT
EDEXTAS(AMERDA,AMERAIEN)

External References

Name Field # of Occurrence
$$CAT^AMER0 EDEXTAS+31
$$OPT^AMER0 EDEXTAS+34, EDEXTAS+41, EDEXTAS+52
$$TCK^AMER2A EDDISCHG+58
$$TVAL^AMER2A EDDISCHG+56
$$EDAUDIT^AMEREDAU EDDISCHG+23, EDDISCHG+42, EDDISCHG+60, EDPROCS+33, EDPROCS+47, EDEXTAS+14, EDEXTAS+55, EDEXTAS+76, EDFUINST+31
$$EDDISPL^AMEREDAU EDDISCHG+23, EDDISCHG+42, EDDISCHG+60, EDPROCS+33, EDPROCS+47, EDEXTAS+55, EDFUINST+31
DIEREC^AMEREDAU EDFUINST+35
MULTAUDT^AMEREDAU EDDISCHG+71, EDPROCS+53, EDEXTAS+25, EDEXTAS+92
DIE^AMEREDIT EDDISCHG+69, EDEXTAS+23, EDEXTAS+90, EDFUINST+33
DELETVST^AMERVSIT EDEXTAS+48
EN^DDIOL EDDISCHG+2, EDPROCS+5, EDPROCS+7, EDPROCS+8, EDPROCS+12, EDPROCS+15, EDEXTAS+35, EDEXTAS+42, EDEXTAS+63, EDEXTAS+65
, EDEXTAS+82, EDEXTAS+83
^DIC EDDISCHG+15, EDDISCHG+37, EDPROCS+20, EDPROCS+45, EDEXTAS+33, EDEXTAS+71
^DIK EDPROCS+37
EN^DIK EDPROCS+37
$$GET1^DIQ EDFUINST+5, EDFUINST+12
^DIR EDDISCHG+52, EDPROCS+29, EDEXTAS+9, EDEXTAS+45, EDFUINST+17

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMER(2 - [#9009082] EDFUINST+9
^AMER(2.1 - [#9009082.1] EDEXTAS+65, EDEXTAS+69, EDEXTAS+70, EDEXTAS+72
^AMER(3 - [#9009083] EDPROCS+11, EDEXTAS+32, EDFUINST+10
^AMERVSIT - [#9009080] EDDISCHG+8, EDDISCHG+9, EDDISCHG+32, EDDISCHG+47, EDDISCHG+48, EDDISCHG+56, EDDISCHG+58, EDPROCS+5, EDPROCS+10, EDPROCS+11
, EDPROCS+19, EDPROCS+25, EDPROCS+27, EDEXTAS+4, EDEXTAS+29, EDEXTAS+68
^DD("DD" EDDISCHG+48
^DD(9009080 EDPROCS+42
^VA(200 - [#200] EDDISCHG+10, EDDISCHG+33
^XUSEC("AMERZ9999" EDDISCHG+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EDFUINST+2~
AMERAIEN EDDISCHG~, EDDISCHG+71, EDPROCS~, EDPROCS+53, EDEXTAS~, EDEXTAS+25, EDEXTAS+92, EDFUINST~, EDFUINST+35
AMERDA EDDISCHG~, EDDISCHG+8, EDDISCHG+9, EDDISCHG+32, EDDISCHG+47, EDDISCHG+48, EDDISCHG+56, EDDISCHG+58, EDDISCHG+69, EDPROCS~
, EDPROCS+5, EDPROCS+10, EDPROCS+11, EDPROCS+19, EDPROCS+25, EDPROCS+27, EDPROCS+36, EDPROCS+42, EDEXTAS~, EDEXTAS+4
, EDEXTAS+23, EDEXTAS+29, EDEXTAS+48, EDEXTAS+49*, EDEXTAS+68, EDEXTAS+90, EDFUINST~, EDFUINST+5, EDFUINST+33
AMERDR EDDISCHG+4~, EDDISCHG+5*, EDDISCHG+21*, EDDISCHG+22*, EDDISCHG+41*, EDDISCHG+57*, EDDISCHG+63*, EDDISCHG+68, EDDISCHG+69, EDDISCHG+72!
, EDEXTAS+2~, EDEXTAS+3*, EDEXTAS+17*, EDEXTAS+22, EDEXTAS+23, EDEXTAS+54*, EDEXTAS+59*, EDEXTAS+75*, EDEXTAS+89, EDEXTAS+90
, EDEXTAS+93!
AMEREDNO EDPROCS~, EDPROCS+31*, EDPROCS+33, EDPROCS+46*, EDPROCS+47
AMEREDTS EDDISCHG+3~, EDDISCHG+5*, EDDISCHG+25*, EDDISCHG+44*, EDDISCHG+62*, EDDISCHG+71, EDDISCHG+72!, EDPROCS+1~, EDPROCS+2*, EDPROCS+35*
, EDPROCS+49*, EDPROCS+53, EDPROCS+54!, EDEXTAS+2~, EDEXTAS+3*, EDEXTAS+16*, EDEXTAS+25, EDEXTAS+26*, EDEXTAS+57*, EDEXTAS+78*
, EDEXTAS+92, EDEXTAS+93!
AMERFAC EDEXTAS+2~, EDEXTAS+68*, EDEXTAS+69, EDEXTAS+93!
AMERM EDEXTAS+2~, EDEXTAS+70*, EDEXTAS+93!
AMERNEW EDDISCHG+3~, EDDISCHG+5*, EDDISCHG+19*, EDDISCHG+20, EDDISCHG+21, EDDISCHG+22, EDDISCHG+23, EDDISCHG+39*, EDDISCHG+40, EDDISCHG+41
, EDDISCHG+42, EDDISCHG+54*, EDDISCHG+56, EDDISCHG+57, EDDISCHG+58, EDDISCHG+59, EDDISCHG+60, EDDISCHG+63, EDDISCHG+72!, EDPROCS+1~
, EDPROCS+2*, EDPROCS+32*, EDPROCS+33, EDPROCS+43*, EDPROCS+47, EDPROCS+54!, EDEXTAS+2~, EDEXTAS+3*, EDEXTAS+11*, EDEXTAS+12
, EDEXTAS+13, EDEXTAS+14, EDEXTAS+36*, EDEXTAS+37*, EDEXTAS+40, EDEXTAS+41, EDEXTAS+46*, EDEXTAS+53, EDEXTAS+54, EDEXTAS+55
, EDEXTAS+61, EDEXTAS+72*, EDEXTAS+73*, EDEXTAS+74, EDEXTAS+76, EDEXTAS+93!, EDFUINST+26*, EDFUINST+29, EDFUINST+31, EDFUINST+32
AMERNO EDDISCHG+3~, EDDISCHG+9*, EDDISCHG+10, EDDISCHG+29*, EDDISCHG+32*, EDDISCHG+33, EDDISCHG+72!, EDPROCS+1~, EDPROCS+3*, EDPROCS+9*
, EDPROCS+10*, EDPROCS+11, EDPROCS+24*, EDPROCS+25*, EDPROCS+27, EDPROCS+36, EDPROCS+39*, EDPROCS+46*, EDPROCS+54!
AMEROLD EDDISCHG+3~, EDDISCHG+5*, EDDISCHG+9*, EDDISCHG+20, EDDISCHG+23, EDDISCHG+32*, EDDISCHG+33, EDDISCHG+40, EDDISCHG+42, EDDISCHG+47*
, EDDISCHG+48, EDDISCHG+59, EDDISCHG+60, EDDISCHG+72!, EDPROCS+1~, EDPROCS+2*, EDPROCS+27*, EDPROCS+33, EDPROCS+43*, EDPROCS+47
, EDPROCS+54!, EDEXTAS+2~, EDEXTAS+3*, EDEXTAS+4*, EDEXTAS+5, EDEXTAS+12, EDEXTAS+14, EDEXTAS+29*, EDEXTAS+34, EDEXTAS+36
, EDEXTAS+46, EDEXTAS+53, EDEXTAS+55, EDEXTAS+59, EDEXTAS+64*, EDEXTAS+69*, EDEXTAS+74, EDEXTAS+76, EDEXTAS+86, EDEXTAS+93!
, EDFUINST+2~, EDFUINST+5*, EDFUINST+29, EDFUINST+31
AMEROPNO EDEXTAS+2~, EDEXTAS+28*, EDEXTAS+29*, EDEXTAS+32
AMEROPTN EDEXTAS+2~, EDEXTAS+52*, EDEXTAS+59, EDEXTAS+61, EDEXTAS+81, EDEXTAS+86, EDEXTAS+93!
AMERSTRG EDDISCHG+3~, EDDISCHG+5*, EDDISCHG+23*, EDDISCHG+24, EDDISCHG+25, EDDISCHG+42*, EDDISCHG+43, EDDISCHG+44, EDDISCHG+60*, EDDISCHG+61
, EDDISCHG+62, EDDISCHG+72!, EDPROCS+1~, EDPROCS+2*, EDPROCS+33*, EDPROCS+34, EDPROCS+35, EDPROCS+47*, EDPROCS+48, EDPROCS+49
, EDPROCS+54!, EDEXTAS+2~, EDEXTAS+3*, EDEXTAS+14*, EDEXTAS+15, EDEXTAS+16, EDEXTAS+55*, EDEXTAS+56, EDEXTAS+57, EDEXTAS+76*
, EDEXTAS+77, EDEXTAS+78, EDEXTAS+93!, EDFUINST+30~, EDFUINST+31*, EDFUINST+34, EDFUINST+35
CNT EDFUINST+2~, EDFUINST+7*, EDFUINST+11*, EDFUINST+13, EDFUINST+14
>> DA EDPROCS+36*
>> DA(1 EDPROCS+36*, EDPROCS+42*
DIC EDDISCHG+3~, EDDISCHG+12*, EDDISCHG+16!, EDDISCHG+36*, EDDISCHG+37!, EDDISCHG+72!, EDPROCS+18*, EDPROCS+42*, EDPROCS+45!, EDEXTAS+2~
, EDEXTAS+31*, EDEXTAS+33!, EDEXTAS+66*, EDEXTAS+71!, EDEXTAS+93!
DIC("?" EDDISCHG+7*, EDDISCHG+31*
DIC("A" EDDISCHG+6*, EDDISCHG+29*, EDPROCS+19*, EDEXTAS+30*, EDEXTAS+67*
DIC("B" EDDISCHG+6!, EDDISCHG+10*, EDDISCHG+30!, EDDISCHG+33*, EDPROCS+4!, EDEXTAS+30!, EDEXTAS+32*, EDEXTAS+69*
DIC("P" EDPROCS+42*
DIC("S" EDDISCHG+6!, EDDISCHG+14*, EDDISCHG+35*, EDPROCS+4!, EDPROCS+18*, EDEXTAS+30!, EDEXTAS+31*
DIC(0 EDDISCHG+12*, EDDISCHG+36*, EDPROCS+18*, EDPROCS+42*, EDEXTAS+31*, EDEXTAS+66*
DIK EDPROCS+36*, EDPROCS+37!
DIR EDDISCHG+3~, EDDISCHG+72!, EDEXTAS+2~, EDEXTAS+93!, EDFUINST+2~
DIR("?" EDDISCHG+50*, EDEXTAS+7*
DIR("A" EDDISCHG+49*, EDPROCS+28*, EDEXTAS+6*, EDEXTAS+43*, EDFUINST+16*
DIR("B" EDDISCHG+48*, EDPROCS+28*, EDEXTAS+5*, EDEXTAS+44*, EDFUINST+5*
DIR(0 EDDISCHG+49*, EDPROCS+28*, EDEXTAS+6*, EDEXTAS+43*, EDFUINST+8*, EDFUINST+14*
DR EDDISCHG+3~, EDEXTAS+26*, EDEXTAS+93!, EDFUINST+30~, EDFUINST+32*, EDFUINST+33
DTOUT EDDISCHG+17!, EDDISCHG+38!, EDDISCHG+53, EDDISCHG+67!, EDPROCS+52!, EDEXTAS+10, EDEXTAS+21!, EDEXTAS+38!, EDEXTAS+88!, EDFUINST+25!
DUOUT EDDISCHG+17!, EDDISCHG+38!, EDDISCHG+53, EDDISCHG+67!, EDPROCS+52!, EDEXTAS+10, EDEXTAS+21!, EDEXTAS+38!, EDEXTAS+88!, EDFUINST+25!
DUZ EDDISCHG+2
FI EDFUINST+2~, EDFUINST+10*, EDFUINST+12, EDFUINST+13
FIIEN EDFUINST+2~, EDFUINST+9*, EDFUINST+10
>> INS( EDFUINST+13*, EDFUINST+23
>> INSNM EDFUINST+12*, EDFUINST+13, EDFUINST+14
>> SKIP EDPROCS+17*, EDPROCS+26*, EDPROCS+41
U EDDISCHG+8, EDDISCHG+9, EDDISCHG+10, EDDISCHG+32, EDDISCHG+33, EDDISCHG+47, EDDISCHG+48, EDDISCHG+56, EDDISCHG+58, EDPROCS+5
, EDPROCS+12, EDPROCS+19, EDPROCS+25, EDPROCS+42, EDEXTAS+4, EDEXTAS+29, EDEXTAS+32, EDEXTAS+65, EDEXTAS+68, EDEXTAS+69
, EDEXTAS+72, EDFUINST+13, EDFUINST+23
>> X EDPROCS+44*
Y EDDISCHG+3~, EDDISCHG+18, EDDISCHG+19, EDDISCHG+39, EDDISCHG+48*, EDDISCHG+51, EDDISCHG+53*, EDDISCHG+54, EDDISCHG+59*, EDDISCHG+64*
, EDDISCHG+72!, EDPROCS+1~, EDPROCS+2*, EDPROCS+11*, EDPROCS+16, EDPROCS+18*, EDPROCS+21*, EDPROCS+25, EDPROCS+30, EDPROCS+39*
, EDPROCS+43, EDPROCS+44, EDPROCS+46, EDPROCS+54!, EDEXTAS+2~, EDEXTAS+3*, EDEXTAS+8, EDEXTAS+10*, EDEXTAS+11, EDEXTAS+12*
, EDEXTAS+17, EDEXTAS+18*, EDEXTAS+37, EDEXTAS+46, EDEXTAS+47, EDEXTAS+72, EDEXTAS+74, EDEXTAS+75, EDEXTAS+93!, EDFUINST+23*
, EDFUINST+26
>> Y1 EDPROCS+11*, EDPROCS+12
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables |  All