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

Package: Emergency Room

Routine: AMER4


Information

AMER4 ; IHS/ANMC/GIS - ER VISIT SUMMARY ;

Source Information

Source file <AMER4.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Emergency Room 3 (EDIT,OUT)^AMER  EDIT^AMERD  $$DX^AMERPOV  
VA Fileman 3 YN^DICN  $$GET1^DIQ  ^DIR  
IHS Patient 1 $$ICDDX^AUPNVUTL  
IHS VA Utilities 1 $$VAL^XBDIQ1  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Emergency Room 1 AMERD  

Entry Points

Name Comments DBIA/ICR reference
ADM ; ADMISSION SEQUENCE
YN
EDIT ; NEED TO REEDIT??
ED
FORMAT ; SETS UTL ARRAY FOR VISIT SUMMARY
DX(AMERDFN) ;Set up DX information for display
PRINT ; PRINT VISIT SUMMARY
MULT(N) ; FORMATS MULTIPLES
; N = 10 - Procedure - contains a pointer to ER OPTIONS file
; - want to return a list of numbers and names
; N = 11 - Diagnosis - contains a pointer to ICD Diagnostic file
; - want to return a list of numbers and names
; N = 7 - ER Consultants - want to return a list of
; - Consultant Types, times, and Person
OT(V,T) ;ENTRY POINT FROM AMER5
; OUTPUT TRANSFORM
; 1 = DATE
; 2 = ER OPTIONS FILE
; 3 = ER LOCAL FACILITY FILE
; 4 = Patient
; 5 = Person (doctor name)
; 6 = Yes/No
; 7 = ICD9/ICD10
; 8 = ER CONSULTANT
ADM1
INC ; LINE COUNTER

External References

Name Field # of Occurrence
EDIT^AMER ADM1
OUT^AMER YN+1, YN+11
EDIT^AMERD ED+3, ADM1+3
$$DX^AMERPOV OT+23
$$ICDDX^AUPNVUTL DX+19
YN^DICN YN+1
$$GET1^DIQ OT+22, DX+9, DX+10, DX+17, DX+18
^DIR YN+9, INC+3
$$VAL^XBDIQ1 DX+20

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: "Summary of this ER data entry session for ",%," =>"
  • Line Location: EDIT+4
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+5
Function Call: WRITE
  • Prompt: !!,"*Do you want to make any changes"
  • Line Location: YN+0
Function Call: WRITE
  • Prompt: !,*7,"Sorry...You may not 'back up' here. Enter '^^' if you want to exit.",!!
  • Line Location: YN+2
Function Call: WRITE
  • Prompt: ?20,"--- ",X," ---"
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !,Z
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: Z
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: ?40,Z
  • Line Location: PRINT+16
Function Call: WRITE
  • Prompt: Z
  • Line Location: PRINT+17
Function Call: WRITE
  • Prompt: !
  • Line Location: INC+2
Function Call: WRITE
  • Prompt: *13,?$G(IOM,80)-1,*13
  • Line Location: INC+3
Routine Call
  • DIR
  • Line Location:
    • YN+9
    • INC+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNVSIT - [#9000010] GET1^DIQ
^AUPNVPOV - [#9000010.07] GET1^DIQ
^AMERADM - [#9009081] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AMER(2 - [#9009082] PRINT+7
^AMER(2.1 - [#9009082.1] OT+15
^AMER(2.3 - [#9009082.3] FORMAT+2, FORMAT+3, FORMAT+4, FORMAT+6
^AMER(2.9 - [#9009082.9] OT+25
^AMER(3 - [#9009083] OT+14
^AUPNVPOV("AD" DX+13
^DD("DD" OT+13
^DPT - [#2] EDIT+3, OT+16
^TMP("AMER" PRINT+8, PRINT+10, PRINT+13, MULT+15, MULT+16, MULT+17, MULT+18, MULT+24, MULT+25, MULT+26
, FORMAT+7*, FORMAT+8, FORMAT+10*
^VA(200 - [#200] OT+17

Label References

Name Line Occurrences
$$DX MULT+11
$$MULT FORMAT+7
$$OT MULT+19, MULT+27, MULT+28, MULT+29, FORMAT+9
ADM YN+6, ED
ADM1 ADM1+8
FORMAT EDIT+5
INC PRINT+15, PRINT+17, PRINT+20
PRINT EDIT+5
YN YN+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EDIT+3*, EDIT+4, YN*, YN+2!, YN+3, ED+1*, ED+2, PRINT+1~, FORMAT+1~
>> %Y YN+1, YN+2, YN+3*, YN+4
A MULT+13~, MULT+14*, MULT+20*, MULT+21*, MULT+30*, MULT+31*, MULT+33
>> AMERDEST EDIT+5*
AMERDFN EDIT+3, MULT+11, DX~, DX+2, DX+9
AMEREFLG EDIT+2!, YN+6*, YN+12*
>> AMERFIN ED+2*, ADM1*, ADM1+3*
AMERPCC DX+4~, DX+9*, DX+10, DX+13
AMERPOV DX+4~, DX+13*, DX+17, DX+18, DX+20
>> AMERQSEQ ADM1+1, ADM1+2, ADM1+5*, ADM1+6, ADM1+7*
>> AMERQUIT YN+1, YN+11
>> AMERSTRT ED+2*, ADM+2*, ADM1+3*, ADM1+6*
AMERTFLG ADM+1~, ADM1+3!, ADM1+4
>> AMERTRG YN+6, PRINT+3
AMERXSEQ ADM+1~, ADM1+2*, ADM1+5
C PRINT+1~, PRINT+2*, PRINT+3*, PRINT+6, FORMAT+1~, FORMAT+5*, FORMAT+7, FORMAT+10
>> DFN OT+22
DIR YN+9!, INC+3!
DIR("?" YN+9*
DIR("A" YN+9*, INC+3*
DIR(0 YN+7*, YN+8*, INC+3*
DIROUT YN+1*, INC+3!
DT OT+22
DTOUT INC+3!
DUOUT INC+3!
H FORMAT+1~, FORMAT+6*, FORMAT+7, FORMAT+10
I PRINT+1~, PRINT+6*, MULT+13~, MULT+16*, MULT+17, MULT+18, MULT+24, MULT+25, MULT+26, FORMAT+1~
>> I1 PRINT+13*
ICDIEN DX+14~, DX+17*, DX+19
INFO DX+14~, DX+19*, DX+20
IOF EDIT+1
IOM INC+3
IOSL INC+3
K1 MULT+13~, MULT+24*, MULT+27*, MULT+31
K2 MULT+13~, MULT+25*, MULT+28*, MULT+31
K3 MULT+13~, MULT+26*, MULT+29*, MULT+31
L PRINT+1~*, INC+2*, INC+3
N PRINT+10*, PRINT+11, PRINT+13, MULT~, MULT+11, MULT+15, MULT+16, MULT+17, MULT+18, MULT+24
, MULT+25, MULT+26, FORMAT+1~, FORMAT+4*, FORMAT+7, FORMAT+8, FORMAT+10
PS DX+14~, DX+18*, DX+20
PVCNT DX+4~, DX+13*
Q FORMAT+1~, FORMAT+4*, FORMAT+8
T PRINT+1~, PRINT+9*, PRINT+15*, PRINT+16*, PRINT+17*, OT~, OT+13, OT+14, OT+15, OT+16
, OT+17, OT+18, OT+19, OT+25, FORMAT+6*, FORMAT+9
U EDIT+3, YN+2, ED+1, PRINT+6, PRINT+13, OT+12, OT+14, OT+15, OT+16, OT+17
, OT+25, FORMAT+4, FORMAT+5, FORMAT+6, FORMAT+7, DX+20
V OT~, OT+12, OT+13, OT+14, OT+15, OT+16, OT+17, OT+18, OT+23, OT+25
, FORMAT+1~, FORMAT+8*, FORMAT+9*, FORMAT+10
VAL DX+4~, DX+6*, DX+9, DX+20*, DX+22
VDT OT+21~, OT+22*, OT+23, DX+4~, DX+10*, DX+19
X YN+4*, PRINT+1~, PRINT+6*, PRINT+7, PRINT+9, INC+1~, MULT+13~, MULT+18*, MULT+19*, MULT+21
, FORMAT+1~, FORMAT+2*, FORMAT+3
Y YN+4*, YN+5, YN+6*, YN+10, ED, ED+1, PRINT+1~, PRINT+7*, PRINT+8, PRINT+10
, PRINT+11, PRINT+13, INC+1~, OT+10~, OT+11*, OT+12*, OT+13*, OT+14*, OT+15*, OT+16*
, OT+17*, OT+18*, OT+23*, OT+25*, OT+26, FORMAT+1~, FORMAT+3*, FORMAT+4, FORMAT+6
Z PRINT+1~, PRINT+10*, PRINT+12, PRINT+13*, PRINT+15, PRINT+16, PRINT+17, FORMAT+1~, FORMAT+4*, FORMAT+5
, FORMAT+6, FORMAT+7
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