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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AMER2

Package: Emergency Room

Routine: AMER2


Information

AMER2 ; IHS/ANMC/GIS - ER DISCHARGE DATA COLLECTION ;

Source Information

Source file <AMER2.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Emergency Room 5 OUT^AMER  UTL^AMER0  CHECK^AMER1A  ($$TCK,$$TVAL)^AMER2A  INJ^AMERBEDD  
VA Fileman 4 EN^DDIOL  ^DIC  $$GET1^DIQ  ^DIR  
IHS Emergency Dept Dashboard 1 INJURY^BEDDINJ  

Entry Points

Name Comments DBIA/ICR reference
REM(AMERO)
PQ
PICK ;
QD6
QD7 ; ER CONSULTANT TYPE
TCK(Z,T,X,A) ; TIME CHECK WHERE Z=TIME,T=COMPARISON TIME,X=1:AFTER,X=0:BEFORE AND A=NARRATIVE
QD5 ; WORK RELATED
QD2 ; INJURY
QD1 ; NAME
PREV
QD8 ; ER CONSULTANT TIME

External References

Name Field # of Occurrence
OUT^AMER QD2+27, QD5+3, QD6+4, PQ+10
UTL^AMER0 QD1+3
CHECK^AMER1A PICK+1
$$TCK^AMER2A QD8+7
$$TVAL^AMER2A QD8+8
INJ^AMERBEDD QD2+32, QD5+9
INJURY^BEDDINJ QD2+4
EN^DDIOL QD7+14, QD7+47, QD7+48
^DIC QD7+10, QD7+41, PQ+10
$$GET1^DIQ QD2+4
^DIR QD2+26, QD5+2, QD6+3, QD7+53, QD8+6, REM+3, PQ+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?5,"***** PROCESS PATIENT WHO LEFT BEFORE VISIT WAS COMPLETED *****",!!,*7
  • Line Location: QD1+1
Function Call: WRITE
  • Prompt: !!,*7,"Sorry, this time must be ",$S(X:"AFTER",1:"BEFORE")," the time of ",A,": ",Y,!,"Please try again...",!
  • Line Location: TCK+6
Function Call: WRITE
  • Prompt: !,"You have already selected =>",!
  • Line Location: PREV+0
Function Call: WRITE
  • Prompt: ?3,$P(^(%),U,2),!
  • Line Location: PREV+1
Function Call: WRITE
  • Prompt: " ",$P($G(^DPT(%,0)),U)
  • Line Location: PQ+8
Routine Call
  • DIC
  • Line Location:
    • QD7+10
    • QD7+41
    • PQ+10
Routine Call
  • DIR
  • Line Location:
    • QD2+26
    • QD5+2
    • QD6+3
    • QD7+53
    • QD8+6
    • REM+3
    • PQ+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^VA(200 - [#200] Classic Fileman Calls
^AMERADM - [#9009081] GET1^DIQ
^AMER(2.9 - [#9009082.9] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMERADM("B" PICK+1
^DD("DD" QD8+2, TCK+3
^DPT - [#2] PQ+8
^TMP("AMER TEMP" QD1+2!, PQ+8
^TMP("AMER" QD2+14*, QD2+15*, QD2+16*, QD2+17*, QD2+18*, QD2+19*, QD2+20*, QD2+21*, QD2+22*, QD2+23*
, QD2+25, QD2+35, QD2+37!, QD5+1, QD6+2, QD6+5!*, QD6+8*, QD7+4, QD7+9, QD7+13
, QD7+14!, QD7+19*, QD7+20*, QD7+22, QD7+23, QD7+24!, QD7+26!, QD7+35, QD7+46!, QD7+50*
, QD7+56, QD8+2, QD8+7, QD8+8, QD8+10*, QD8+11*, PREV+1

Label References

Name Line Occurrences
$$REM QD7+25
PICK QD1+2
PQ PQ+13
QD8 QD7+31, QD8+7, QD8+8

Naked Globals

Name Field # of Occurrence
^( PREV+1, PQ+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% TCK+1~, PREV+1*, PQ+8*, PQ+11!
A TCK~, TCK+2, TCK+6
AMERDEL QD7+2~, QD7+61!
>> AMERDFN QD1+3, PQ+14*
>> AMERDNA QD1+1, QD1+4
>> AMEREFLG QD2+34, QD2+35, QD5+3, QD6+6
>> AMERFIN QD2+34*, QD2+36*
AMERI PQ+10*, PQ+11!
AMERO QD7+2~, QD7+3*, QD7+4*, QD7+12*, QD7+13*, QD7+14, QD7+21*, QD7+22*, QD7+23, QD7+26
, QD7+56*, QD7+61!, REM~
>> AMEROPT QD7+8*, QD7+55*
AMERPCC QD2+3~, QD2+4*
>> AMERQUIT QD1+2, QD7+30*, PICK+1*, PICK+2, PQ+5*, PQ+12
AMERREM QD7+2~, QD7+3*, QD7+6*, QD7+25*, QD7+26, QD7+29, QD7+61!
>> AMERRUN QD1+4*, QD1+5*, QD2+34*, QD2+35*, QD2+36*, QD2+38*, QD6+5*, QD6+6*, QD7+1*, QD7+18*
, QD7+30*
AMERSNO QD7+2~, QD7+3*, QD7+4*, QD7+11, QD7+19, QD7+20, QD7+23, QD7+24, QD7+35, QD7+46
, QD7+50, QD7+55*, QD7+56*, QD7+61!, QD8+2, QD8+10, QD8+11
AMERSTOP QD7+2~, QD7+3*, QD7+5, QD7+15*, QD7+17*, QD7+18*, QD7+33*, QD7+45*, QD7+55*, QD7+58*
, QD7+61!
B PQ*, PQ+2, PQ+7, PQ+11!
D PQ+11!
>> DFN QD2+4
DIC QD7+2~, QD7+7*, QD7+37*, QD7+41!, QD7+61!, PQ+9*, PQ+11!
DIC("?" QD7+38*
DIC("A" QD7+8*, QD7+36*
DIC("B" QD7+9*, QD7+34!, QD7+35*
DIC("S" QD7+7*, QD7+40*, PQ+9*
DIC(0 QD7+7*, QD7+37*, PQ+9*
DIR QD2+26!, QD5+2!, QD6+1~, QD6+3!, QD7+2~, QD7+61!, QD8+1~, QD8+6!, PQ+4!
DIR("?" QD8+5*
DIR("A" QD2+26*, QD5+2*, QD6+3*, QD7+51*, QD8+4*, REM+1*, PQ+2*
DIR("B" QD2+25*, QD5+1*, QD6+2*, QD7+52*, QD8+2*, REM+2*, PQ+2*
DIR(0 QD2+26*, QD5+2*, QD6+3*, QD7+52*, QD8+4*, REM+2*, PQ+2*
>> DIROUT QD7+17*
DTOUT QD7+33!, QD7+44, QD7+45!, PQ+3, PQ+4!
DUOUT QD7+33!, QD7+44, QD7+45!, PQ+3, PQ+4!
EXEC QD2+5~, QD2+8*
>> I QD2+37*, PQ, PQ+10*
INJ QD2+3~, QD2+5~, QD2+30*, QD2+32, QD5+6~, QD5+7*, QD5+9, QD5+10!
INJ("ICIEN" QD2+17
INJ("INDAT" QD2+16
INJ("INJEQ" QD2+19
INJ("INLOC" QD2+15
INJ("INSCO" QD2+20
INJ("INSET" QD2+18
INJ("INSPO" QD2+21
INJ("ISINJ" QD2+11
INJ("MVLOC" QD2+22
INJ("WKREL" QD2+23
T TCK~, TCK+4, TCK+5
U QD2+34, QD5+3, QD7+9, QD7+23, QD7+30, PREV+1, PQ+3, PQ+5, PQ+8
X QD1+3*, QD5+3, QD6+4, QD7+11, QD7+17, QD7+18, QD7+30, TCK~, TCK+4, TCK+5
, TCK+6, PQ+3*, PQ+5, PQ+6*, PQ+7*, PQ+8*, PQ+11!
Y QD1+3*, QD2+30, QD2+31~, QD2+34, QD2+35, QD2+36, QD5+7, QD5+8~, QD6+5, QD6+6
, QD6+7, QD7+7*, QD7+19, QD7+20, QD7+23, QD7+44, QD7+50, QD7+54, QD8+1~, QD8+2*
, QD8+7!, QD8+8!, QD8+10, QD8+11, REM+4, TCK+1~, TCK+3*, TCK+6, PQ+3, PQ+4!
, PQ+13, PQ+14
Z TCK~, TCK+2, TCK+3, TCK+4, TCK+5

Marked Items

Name Field # of Occurrence
$T(INJURY^BEDDINJ QD2+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All