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

Package: Emergency Room

Routine: AMER2B


Information

AMER2B ; IHS/ANMC/GIS - COST RECOVERY DATA RELATED TO INJURIES ;

Source Information

Source file <AMER2B.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Emergency Room 7 OUT^AMER  $$CAT^AMER0  CKSC^AMER1  $$TCK^AMER2A  INJ^AMERBEDD  $$DX^AMERPOV  LEX^AMERUTIL  
VA Fileman 3 ^DIC  $$GET1^DIQ  ^DIR  
Kernel 1 $$UP^XLFSTR  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Emergency Room 1 AMEREDTI  

Entry Points

Name Comments DBIA/ICR reference
QD35A ;
QD35 ; SAFETY EQUIPMENT OF INJURY
CKANS()
QD41 ; DESCIPTION OF MVA LOCATION
XQD33
QD34 ; PLACE OF INJURY
QD33E
QD33(AMERPCC,DTOUT) ; CAUSE OF INJURY
QD31 ; CITY OF INJURY
QD32 ; TIME OF INJURY
DESC(X,D0,CODE,VDATE) ;Return the ICD Description

External References

Name Field # of Occurrence
OUT^AMER QD31+12, QD32+13, XQD33, QD34+15, QD35+16, QD41+4
$$CAT^AMER0 QD34+3, QD35+4
CKSC^AMER1 QD31+3, QD41+3
$$TCK^AMER2A QD32+3
INJ^AMERBEDD QD31+9, QD32+10, QD33E+57, QD34+12, QD35+13
$$DX^AMERPOV QD33+24, DESC+5
LEX^AMERUTIL QD33E+12
^DIC QD34+4, QD35+5
$$GET1^DIQ QD33+10, QD33+11, QD33+13, QD33+16
^DIR QD31+2, QD32+2, QD33+28, QD33E+4, QD33E+37, QD41+2
$$UP^XLFSTR QD35A+11

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Current Cause of injury: ",DESC,!
  • Line Location: QD33+25
Function Call: WRITE
  • Prompt: !!,"<No results returned. Please try a different search string>",!
  • Line Location: QD33E+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: QD33E+23
Function Call: WRITE
  • Prompt: !,LEX,?4,$P(ND,U,2),?14,$E($P(ND,U,3),1,64)
  • Line Location: QD33E+30
Function Call: WRITE
  • Prompt: !,"Press <RETURN> to see more, '^' to exit this list, OR"
  • Line Location: QD33E+34
Routine Call
  • DIC
  • Line Location:
    • QD34+4
    • QD35+5
Routine Call
  • DIR
  • Line Location:
    • QD31+2
    • QD32+2
    • QD33+28
    • QD33E+4
    • QD33E+37
    • QD41+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMER(3 - [#9009083] QD34+2, QD35+3
^DD("DD" QD32+1
^TMP("AMER" QD31+1, QD32+1, QD32+3, QD33+17, QD34+2, QD35+3, QD35A+9, QD35A+16!, QD35A+20!, QD41+1
^TMP("AMERICD" QD33E+18!, QD33E+19*, QD33E+24, QD33E+29, QD33E+49

Label References

Name Line Occurrences
$$CKANS QD33E+38
$$DESC QD35A+10
QD31 QD31+3
QD32 QD32+3
QD33E QD33E+15, QD33E+44, QD33E+46
QD41 QD41+3
XQD33 QD33+20

Naked Globals

Name Field # of Occurrence
^(32 QD32+1
^(34 QD34+2
^(35 QD35+3
^(41 QD41+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QD34+2*, QD35+1~, QD35+3*, QD35A+8~, QD35A+9*, QD35A+10
A QD35+1~
AMERCKSC QD31+3!, QD41+3!
>> AMERDA QD33+16
>> AMERDFN QD35A+7, QD35A+10
>> AMEREFLG QD35A+21
AMERPCC QD33~, QD33+10*, QD33+11
>> AMERQUIT QD35+16, QD41+4
>> AMERRUN QD35A+15*, QD35A+21*, QD35A+22*, QD41+5*
CAUSE QD33+9~, QD33+16*, QD33+17*, QD33+20, QD33+24, QD33+36
CODE DESC~, DESC+5
D0 DESC~, DESC+5
DA QD31+2!
DESC QD33+21~, QD33+24*, QD33+25, QD35A+8~, QD35A+10*, QD35A+11
>> DFN QD33+10, QD33+13
DIC QD34+3*, QD34+4!, QD35+4*, QD35+5!
DIC("A" QD34+1*, QD35+2*
DIC("B" QD34+1!, QD34+2*, QD35+2!, QD35+3*
DIC("S" QD34+3*, QD35+4*
DIC(0 QD34+3*, QD35+4*
DIR QD31+2!, QD32+2!, QD33+8~, QD33+21~, QD33E+26~, QD41+2!
DIR("?" QD32+2*, QD33E+3*, QD41+2*
DIR("A" QD31+2*, QD32+2*, QD33+27*, QD33E+2*, QD33E+35*, QD41+2*
DIR("B" QD31+1*, QD32+1*, QD33+26*, QD41+1!*
DIR(0 QD31+2*, QD32+2*, QD33+27*, QD33E*, QD33E+36*, QD41+2*
DIROUT QD33+8~, QD33E+26~, CKANS+3
DIRUT QD33+8~, QD33E+5, QD33E+26~, CKANS+9
DT QD33+12
DTOUT QD33~, QD33+21~, QD33+33, QD33E+26~, CKANS+6
DUOUT QD33+8~, QD33+21~, QD33+32, QD33E+26~, CKANS+6
EDIT QD33+9~, QD33+20*, QD33+29*
I QD35A+8~, QD35A+11*, QD35A+16*, QD35A+20*
ICDDESC DESC+2~, DESC+5*, DESC+6
INJ QD31+6~, QD31+7*, QD31+9, QD31+10!, QD32+7~, QD32+8*, QD32+10, QD32+11!, QD33E+52~, QD33E+55*
, QD33E+57, QD33E+58!, QD34+7~, QD34+10*, QD34+12, QD34+13!, QD35+8~, QD35+11*, QD35+13, QD35+14!
INP QD33+8~
LEX QD33+8~, QD33E+19*, QD33E+24*, QD33E+29, QD33E+30, QD33E+33, QD33E+35, QD33E+36
MVA QD35A+2~, QD35A+4*, QD35A+11*, QD35A+14
ND QD33E+26~, QD33E+29*, QD33E+30
QUIT QD33+8~, QD33E+24*, QD33E+38*, QD33E+44, QD33E+45
RET QD33+8~, QD33E+12, QD33E+15!, QD33E+44!, QD33E+46!
RET( QD33E+19
RET("" QD33E+15
SELECT QD33+8~, QD33E+22*, QD33E+24, QD33E+41*, QD33E+46, QD33E+49
SEX QD33+8~, QD33+13*, QD33E+12
TOTREC QD33+8~, QD33E+19*, QD33E+33
U QD33E+30, QD33E+49, QD34+2, QD35+3, QD35A+9
VDATE DESC~, DESC+5
VDT QD33+8~, QD33+11*, QD33+12*, QD33+24, QD33E+12
X QD33+32*, QD33+33*, QD33E+5*, QD33E+26~, QD33E+45*, DESC~, DESC+5
Y QD31+7, QD31+8~, QD32+1*, QD32+3!, QD32+4*, QD32+8, QD32+9~, QD33+29, QD33+32*, QD33+33*
, QD33+36*, QD33E+12, QD33E+26~, QD33E+41, QD33E+45*, QD33E+49*, QD33E+55, QD33E+56~, QD34+4*, QD34+10
, QD34+11~, QD35+5*, QD35+11, QD35+12~
Z QD35+1~
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 |  Naked Globals |  Local Variables |  All