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: AMER2A

Package: Emergency Room

Routine: AMER2A


Information

AMER2A ; IHS/ANMC/GIS -ISC - OVERFLOW FROM AMER2 ;

Source Information

Source file <AMER2A.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
VA Fileman 7 H^%DTC  ^DIC  YN^DICN  FILE^DIE  $$IENS^DILF  $$GET1^DIQ  ^DIR  
Emergency Room 4 OUT^AMER  $$CAT^AMER0  $$CKHLOC^AMERBSD  $$EXISTING^AMERPCC  

Caller Graph

Caller Graph Total: 11

Package Total Caller Graph
Emergency Room 10 AMER2  AMER2B  AMER3  AMEREDTA  AMEREDTD  AMEREDTI  AMEREDTT  AMERPCC  
AMERPOV  AMERTIME  
IHS Emergency Dept Dashboard 1 BEDDUTL2  

Entry Points

Name Comments DBIA/ICR reference
QD28(AMERPCC) ; Decision to admit date/time - AMER*3.0*6
TVAL(Z,T,H) ; ENTRY POINT FROM AMER2 and multiple editing routines
; VALIDATE THE TIME WHERE Z=TIME,T=COMPARISON TIME AND H=MAX HOURS ALLOWED
TCK(Z,T,X,A) ; ENTRY POINT FROM AMER2
; TIME CHECK WHERE Z=TIME,T=COMPARISON TIME,X=1:AFTER,X=0:BEFORE AND A=NARRATIVE
QD21 ; PROVIDER
QD20 ; CLINIC TYPE
QD23 ; INITIAL TRIAGE
QD22 ; TRIAGE NURSE
QD25 ; DOC TIME
QD24 ; TRIAGE TIME
QD28E ;Pull current date/time from PCC
SYNCCL(AMERDA,AMERPCC) ;Sync the ER VISIT clinic with the PCC clinic
GETCLN(AUPNVSIT) ;Return the ER Clinic for the PCC hospital location
QD20A ;

External References

Name Field # of Occurrence
H^%DTC TVAL+4, TVAL+5
OUT^AMER QD20A+52, QD21+18, QD22+9, QD23+5, QD24+8, QD25+14
$$CAT^AMER0 QD20A+39
$$CKHLOC^AMERBSD QD20A+50
$$EXISTING^AMERPCC QD20A+31
^DIC QD20A+41, QD21+16, QD22+7
YN^DICN TVAL+9
FILE^DIE QD28E+20, SYNCCL+44, SYNCCL+51
$$IENS^DILF GETCLN+13
$$GET1^DIQ QD20A+19, QD20A+20, QD20A+24, QD20A+34, QD28E+1, QD28E+3, QD28E+5, SYNCCL+19, SYNCCL+26, SYNCCL+35
, SYNCCL+36, SYNCCL+41, GETCLN+6, GETCLN+9, GETCLN+14, GETCLN+16, GETCLN+23, GETCLN+24
^DIR QD23+4, QD24+4, QD25+8, QD28E+8

Interaction Calls

Name Line Occurrences
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+7
Function Call: WRITE
  • Prompt: !!,*7,"This means a really long delay since the time of admission: ",Y,!,"Are you sure"
  • Line Location: TVAL+9
Function Call: WRITE
  • Prompt: !
  • Line Location: TVAL+9
Routine Call
  • DIC
  • Line Location:
    • QD20A+41
    • QD21+16
    • QD22+7
Routine Call
  • DIE
  • Line Location:
    • QD28E+20
    • SYNCCL+44
    • SYNCCL+51
Routine Call
  • DIR
  • Line Location:
    • QD23+4
    • QD24+4
    • QD25+8
    • QD28E+8

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^DIC(40.7 - [#40.7] GET1^DIQ
^AUPNVSIT - [#9000010] GET1^DIQ
^AMERVSIT - [#9009080] GET1^DIQ
^AMERADM - [#9009081] GET1^DIQ
^AMER(2.5 - [#9009082.5] GET1^DIQ
9009082.58 GET1^DIQ
^AMER(3 - [#9009083] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMER(2.5 - [#9009082.5] QD20A+10, SYNCCL+30, SYNCCL+31, SYNCCL+32, GETCLN+11
^AMER(3 - [#9009083] QD20A+23, QD20A+35, SYNCCL+42, GETCLN+25
^DD("DD" QD24+1, TCK+4, TVAL+3
^DIC(40.7 - [#40.7] SYNCCL+27
^DPT - [#2] QD20+4
^TMP("AMER" QD20+2, QD20A+35, QD21+12, QD21+17!, QD22+2, QD22+8!, QD23+1, QD23+6, QD23+7, QD23+8
, QD24+1, QD24+5, QD24+6, QD24+9, QD24+10, QD25+9, QD25+10, QD25+11, QD28E+22
^VA(200 - [#200] QD21+12, QD22+2

Label References

Name Line Occurrences
$$GETCLN QD20A+33
$$TCK QD24+5, QD25+9, QD25+10, QD28E+11
$$TVAL QD24+6, QD25+11
QD24 QD24+5, QD24+6
QD25 QD25+9, QD25+10, QD25+11
QD28E QD28E+11

Naked Globals

Name Field # of Occurrence
^(20 QD20A+35
^(21 QD21+12, QD23+7
^(22 QD22+2, QD23+6
^(24 QD24+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QD20+1~, QD20+3*, QD20A+35*, QD21+12*, QD22+2*, TCK+2~, TVAL+2~, TVAL+9*, TVAL+10
%H TVAL+2~, TVAL+4, TVAL+5
%T TVAL+2~, TVAL+4, TVAL+5
%Y TVAL+2~
A TCK~, TCK+3, TCK+7, TVAL+2~, TVAL+4*, TVAL+6
>> AMERBCH QD20+2, QD20A+42
AMERCLN QD20A+1~, QD20A+19*, QD20A+20, QD20A+23*, QD20A+24, QD20A+33*, QD20A+34
AMERDA SYNCCL~, SYNCCL+13, SYNCCL+19, SYNCCL+43
>> AMERDFN QD20+4, QD20A+31
>> AMEREFLG QD20+2, QD20A+42, QD20A+43, QD23+6, QD24+9, QD28E+22
>> AMERFIN QD23+6*, QD24+9*, QD25+15*, QD28E+22*
AMERLINE QD20+1~, QD20+3*, QD20+6
AMERLOC QD20A+1~, QD20A+9*, QD20A+10, QD20A+15, QD20A+19
>> AMERMAND QD20+2
AMERPCC QD20A+1~, QD20A+31*, QD20A+32, QD20A+33, QD20A+50, QD28~, QD28E+1*, QD28E+2, QD28E+3, QD28E+5
, QD28E+14, QD28E+17, SYNCCL~, SYNCCL+14, SYNCCL+35, SYNCCL+36, SYNCCL+49, SYNCCL+50
>> AMERQUIT QD20A+52, QD21+18, QD22+9
>> AMERRUN QD23+6*, QD23+7*, QD23+8*, QD24+9*, QD24+10*, QD25+15*, QD28E+2*, QD28E+22*, QD28E+23*, QD28E+24*
>> AMERSTRT QD23+6*, QD24+9*, QD28E+22*
>> AMERTFLG QD20A+43*
>> AMERTRG QD21+4, QD23+6, QD25+3, QD28E+22, QD28E+23
AMERTYP QD20A+1~
AMERUPD SYNCCL+40~, SYNCCL+48~
AMERUPD(9000010 SYNCCL+49*, SYNCCL+50*
AMERUPD(9009080 SYNCCL+43*
AMVDT QD28+1~, QD28E+5*, QD28E+11
AUPNVSIT GETCLN~, GETCLN+2, GETCLN+6, GETCLN+9, GETCLN+23
B TVAL+2~, TVAL+4*, TVAL+7
C TVAL+2~, TVAL+5*, TVAL+6
CIEN GETCLN+10~, GETCLN+11*, GETCLN+13
CLINIC GETCLN+21~, GETCLN+23*, GETCLN+24*, GETCLN+25
CLN SYNCCL+23~, SYNCCL+26*, SYNCCL+27, GETCLN+4~, GETCLN+8*, GETCLN+11, GETCLN+17*, GETCLN+20, GETCLN+25*, GETCLN+27
CODE SYNCCL+40~, SYNCCL+41*, SYNCCL+42
D TVAL+2~, TVAL+5*, TVAL+6
DA QD23+4!, GETCLN+12~, GETCLN+13*
DA(1 GETCLN+13*
DECDT QD28+1~, QD28E+3*, QD28E+4
>> DFN QD28E+1
DIC QD20A+36*, QD20A+41!, QD21+13*, QD21+16!, QD22+4*, QD22+7!
DIC("?" QD21+10*, QD22+3*
DIC("A" QD20A+5*, QD21+9*, QD22+1*
DIC("B" QD20A+5!, QD20A+18*, QD20A+20*, QD20A+22, QD20A+24*, QD20A+34*, QD20A+35*, QD21+9!, QD21+12*, QD22+1!
, QD22+2*
DIC("S" QD20A+39*, QD21+15*, QD22+6*
DIC(0 QD20A+40*, QD21+13*, QD22+4*
DIR QD23+4!, QD24+4!, QD25+8!, QD28+1~, QD28E+8!
DIR("?" QD23+2*, QD23+3*, QD24+4*, QD25+8*, QD28E+8*
DIR("A" QD23+4*, QD24+4*, QD25+8*, QD28E+8*
DIR("B" QD23+1*, QD24+1*, QD28E+4*
DIR(0 QD23+4*, QD24+4*, QD25+8*, QD28E+8*
DIV GETCLN+4~, GETCLN+6*, GETCLN+11, GETCLN+13
DUZ(2 QD20A+9, SYNCCL+30, SYNCCL+31, SYNCCL+32, GETCLN+6
E TVAL+2~, TVAL+6*, TVAL+7
ECEIEN SYNCCL+16~, SYNCCL+19*, SYNCCL+22, SYNCCL+26, SYNCCL+30, SYNCCL+39
ECLN GETCLN+12~, GETCLN+16*, GETCLN+17
ECPIEN SYNCCL+16~, SYNCCL+22*, SYNCCL+27*, SYNCCL+39, SYNCCL+47, SYNCCL+49
EHLOC GETCLN+12~, GETCLN+14*, GETCLN+15
EHPIEN SYNCCL+16~, SYNCCL+22*, SYNCCL+31*, SYNCCL+32*, SYNCCL+50
ENCPIEN SYNCCL+40~, SYNCCL+42*, SYNCCL+43
ERR QD20A+1~, QD20A+50*
ERROR QD28+1~, SYNCCL+40~, SYNCCL+48~
F TVAL+2~, TVAL+7*, TVAL+8
H TVAL~, TVAL+8
HLI SYNCCL+23~, SYNCCL+30*, SYNCCL+31
HLOC GETCLN+4~, GETCLN+9*, GETCLN+15
IENS GETCLN+12~, GETCLN+13*, GETCLN+14, GETCLN+16
IOF QD20+4
PCCUPD QD28+1~, QD28E+20
PCCUPD(9000010 QD28E+14*, QD28E+17*
PCIEN SYNCCL+16~, SYNCCL+35*, SYNCCL+39, SYNCCL+41, SYNCCL+47
PHIEN SYNCCL+16~, SYNCCL+36*
T TCK~, TCK+5, TCK+6, TVAL~, TVAL+5
U QD20+4, QD20A+35, QD20A+42, QD20A+43, QD20A+44, QD21+12, QD22+2, QD23+5, SYNCCL+31
X QD20A+2*, QD20A+13*, QD20A+42*, QD20A+43, QD20A+44, QD23+5, QD24+8, QD25+14, TCK~, TCK+5
, TCK+6, TCK+7, TVAL+2~, TVAL+4*, TVAL+5*
Y QD20A+50, QD21+5*, QD21+17, QD22+8, QD24+1*, QD24+5!, QD24+6!, QD24+7*, QD25+4*, QD25+9!
, QD25+10!, QD25+11!, QD25+12*, QD25+13, QD28E+11!, QD28E+14, QD28E+17, TCK+2~, TCK+4*, TCK+7
, TVAL+2~, TVAL+3*, TVAL+9
Z TCK~, TCK+3, TCK+4, TCK+5, TCK+6, TVAL~, TVAL+3, TVAL+4
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