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

Package: Emergency Room

Routine: AMERAGED


Information

AMERAGED ; IHS/OIT/SCR 06/22/06 - PATIENT REG ROUTINES

Source Information

Source file <AMERAGED.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
IHS Patient Registration 5 CHKRHI^AG  $$CHKDEATH^AGEDERR  $$NAME^AGMANERS  ADDNAM^AGNAMCHG  $$S^AGVDF  
VA Fileman 5 ^%DT  NOW^%DTC  EN^DDIOL  ^DIE  ^DIR  
IHS Patient 1 NAME^AUPNPED  
Kernel 1 $$VERSION^XPDUTL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Emergency Room 1 AMERVSIT  

Entry Points

Name Comments DBIA/ICR reference
NAME(AMERDFN) ; EP - From UPDATPAT^AMERVSIT
; Check for PATIENT REG 7.1 PATCH 2
; IF IT IS THERE RETURN VALUE FROM PATIENT REG API NAME^AGMANERS().
; IF NOT, RETURN VALUE FROM AMERNAME() BELOW
; Check for "AG" version 7.1 PATCH 1
DIEDPT(DA,DR) ; GIVEN AN ENTRY NUMBER AND A DR STRING, EDIT THE VA PATIENT FILE
DIEAUPN(DA,DR) ; GIVEN AN ENTRY NUMBER AND A DR STRING, EDIT THE PATIENT FILE
END
AMERNAME(AMERDFN)

External References

Name Field # of Occurrence
^%DT END+1
NOW^%DTC AMERNAME+21
CHKRHI^AG AMERNAME+4
$$CHKDEATH^AGEDERR AMERNAME+8
$$NAME^AGMANERS NAME+18
ADDNAM^AGNAMCHG AMERNAME+22
$$S^AGVDF AMERNAME+6
NAME^AUPNPED AMERNAME+18
EN^DDIOL AMERNAME+19
^DIE DIEDPT+5, DIEAUPN+5
^DIR AMERNAME+12, AMERNAME+35
$$VERSION^XPDUTL NAME+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$S^AGVDF("RVN"),$$S^AGVDF("BLN"),"This patient has Restricted Health Information",$$S^AGVDF("BLF"),$$S^AGVDF("RVF")
  • Line Location: AMERNAME+6
Function Call: WRITE
  • Prompt: !!?5,"**** ALERT: DATE OF DEATH ON FILE FOR THIS PATIENT!!"
  • Line Location: AMERNAME+8
Routine Call
  • DIE
  • Line Location:
    • DIEDPT+5
    • DIEAUPN+5
Routine Call
  • DIR
  • Line Location:
    • AMERNAME+12
    • AMERNAME+35

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^AUPNPAT - [#9000001] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AGPATCH( AMERNAME+41*, END+2*, END+3*, END+4*
^AUPNPAT - [#9000001] DIEAUPN+4, DIEAUPN+6, AMERNAME+41*
^AUTTSITE(1 END+2
^DIC(9.4 - [#9.4] NAME+9, NAME+11, NAME+12, NAME+14, NAME+15
^DPT - [#2] AMERNAME+3, AMERNAME+28, DIEDPT+4, DIEDPT+6
^XTMP( AMERNAME+30*, AMERNAME+32*

Label References

Name Line Occurrences
$$AMERNAME NAME+8, NAME+19
$$DIEDPT AMERNAME+27, AMERNAME+40
DIEAUPN AMERNAME+42
END AMERNAME+28

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% AMERNAME+21, DIEDPT+1~, DIEAUPN+1~
>> AG("NAMFAIL" AMERNAME+23
>> AG("NEWNAME" AMERNAME+15!, AMERNAME+17*, AMERNAME+19!, AMERNAME+26
>> AG("OLDNAME" AMERNAME+20*, AMERNAME+28, AMERNAME+33, AMERNAME+39
AGDTS AMERNAME+21*, AMERNAME+41, END+1*, END+2, END+3, END+4, END+5!
>> AGPTPG END+2
>> AGTDS END+1
AMERAGPT NAME+5~, NAME+13*, NAME+14*, NAME+15
AMERAGV NAME+5~, NAME+7*, NAME+8
AMERDFN NAME~, NAME+8, NAME+18, NAME+19, AMERNAME~, AMERNAME+2
>> AMERH7AG AMERNAME+31*, AMERNAME+32
>> AMERHL7 AMERNAME+29*, AMERNAME+30
AMEROK NAME+5~, NAME+10*, NAME+11, NAME+14, NAME+15*, NAME+18, NAME+19
AMERONAM AMERNAME+1~, AMERNAME+3*, AMERNAME+11, AMERNAME+14, AMERNAME+20
AMERPNTR NAME+5~, NAME+9*, NAME+11, NAME+12, NAME+14, NAME+15
AMERPTCH NAME+5~, NAME+10*, NAME+11*, NAME+12, NAME+14, NAME+15
>> AMERRTN NAME+18*, NAME+19*, NAME+20
AMERRTRN NAME+5~, NAME+6*, NAME+8*
D DIEDPT+2~, DIEAUPN+2~
D0 DIEDPT+2~, DIEAUPN+2~
DA AMERNAME+24!, AMERNAME+25*, AMERNAME+27, AMERNAME+30, AMERNAME+32, AMERNAME+39*, AMERNAME+40, AMERNAME+41*, AMERNAME+42, DIEDPT~
, DIEDPT+4, DIEDPT+6, DIEDPT+7!, DIEAUPN~, DIEAUPN+7!
>> DFN AMERNAME+2*, AMERNAME+3, AMERNAME+8, AMERNAME+9, AMERNAME+25, AMERNAME+28, AMERNAME+39, AMERNAME+41, END+2, END+3
, END+4
DI DIEDPT+2~, DIEAUPN+2~
DIC AMERNAME+1~, AMERNAME+24!, DIEDPT+2~, DIEAUPN+2~
DICR DIEDPT+2~, DIEAUPN+2~
DIE AMERNAME+24!, AMERNAME+38*, DIEDPT+2~, DIEDPT+3*, DIEDPT+7!, DIEAUPN+2~, DIEAUPN+3*, DIEAUPN+7!
DIG DIEDPT+2~, DIEAUPN+2~
DIH DIEDPT+2~, DIEAUPN+2~
DIR AMERNAME+12!
DIR("?" AMERNAME+10*
DIR("A" AMERNAME+10*, AMERNAME+33*
DIR("B" AMERNAME+11*, AMERNAME+34*
DIR(0 AMERNAME+10*, AMERNAME+34*
DIU DIEDPT+2~, DIEAUPN+2~
DIV DIEDPT+2~, DIEAUPN+2~
DIW DIEDPT+2~, DIEAUPN+2~
DQ DIEDPT+2~, DIEAUPN+2~
DR AMERNAME+24!, AMERNAME+26*, AMERNAME+27, AMERNAME+39*, AMERNAME+40, AMERNAME+41*, AMERNAME+42, DIEDPT~, DIEDPT+7!, DIEAUPN~
, DIEAUPN+7!
DR(2 AMERNAME+39*
DTOUT AMERNAME+13!, AMERNAME+36!
DUOUT AMERNAME+13!, AMERNAME+36!
DUZ AMERNAME+41
DUZ(2 AMERNAME+41, END+2, END+3, END+4
>> RHIFLAG AMERNAME+5, AMERNAME+6
U NAME+12, AMERNAME+3, AMERNAME+28, AMERNAME+41
X AMERNAME+16*, AMERNAME+19, AMERNAME+27*, AMERNAME+40*, END+1*, DIEDPT+1~, DIEDPT+8, DIEAUPN+1~
Y AMERNAME+13!, AMERNAME+14, AMERNAME+16, AMERNAME+17, AMERNAME+24!, AMERNAME+36!, AMERNAME+37, END+1, DIEDPT+1~, DIEAUPN+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 |  Local Variables |  All