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 |  Marked Items |  All
Print Page as PDF
Routine: AGEDBEI

Package: IHS Patient Registration

Routine: AGEDBEI


Information

AGEDBEI ; VNGT/HS/BEE - DISPLAY/EDIT CLOSED CASES ;

Source Information

Source file <AGEDBEI.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
IHS Patient Registration 2 (,UPDATE1)^AGED  READ^AGED1  
VA Fileman 2 ^DIE  $$GET1^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Patient Registration 1 AGEDBEA  

Entry Points

Name Comments DBIA/ICR reference
COMDT(RD0,RD1) ;Erase Date Completed
DRAW ;EP
STAT(RD0,RD1) ;Erase Closed Status
CLS(DFN,CLOSED)
2 ;
EXIT
GETAW ;DISP
VAR
COMBY(RD0,RD1) ;Erase Completed By

External References

Name Field # of Occurrence
^AGED DRAW+3
UPDATE1^AGED DRAW+27
READ^AGED1 DRAW+11
^DIE STAT+6, COMBY+6, COMDT+6
$$GET1^DIQ GETAW+46, GETAW+47, GETAW+61

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"There are no items to select!"
  • Line Location: DRAW+13
Function Call: WRITE
  • Prompt: !!,"You must enter a number from 1 to ",AG("N")
  • Line Location: DRAW+14
Function Call: WRITE
  • Prompt: !!,"PATIENT IEN NOT DEFINED!"
  • Line Location: GETAW+3
Function Call: WRITE
  • Prompt: !,$E(CAPTION,2,199)
  • Line Location: GETAW+13
Function Call: WRITE
  • Prompt: @NEWLINE
  • Line Location: GETAW+25
Function Call: WRITE
  • Prompt: ITEMNUM
  • Line Location: GETAW+26
Function Call: WRITE
  • Prompt: !,"PATIENT HAS NO CASE DATE ENTRIES!",!
  • Line Location: GETAW+38
Function Call: WRITE
  • Prompt: ?0,ITEM_"."
  • Line Location: GETAW+55
Function Call: WRITE
  • Prompt: !,ITEM_"."
  • Line Location: GETAW+56
Function Call: WRITE
  • Prompt: $S(DR=.02:$E($$GET1^DIQ(DIC,D0,DR),1,15),DR=.12:$E($$GET1^DIQ(DIC,D0,DR),1,29),1:$$GET1^DIQ(DIC,D0,DR))
  • Line Location: GETAW+61
Function Call: WRITE
  • Prompt: !,$G(AGLINE("-"))
  • Line Location: GETAW+66
Routine Call
  • DIE
  • Line Location:
    • STAT+6
    • COMBY+6
    • COMDT+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
9000044.11 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNBENR - [#9000044] GETAW+38, GETAW+42
^AUPNBENR("B" GETAW+5
^DD( GETAW+28, GETAW+29

Label References

Name Line Occurrences
@( DRAW+30
COMBY DRAW+21
COMDT DRAW+24
EXIT DRAW+12, DRAW+13
GETAW DRAW+4
STAT DRAW+18
VAR DRAW+14, DRAW+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AG DRAW+14!, DRAW+30!, EXIT+1!, GETAW+8*
AG("C" GETAW+6!, GETAW+24*
AG("N" DRAW+6, DRAW+8, DRAW+13, DRAW+14, GETAW+65*
AG("PG" DRAW+1*
>> AGLINE("-" GETAW+66
AGSCRN GETAW+1~, GETAW+8, GETAW+10*, GETAW+11, GETAW+12, GETAW+14, GETAW+15, GETAW+16, GETAW+17, GETAW+18
, GETAW+19, GETAW+20, GETAW+21, GETAW+22, GETAW+23
AUPNPAT GETAW+1~, GETAW+2*, GETAW+3, GETAW+5
BD0 GETAW+1~, GETAW+5*, GETAW+31, GETAW+37*, GETAW+38
BD1 GETAW+36~, GETAW+51*, GETAW+52, GETAW+54
CAPDENT GETAW+9~, GETAW+17*, GETAW+28, GETAW+29
CAPTION GETAW+9~, GETAW+12*, GETAW+13, GETAW+28, GETAW+29
CDT GETAW+36~, GETAW+43~, GETAW+47*, GETAW+48, GETAW+51*
CHOICES VAR~, DRAW+14!, DRAW+30!, EXIT+1!
CHOICES( DRAW+14, DRAW+15, GETAW+54*
CLCASE GETAW+41~
CLCASE( GETAW+48*, GETAW+51
CLIEN GETAW+41~, GETAW+42*, GETAW+46, GETAW+47, GETAW+48
CLOSED CLS~
D0 GETAW+36~, GETAW+52*, GETAW+61
DA STAT+1!, STAT+3*, STAT+7!, COMBY+1!, COMBY+3*, COMBY+7!, COMDT+1!, COMDT+3*, COMDT+7!
DA(1 STAT+2*, STAT+4, COMBY+2*, COMBY+4, COMDT+2*, COMDT+4
DD STAT+1!, COMBY+1!, COMDT+1!
DFN CLS~, DRAW+27, GETAW+2
DIC GETAW+9~, GETAW+14*, GETAW+28, GETAW+29, GETAW+35, GETAW+54, GETAW+61, STAT+1!, STAT+7!, COMBY+1!
, COMBY+7!, COMDT+1!, COMDT+7!
DIE STAT+1!, STAT+4*, STAT+7!, COMBY+1!, COMBY+4*, COMBY+7!, COMDT+1!, COMDT+4*, COMDT+7!
DIR VAR~, DRAW+14!, DRAW+30!, EXIT+1!
DIR("?" DRAW+7*
DIR("A" DRAW+6*
DIR(0 DRAW+8*
DIROUT CLS~, DRAW+12, EXIT!
DO STAT+1!, COMBY+1!, COMDT+1!
DORTN CLS~, DRAW+30*, EXIT!
DQOUT VAR~, DRAW+14!, DRAW+30!, EXIT+1!
DR GETAW+57~, GETAW+58*, GETAW+61, GETAW+64!, STAT+1!, STAT+5*, STAT+7!, COMBY+1!, COMBY+5*, COMBY+7!
, COMDT+1!, COMDT+5*, COMDT+7!
DTOUT CLS~, DRAW+12, EXIT!
DUOUT CLS~, DRAW+12, EXIT!
DUZ(2 DRAW+27
EXECUTE GETAW+9~, GETAW+20*, GETAW+60, GETAW+62
ITEM GETAW+1~, GETAW+7*, GETAW+53*, GETAW+54, GETAW+55, GETAW+56, GETAW+65
ITEMNUM GETAW+9~, GETAW+18*, GETAW+24, GETAW+26, GETAW+27
NEWLINE GETAW+9~, GETAW+16*, GETAW+25
PARAM1 CLS~, DRAW+15*, DRAW+18, DRAW+21, DRAW+24, DRAW+30, EXIT!
PARAM2 CLS~, DRAW+15*, DRAW+18, DRAW+21, DRAW+24, DRAW+30, EXIT!
PIECE GETAW+57~, GETAW+58*, GETAW+59, GETAW+60, GETAW+62, GETAW+63, GETAW+64!
POSTEXEC GETAW+9~, GETAW+23*, GETAW+63
PRECAPEX GETAW+9~, GETAW+22*, GETAW+28, GETAW+29
PREEXEC GETAW+9~, GETAW+21*, GETAW+59
RD0 STAT~, STAT+2, COMBY~, COMBY+2, COMDT~, COMDT+2
RD1 STAT~, STAT+3, COMBY~, COMBY+3, COMDT~, COMDT+3
ROUTID CLS~, DRAW+2*, EXIT!
ST GETAW+43~, GETAW+46*
TAGCALL GETAW+9~, GETAW+19*, GETAW+24
U DRAW+15, GETAW+12, GETAW+14, GETAW+15, GETAW+16, GETAW+17, GETAW+18, GETAW+19, GETAW+28, GETAW+29
, GETAW+54
VD0 GETAW+9~, GETAW+31*, GETAW+42, GETAW+46, GETAW+47, GETAW+52, GETAW+54
VDR GETAW+9~, GETAW+15*, GETAW+28, GETAW+29, GETAW+58
Y VAR~, DRAW+12, DRAW+14!, DRAW+15, DRAW+30!, EXIT+1!

Marked Items

Name Field # of Occurrence
$T( DRAW+2
$T(@2+AG GETAW+10
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 |  Marked Items |  All