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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: AMER1A

Package: Emergency Room

Routine: AMER1A


Information

AMER1A ; IHS/ANMC/GIS -ISC - OVERFLOW FROM AMER1 ;

Source Information

Source file <AMER1A.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 ^DIC  YN^DICN  ^DIR  
Emergency Room 1 LOG^AMERBUSA  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Emergency Room 3 AMER  AMER1  AMER2  

Entry Points

Name Comments DBIA/ICR reference
ADMDISP() ;IHS/OIT/SCR patch 2: Provides a toggle for display order
PICK ;
SORTADM(AMERSORT) ;IHS/OIT/SCR patch 2: Displays ER ADMISSION in identified order
ACT ; ENTRY POINT FROM MENU
MSG ; ENTRY POINT FROM AMER
QA1 ; ENTRY POINT FROM AMER1 ;NAME
CHECK

External References

Name Field # of Occurrence
LOG^AMERBUSA SORTADM+42
^DIC QA1+3
YN^DICN QA1+10, QA1+13
^DIR ACT+3, ADMDISP+9, ADMDISP+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"Do you want to register a new patient"
  • Line Location: QA1+9
Function Call: WRITE
  • Prompt: !!,"Are you absolutely sure that this patient has never been registered",!,"here before"
  • Line Location: QA1+12
Function Call: WRITE
  • Prompt: !!!,"There are several tricks you can use to find this patient. Try entering a"
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !,"partial name like 'DOE,JO' instead of 'DOE,JOHN'. Ask about other first"
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: !,"names and married names. Try entering a date of birth in the format 9/9/99."
  • Line Location: MSG+3
Function Call: WRITE
  • Prompt: !,"This should narrow down the list of possible choices."
  • Line Location: MSG+4
Function Call: WRITE
  • Prompt: !!!
  • Line Location: MSG+5
Function Call: WRITE
  • Prompt: !!!,*7,"Sorry...I have no record of any current admissions to the ER.",!!!
  • Line Location: CHECK+0
Function Call: WRITE
  • Prompt: !,"The following patients are currently admitted to the ER =>",!!
  • Line Location: PICK+3
Function Call: WRITE
  • Prompt: !,%
  • Line Location: PICK+6
Function Call: WRITE
  • Prompt: !
  • Line Location: PICK+11
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ACT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ACT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ADMDISP+4
Function Call: WRITE
  • Prompt: !,"All patients have been processed"
  • Line Location: ADMDISP+6
Routine Call
  • DIC
  • Line Location:
    • QA1+3
Routine Call
  • DIR
  • Line Location:
    • ACT+3
    • ADMDISP+9
    • ADMDISP+14

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMERADM - [#9009081] SORTADM+8, SORTADM+9, SORTADM+29, SORTADM+31, SORTADM+32, SORTADM+36, SORTADM+52, SORTADM+54, SORTADM+58, SORTADM+67
, SORTADM+68, SORTADM+69, SORTADM+91, SORTADM+93, SORTADM+97, SORTADM+108, SORTADM+110, SORTADM+114
^AMERADM("B" QA1+6, CHECK
^DD("DD" SORTADM+30, SORTADM+33, SORTADM+53, SORTADM+55, SORTADM+92, SORTADM+94, SORTADM+109, SORTADM+111
^DPT - [#2] SORTADM+10, SORTADM+89, SORTADM+106
^TMP("AMER TEMP" PICK+2!, SORTADM+7!, SORTADM+28*, SORTADM+49*, SORTADM+66!, SORTADM+88*, SORTADM+105*

Label References

Name Line Occurrences
$$ADMDISP PICK+8, ADMDISP+15
$$SORTADM ADMDISP+3, ADMDISP+11
CHECK ACT+2
MSG QA1+14
QA1 QA1+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% QA1+10*, QA1+13*, PICK+1~
>> %Y QA1+10, QA1+11, QA1+13, QA1+14
A PICK+1~
AMERARRY SORTADM+1~, SORTADM+21, SORTADM+81
AMERARRY( SORTADM+12, SORTADM+13*, SORTADM+16, SORTADM+18*, SORTADM+24, SORTADM+27, SORTADM+45, SORTADM+48, SORTADM+71, SORTADM+72*
, SORTADM+75, SORTADM+77*, SORTADM+84, SORTADM+87, SORTADM+101, SORTADM+104
AMERCHRT SORTADM+1~, SORTADM+31*, SORTADM+39, SORTADM+54*, SORTADM+60, SORTADM+93*, SORTADM+99, SORTADM+110*, SORTADM+116
AMERCNT SORTADM+1~, SORTADM+20*, SORTADM+26*, SORTADM+28, SORTADM+39, SORTADM+46*, SORTADM+49, SORTADM+60, SORTADM+80*, SORTADM+85*
, SORTADM+88, SORTADM+99, SORTADM+102*, SORTADM+105, SORTADM+116, SORTADM+120
AMERCOMP SORTADM+1~, SORTADM+36*, SORTADM+37*, SORTADM+39, SORTADM+58*, SORTADM+59*, SORTADM+60, SORTADM+97*, SORTADM+98*, SORTADM+99
, SORTADM+114*, SORTADM+115*, SORTADM+116
>> AMERDFN QA1+5*
AMERDOB SORTADM+1~, SORTADM+29*, SORTADM+30*, SORTADM+39, SORTADM+52*, SORTADM+53*, SORTADM+60, SORTADM+91*, SORTADM+92*, SORTADM+99
, SORTADM+108*, SORTADM+109*, SORTADM+116
>> AMERDPT SORTADM+27*, SORTADM+28, SORTADM+29, SORTADM+31, SORTADM+32, SORTADM+36, SORTADM+42, SORTADM+48*, SORTADM+49, SORTADM+52
, SORTADM+54, SORTADM+58, SORTADM+87*, SORTADM+88, SORTADM+89, SORTADM+91, SORTADM+93, SORTADM+97, SORTADM+104*, SORTADM+105
, SORTADM+106, SORTADM+108, SORTADM+110, SORTADM+114
AMERIDX2 SORTADM+1~, SORTADM+4*, SORTADM+13, SORTADM+14*, SORTADM+17*, SORTADM+44*, SORTADM+45*, SORTADM+48, SORTADM+72, SORTADM+73*
, SORTADM+76*, SORTADM+100*, SORTADM+101*, SORTADM+104
AMERINDX SORTADM+1~, SORTADM+3*, SORTADM+8*, SORTADM+9, SORTADM+10, SORTADM+13, SORTADM+18, SORTADM+23*, SORTADM+24*, SORTADM+25
, SORTADM+45, SORTADM+47, SORTADM+50, SORTADM+67*, SORTADM+68, SORTADM+69, SORTADM+72, SORTADM+77, SORTADM+79*, SORTADM+84*
, SORTADM+86, SORTADM+103, SORTADM+104
AMERNAME SORTADM+1~, SORTADM+10*, SORTADM+11, SORTADM+12, SORTADM+13, SORTADM+16, SORTADM+18, SORTADM+25*, SORTADM+27, SORTADM+38*
, SORTADM+39, SORTADM+48, SORTADM+50*, SORTADM+51*, SORTADM+60, SORTADM+89*, SORTADM+90*, SORTADM+99, SORTADM+106*, SORTADM+107*
, SORTADM+116
AMERNUM ADMDISP+1~, ADMDISP+2*, ADMDISP+3*, ADMDISP+6, ADMDISP+7, ADMDISP+11*, ADMDISP+15*, ADMDISP+18
>> AMERQUIT QA1+4*, QA1+8*, QA1+10*, QA1+11*, QA1+13*, PICK+10*
>> AMERRUN QA1+6*, QA1+15*
AMERSORT SORTADM~, SORTADM+2*, SORTADM+5, SORTADM+64
AMERTIME SORTADM+1~, SORTADM+32*, SORTADM+33*, SORTADM+39, SORTADM+47*, SORTADM+55*, SORTADM+60, SORTADM+69*, SORTADM+70, SORTADM+71
, SORTADM+72, SORTADM+75, SORTADM+77, SORTADM+86*, SORTADM+87, SORTADM+94, SORTADM+101, SORTADM+103*, SORTADM+111
AMERTIMF SORTADM+1~, SORTADM+94*, SORTADM+99, SORTADM+111*, SORTADM+116
>> AMERTRG SORTADM+9, SORTADM+68
AUPNDAYS QA1+3!
AUPNDOB QA1+3!
AUPNDOD QA1+3!
AUPNPAT QA1+3!
AUPNSEX QA1+3!
B PICK+1~
C PICK+1~
DIC QA1+1*, QA1+3!
DIC("A" QA1+2*
DIC(0 QA1+1*
DIR ADMDISP+1~
DIR("A" ACT+3*, ACT+5!, ADMDISP+8*, ADMDISP+13*
DIR("B" ADMDISP+8*, ADMDISP+13*
DIR(0 ACT+3*, ACT+5!, ADMDISP+8*, ADMDISP+13*
DTOUT QA1+4!, QA1+10!, QA1+13!
E PICK+1~
F PICK+1~
G PICK+1~
>> I PICK+8*, PICK+10
IOF ACT+1, ACT+4
N PICK+1~
U QA1+10, QA1+13, SORTADM+9, SORTADM+68
>> X QA1+8
Y QA1+5, QA1+6, QA1+7*, QA1+8, PICK+1~, ADMDISP+1~, ADMDISP+10, ADMDISP+15, SORTADM+30*, SORTADM+33*
, SORTADM+53*, SORTADM+55*, SORTADM+92*, SORTADM+94*, SORTADM+109*, SORTADM+111*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All