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 |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AMEREDTI

Package: Emergency Room

Routine: AMEREDTI


Information

AMEREDTI ; IHS/OIT/SCR - SUB-ROUTINE FOR ER VISIT EDIT of INJURY INFORMATION

Source Information

Source file <AMEREDTI.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Emergency Room 7 $$CAT^AMER0  $$TCK^AMER2A  QD33^AMER2B  UPDPOV^AMER31  ($$EDAUDIT,$$EDDISPL,DIEREC)^AMEREDAU  DIE^AMEREDIT  ($$POV,$$S)^AMERUTIL  
VA Fileman 4 EN^DDIOL  ^DIC  $$GET1^DIQ  ^DIR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Emergency Room 1 AMEREDIT  

Entry Points

Name Comments DBIA/ICR reference
INJ9
INJ8
INJ3
INJ2
EDINJRY(AMERDA,AMERAIEN)
INJ7
INJ6
INJ5
INJURY(AMERDA,AMERAIEN) ;New edit injury section
INJUPD ;Push changes to V POV
XINJURY ;
INJ
INJ4
INJ1
INJ11
INJ10

External References

Name Field # of Occurrence
$$CAT^AMER0 INJ2+5, INJ3+8
$$TCK^AMER2A INJ4+21
QD33^AMER2B INJ1+12
UPDPOV^AMER31 INJUPD+28, INJUPD+54
$$EDAUDIT^AMEREDAU INJ+34, INJ1+22, INJ2+20, INJ3+21, INJ4+28, INJ5+21, INJ6+20, INJ7+20, INJ8+20, INJ9+20
, INJ10+20, INJ11+20
$$EDDISPL^AMEREDAU INJ+34, INJ1+22, INJ2+20, INJ3+21, INJ4+28
DIEREC^AMEREDAU INJ+37, INJ1+25, INJ2+24, INJ3+24, INJ4+32, INJ5+25, INJ6+24, INJ7+24, INJ8+24, INJ9+24
, INJ10+24, INJ11+24
DIE^AMEREDIT INJ+35, INJ1+23, INJ2+22, INJ3+22, INJ4+30, INJ5+23, INJ6+22, INJ7+22, INJ8+22, INJ9+22
, INJ10+22, INJ11+22
$$POV^AMERUTIL INJUPD+3
$$S^AMERUTIL INJUPD+33, INJUPD+35
EN^DDIOL INJ+7, INJ1+6
^DIC INJ2+8, INJ3+10
$$GET1^DIQ INJ+10, INJ1+2, INJ1+3, INJ1+9, INJ2+3, INJ2+4, INJ3+4, INJ3+5, INJ4+4, INJ4+8
, INJ5+4, INJ6+4, INJ7+4, INJ8+4, INJ9+4, INJ10+4, INJ11+4, INJUPD+12, INJUPD+16, INJUPD+20
^DIR INJ+13, INJ4+15, INJ5+9, INJ6+10, INJ7+10, INJ8+10, INJ9+10, INJ10+10, INJ11+10, INJUPD+45

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $$S^AMERUTIL("RVN")
  • Line Location: INJUPD+33
Function Call: WRITE
  • Prompt: !!,"Current POV information on file:"
  • Line Location: INJUPD+34
Function Call: WRITE
  • Prompt: $$S^AMERUTIL("RVF")
  • Line Location: INJUPD+35
Function Call: WRITE
  • Prompt: !!,"# ",?3,"P/S",?7,"Code",?18,"Description",?50,"Provider Narrative"
  • Line Location: INJUPD+36
Function Call: WRITE
  • Prompt: !,CNT,?3,$P(AMERPOV(CNT),U,2),?7,$P(AMERPOV(CNT),U),?18,$E($P(AMERPOV(CNT),U,5),1,30),?50,$E($P(AMERPOV(CNT),U,3),1,29)
  • Line Location: INJUPD+39
Function Call: WRITE
  • Prompt: !
  • Line Location: INJUPD+44
Routine Call
  • DIC
  • Line Location:
    • INJ2+8
    • INJ3+10
Routine Call
  • DIR
  • Line Location:
    • INJ+13
    • INJ4+15
    • INJ5+9
    • INJ6+10
    • INJ7+10
    • INJ8+10
    • INJ9+10
    • INJ10+10
    • INJ11+10
    • INJUPD+45

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" INJ4+5
^ICD9 - [#80] INJ1+15
^TMP("AMER" INJUPD+9!, INJUPD+13*, INJUPD+17*, INJUPD+21*

Label References

Name Line Occurrences
INJ INJ1
INJ1 INJ2
INJ10 INJ11
INJ2 INJ3
INJ3 INJ4
INJ4 INJ5
INJ5 INJ6
INJ6 INJ7
INJ7 INJ8
INJ8 INJ9
INJ9 INJ10
INJUPD INJ+3, INJ1, INJ2, INJ3, INJ4, INJ5, INJ6, INJ7, INJ8, INJ9
, INJ10, INJ11
INJURY EDINJRY+3
XINJURY INJUPD+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AMERAIEN EDINJRY~, EDINJRY+3, INJURY~, INJ+37, INJ1+25, INJ2+24, INJ3+24, INJ4+32, INJ5+25, INJ6+24
, INJ7+24, INJ8+24, INJ9+24, INJ10+24, INJ11+24
AMERDA EDINJRY~, EDINJRY+3, INJURY~, INJ+10, INJ+35, INJ1+2, INJ1+9, INJ1+23, INJ2+3, INJ2+22
, INJ3+4, INJ3+22, INJ4+4, INJ4+8, INJ4+30, INJ5+4, INJ5+23, INJ6+4, INJ6+22, INJ7+4
, INJ7+22, INJ8+4, INJ8+22, INJ9+4, INJ9+22, INJ10+4, INJ10+22, INJ11+4, INJ11+22, INJUPD+12
, INJUPD+16, INJUPD+20
AMERPCC INJ1+1~, INJ1+2*, INJ1+3, INJ1+12, INJUPD+3
AMERPOV INJURY+4~, INJUPD+3*, INJUPD+6, INJUPD+24, INJUPD+31
AMERPOV( INJUPD+38, INJUPD+39, INJUPD+52, INJUPD+53
AMERPOV(1 INJUPD+26, INJUPD+27
AMERQUIT INJ1+1~
AMERSTRG INJ+4~, INJ+34*, INJ+36, INJ+37, INJ1+20~, INJ1+22*, INJ1+24, INJ1+25, INJ2+19~, INJ2+20*
, INJ2+23, INJ2+24, INJ3+19~, INJ3+21*, INJ3+23, INJ3+24, INJ4+27~, INJ4+28*, INJ4+31, INJ4+32
, INJ5+20~, INJ5+21*, INJ5+24, INJ5+25, INJ6+19~, INJ6+20*, INJ6+23, INJ6+24, INJ7+19~, INJ7+20*
, INJ7+23, INJ7+24, INJ8+19~, INJ8+20*, INJ8+23, INJ8+24, INJ9+19~, INJ9+20*, INJ9+23, INJ9+24
, INJ10+19~, INJ10+20*, INJ10+23, INJ10+24, INJ11+19~, INJ11+20*, INJ11+23, INJ11+24
CAUSE INJ1+1~, INJ1+9*, INJ1+19, INJ1+22
CNT INJURY+4~, INJUPD+37*, INJUPD+38, INJUPD+39, INJUPD+50*
DFN INJ1+1~, INJ1+3*
DIC INJ2+1~, INJ2+5*, INJ2+8!, INJ3+1~, INJ3+8*, INJ3+10!
DIC("A" INJ2+2*, INJ3+9*
DIC("B" INJ2+2!, INJ2+4*, INJ3+5*
DIC("S" INJ2+5*, INJ3+8*
DIC(0 INJ2+5*, INJ3+8*
DIPN INJ8+1~, INJ8+4*, INJ8+5, INJ8+18, INJ8+20
DIR INJ+4~, INJ4+1~, INJ5+1~, INJ6+1~, INJ7+1~, INJ8+1~, INJ9+1~, INJ10+1~, INJ11+1~
DIR("?" INJ4+12*, INJ6+9*, INJ7+9*, INJ8+9*, INJ9+9*, INJ10+9*, INJ11+9*
DIR("A" INJ+12*, INJ4+11*, INJ5+8*, INJ6+8*, INJ7+8*, INJ8+8*, INJ9+8*, INJ10+8*, INJ11+8*, INJUPD+43*
DIR("B" INJ+11*, INJ4+5*, INJ5+5*, INJ6+5*, INJ7+5*, INJ8+5*, INJ9+5*, INJ10+5*, INJ11+5*
DIR(0 INJ+12*, INJ4+11*, INJ5+8*, INJ6+8*, INJ7+8*, INJ8+8*, INJ9+8*, INJ10+8*, INJ11+8*, INJUPD+42*
>> DIRUT INJUPD+46
DR INJ+4~, INJ+27*, INJ+30*, INJ+33, INJ+35, INJ1+20~, INJ1+21*, INJ1+23, INJ2+19~, INJ2+21*
, INJ2+22, INJ3+19~, INJ3+20*, INJ3+22, INJ4+27~, INJ4+29*, INJ4+30, INJ5+20~, INJ5+22*, INJ5+23
, INJ6+19~, INJ6+21*, INJ6+22, INJ7+19~, INJ7+21*, INJ7+22, INJ8+19~, INJ8+21*, INJ8+22, INJ9+19~
, INJ9+21*, INJ9+22, INJ10+19~, INJ10+21*, INJ10+22, INJ11+19~, INJ11+21*, INJ11+22
DTOUT INJ+4~, INJ+18, INJ1+1~, INJ1+12, INJ1+13, INJ2+1~, INJ2+12, INJ3+1~, INJ3+14, INJ4+1~
, INJ4+14~, INJ4+19, INJ5+1~, INJ5+13, INJ6+1~, INJ6+15, INJ7+1~, INJ7+15, INJ8+1~, INJ8+15
, INJ9+1~, INJ9+15, INJ10+1~, INJ10+15, INJ11+1~, INJ11+15
DUOUT INJ+4~, INJ+17, INJ1+1~, INJ2+1~, INJ2+11, INJ3+1~, INJ3+13, INJ4+1~, INJ4+14~, INJ4+18
, INJ5+1~, INJ5+12, INJ6+1~, INJ6+14, INJ7+1~, INJ7+14, INJ8+1~, INJ8+14, INJ9+1~, INJ9+14
, INJ10+1~, INJ10+14, INJ11+1~, INJ11+14
EDIT INJ1+1~
INJ INJ+4~, INJ+10*, INJ+11, INJ+21, INJ+24, INJ+27, INJ+34
INJDT INJ4+1~, INJ4+4*, INJ4+5, INJ4+26, INJ4+28
MVAC INJ7+1~, INJ7+4*, INJ7+5, INJ7+18, INJ7+20
MVAL INJ6+1~, INJ6+4*, INJ6+5, INJ6+18, INJ6+20
NCAUSE INJ1+1~, INJ1+16*, INJ1+19, INJ1+21, INJ1+22
NDIPN INJ8+1~, INJ8+11*, INJ8+18, INJ8+20, INJ8+21
NINJ INJ+4~, INJ+14*, INJ+21, INJ+24, INJ+27, INJ+30, INJ+34
NINJDT INJ4+1~, INJ4+22*, INJ4+23*, INJ4+26, INJ4+28, INJ4+29
NMVAC INJ7+1~, INJ7+11*, INJ7+18, INJ7+20, INJ7+21
NMVAL INJ6+1~, INJ6+11*, INJ6+18, INJ6+20, INJ6+21
NOINS INJ10+1~, INJ10+11*, INJ10+18, INJ10+20, INJ10+21
NOWN INJ9+1~, INJ9+11*, INJ9+18, INJ9+20, INJ9+21
NPLACE INJ2+1~, INJ2+14*, INJ2+15*, INJ2+18, INJ2+20, INJ2+21
NPOL INJ11+1~, INJ11+11*, INJ11+18, INJ11+20, INJ11+21
NSAFE INJ3+1~, INJ3+17*, INJ3+18, INJ3+20, INJ3+21
NTOWN INJ5+1~, INJ5+15*, INJ5+16*, INJ5+19, INJ5+21, INJ5+22
OINS INJ10+1~, INJ10+4*, INJ10+5, INJ10+18, INJ10+20
OWN INJ9+1~, INJ9+4*, INJ9+5, INJ9+18, INJ9+20
PLACE INJ2+1~, INJ2+3*, INJ2+4, INJ2+18, INJ2+20
POL INJ11+1~, INJ11+4*, INJ11+5, INJ11+18, INJ11+20
POV INJURY+4~
>> POVCNT INJUPD+6*, INJUPD+37, INJUPD+42
POVLST INJUPD+32~, INJUPD+47*, INJUPD+50
QUIT INJURY+4~, INJ*, INJ+3, INJ+17*, INJ+18*, INJ+21*, INJ+27*, INJ1*, INJ1+2*, INJ1+3*
, INJ1+13*, INJ1+14*, INJ1+15*, INJ2*, INJ2+11*, INJ2+12*, INJ3*, INJ3+13*, INJ3+14*, INJ4*
, INJ4+13, INJ4+18*, INJ4+19*, INJ5*, INJ5+12*, INJ5+13*, INJ6*, INJ6+14*, INJ6+15*, INJ7*
, INJ7+14*, INJ7+15*, INJ8*, INJ8+14*, INJ8+15*, INJ9*, INJ9+14*, INJ9+15*, INJ10*, INJ10+14*
, INJ10+15*, INJ11*, INJ11+14*, INJ11+15*
SAFE INJ3+1~, INJ3+4*, INJ3+5, INJ3+18, INJ3+21
TOWN INJ5+1~, INJ5+4*, INJ5+5, INJ5+19, INJ5+21
U INJUPD+24, INJUPD+27, INJUPD+31, INJUPD+39, INJUPD+53
VAL INJURY+4~, INJUPD+12*, INJUPD+13, INJUPD+16*, INJUPD+17, INJUPD+20*, INJUPD+21, INJUPD+50*, INJUPD+52, INJUPD+53
VDT INJ4+1~, INJ4+8*, INJ4+21
VPOVIEN INJUPD+25~, INJUPD+27*, INJUPD+28, INJUPD+51~, INJUPD+53*, INJUPD+54
X INJ+4~, INJ1+14, INJ2+1~, INJ3+1~, INJ4+1~, INJ5+1~, INJ6+1~, INJ7+1~, INJ8+1~, INJ9+1~
, INJ10+1~, INJ11+1~, INJUPD+46*
Y INJ+4~, INJ+14, INJ1+15, INJ1+16, INJ2+1~, INJ2+14, INJ2+15, INJ3+1~, INJ3+17, INJ4+1~
, INJ4+5*, INJ4+13, INJ4+21, INJ4+22, INJ4+33*, INJ4+34*, INJ5+1~, INJ5+15, INJ6+1~, INJ6+11
, INJ7+1~, INJ7+11, INJ8+1~, INJ8+11, INJ9+1~, INJ9+11, INJ10+1~, INJ10+11, INJ11+1~, INJ11+11
, INJUPD+47
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All