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

Package: IHS Patient Registration

Routine: AGEDBEA


Information

AGEDBEA ; IHS/ASDS/TPF - EDIT/DISPLAY BENEFITS COORDINATOR - MAIN SCREEN ;

Source Information

Source file <AGEDBEA.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
IHS Patient Registration 6 (,UPDATE1)^AGED  READ^AGED1  ^AGED13  ^AGED4A  CLS^AGEDBEI  VERIF^AGUTILS  
VA Fileman 1 $$GET1^DIQ  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
IHS Patient Registration 2 AGED13  AGED4A  

Entry Points

Name Comments DBIA/ICR reference
DRAW ;EP
EN ;
END
1 ;
3 ;
2 ;
GETAW ;DISP
VAR

External References

Name Field # of Occurrence
^AGED DRAW+4
UPDATE1^AGED VAR+57
READ^AGED1 VAR+36
^AGED13 END+6
^AGED4A END+5
CLS^AGEDBEI VAR+46
VERIF^AGUTILS GETAW+108
$$GET1^DIQ GETAW+40, GETAW+61, GETAW+63, GETAW+64, GETAW+65, GETAW+83, GETAW+102

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: VAR+1
Function Call: WRITE
  • Prompt: !,"Enter an R to Resume editing or a item number"
  • Line Location: VAR+43
Function Call: WRITE
  • Prompt: !,"There are no items to select!"
  • Line Location: VAR+52
Function Call: WRITE
  • Prompt: !!,"You must enter a number from 1 to ",AG("N")
  • Line Location: VAR+53
Function Call: WRITE
  • Prompt: !!,"PATIENT IEN NOT DEFINED!"
  • Line Location: GETAW+2
Function Call: WRITE
  • Prompt: !,$E(CAPTION,2,199)
  • Line Location: GETAW+14
Function Call: WRITE
  • Prompt: @NEWLINE
  • Line Location: GETAW+26
Function Call: WRITE
  • Prompt: ITEMNUM
  • Line Location: GETAW+27
Function Call: WRITE
  • Prompt: $$GET1^DIQ(DIC,VD0,DR)
  • Line Location: GETAW+40
Function Call: WRITE
  • Prompt: !,"PATIENT HAS NO CASE DATE ENTRIES!",!
  • Line Location: GETAW+47
Function Call: WRITE
  • Prompt: ?0,ITEM_"."
  • Line Location: GETAW+77
Function Call: WRITE
  • Prompt: !,ITEM_"."
  • Line Location: GETAW+78
Function Call: WRITE
  • Prompt: $S(DR=.02:$E($$GET1^DIQ(DIC,D0,DR),1,15),DR=.12:$E($$GET1^DIQ(DIC,D0,DR),1,25),1:$$GET1^DIQ(DIC,D0,DR))
  • Line Location: GETAW+83
Function Call: WRITE
  • Prompt: !,"PATIENT HAS "_CLOSED_" CLOSED CASES",!
  • Line Location: GETAW+87
Function Call: WRITE
  • Prompt: !,"PATIENT HAS "_CLOSED_" CLOSED CASE"_$S(CLOSED>1:"S",1:""),!
  • Line Location: GETAW+88
Function Call: WRITE
  • Prompt: !,"PATIENT HAS NO AUTHORIZATION ENCOUNTER DATES!",!
  • Line Location: GETAW+90
Function Call: WRITE
  • Prompt: !,"PATIENT HAS NO AUTHORIZATION ENCOUNTER DATES!",!
  • Line Location: GETAW+91
Function Call: WRITE
  • Prompt: !,ITEM_"."
  • Line Location: GETAW+97
Function Call: WRITE
  • Prompt: !,$G(AGLINE("-"))
  • Line Location: GETAW+107

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
9000044.11 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNAUTH - [#9000046] GETAW+91, GETAW+93
^AUPNAUTH("B" GETAW+4
^AUPNBENR - [#9000044] GETAW+47, GETAW+55
^AUPNBENR("B" GETAW+3
^DD( GETAW+29, GETAW+30
^XUSEC("AGZCREOPN" VAR+10, VAR+11, VAR+14, VAR+15, VAR+46

Label References

Name Line Occurrences
@( VAR+38, VAR+50, VAR+56
DRAW VAR
END VAR+37, VAR+39, VAR+40
GETAW DRAW+5
VAR VAR+39, VAR+42, VAR+45, VAR+46, VAR+47, VAR+50, VAR+52, VAR+53, VAR+56, VAR+59

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADA END+1!
ADFN END+1!
ADT END+1!
>> AG GETAW+8*
>> AG("C" GETAW+6!, GETAW+25*
>> AG("ED" VAR+38
>> AG("ERR" VAR+39
>> AG("N" VAR+7, VAR+8, VAR+10, VAR+11, VAR+12, VAR+14, VAR+15, VAR+31, VAR+34, VAR+52
, VAR+53, GETAW+106*
>> AG("PG" DRAW+2*
AGI VAR+58!
>> AGLINE("-" GETAW+107
>> AGLINE("EQ" VAR+1
AGSCRN END+1!, GETAW+8, GETAW+10*, GETAW+11*, GETAW+12, GETAW+13, GETAW+15, GETAW+16, GETAW+17, GETAW+18
, GETAW+19, GETAW+20, GETAW+21, GETAW+22, GETAW+23, GETAW+24
AGSEENLY VAR+3, VAR+25, VAR+29, VAR+32, VAR+42, VAR+44!, VAR+45*, END+4, GETAW+10, GETAW+61
, GETAW+62, GETAW+63, GETAW+64, GETAW+65
>> AGXTERN VAR+38, END+2
AGY VAR+58!
>> AUPNPAT GETAW+1*, GETAW+2, GETAW+3, GETAW+4
BD0 END+1!, GETAW+3*, GETAW+34, GETAW+46*, GETAW+47
BD1 END+1!, GETAW+69*, GETAW+72, GETAW+73, GETAW+92*, GETAW+93*, GETAW+95, GETAW+96
>> CAPDENT GETAW+18*, GETAW+29, GETAW+30
>> CAPTION GETAW+13*, GETAW+14, GETAW+29, GETAW+30
>> CD0 GETAW+4*, GETAW+90, GETAW+91, GETAW+93, GETAW+95, GETAW+96
CDT GETAW+54~, GETAW+61*, GETAW+62*, GETAW+66, GETAW+69*, GETAW+72
CHOICES DRAW+1!, GETAW+5!
CHOICES( VAR+56, GETAW+72*, GETAW+95*
CLCASE GETAW+54~
CLCASE( GETAW+66*, GETAW+69, GETAW+72
CLIEN GETAW+54~, GETAW+55*, GETAW+58, GETAW+61, GETAW+66
>> CLOSED VAR+8, VAR+10, VAR+11, VAR+12, VAR+14, VAR+15, VAR+23, VAR+24, VAR+46, GETAW+48*
, GETAW+63*, GETAW+88
CTDIR VAR+16~*, VAR+17*, VAR+18*, VAR+19*, VAR+20*, VAR+21*, VAR+22*, VAR+23*, VAR+24*
>> D0 GETAW+35, GETAW+41, GETAW+58*, GETAW+63, GETAW+64, GETAW+65, GETAW+73*, GETAW+83, GETAW+96*, GETAW+102
DA END+1!
>> DFN VAR+46, VAR+57, GETAW+1
DFOUT VAR+40, END+1!
DIC END+1!, GETAW+15*, GETAW+29, GETAW+30, GETAW+35, GETAW+40, GETAW+45, GETAW+63, GETAW+64, GETAW+65
, GETAW+66, GETAW+83, GETAW+89, GETAW+95, GETAW+102
DIR VAR+2!
DIR("?" VAR+17*, VAR+18*, VAR+19*, VAR+20*, VAR+21*, VAR+22*, VAR+23*, VAR+24*
DIR("A" VAR+7*, VAR+8*, VAR+10*, VAR+11*, VAR+12*, VAR+14*, VAR+15*, VAR+30*, VAR+33*
DIR("B" VAR+35*
DIR(0 VAR+31*, VAR+34*
>> DIROUT VAR+37, END+3
DLOUT VAR+39, END+1!
DORTN VAR+56*, END!
DQOUT VAR+53, END+1!
DR END+1!, GETAW+38*, GETAW+40, GETAW+80*, GETAW+83, GETAW+99*, GETAW+102
DTOUT VAR+37, VAR+40, END+1!
>> DUOUT VAR+37, VAR+39, END+5
DUZ VAR+10, VAR+11, VAR+14, VAR+15, VAR+46
DUZ(2 VAR+57
>> EXECUTE GETAW+21*, GETAW+40, GETAW+41, GETAW+82, GETAW+84, GETAW+101, GETAW+103
>> ITEM GETAW+7*, GETAW+71*, GETAW+72, GETAW+77, GETAW+78, GETAW+94*, GETAW+95, GETAW+97, GETAW+106
>> ITEMNUM GETAW+19*, GETAW+25, GETAW+27, GETAW+28
NEWENTRY EN+1*, END+1!
>> NEWLINE GETAW+17*, GETAW+26
>> NOTCLOSE GETAW+49*, GETAW+64*
>> PARAM1 VAR+56*
>> PARAM2 VAR+56*
PIECE GETAW+37~, GETAW+38*, GETAW+39, GETAW+40, GETAW+41, GETAW+42, GETAW+43!, GETAW+79~, GETAW+80*, GETAW+81
, GETAW+82, GETAW+84, GETAW+85, GETAW+86!, GETAW+98~, GETAW+99*, GETAW+100, GETAW+101, GETAW+103, GETAW+104
, GETAW+105!
>> POSTEXEC GETAW+24*, GETAW+42, GETAW+85, GETAW+104
>> PRECAPEX GETAW+23*, GETAW+29, GETAW+30
>> PREEXEC GETAW+22*, GETAW+39, GETAW+81, GETAW+100
REC END+1!
ROUTID END+1!, DRAW+3*
>> TAGCALL GETAW+20*, GETAW+25
U VAR+34, VAR+56, GETAW+13, GETAW+15, GETAW+16, GETAW+17, GETAW+18, GETAW+19, GETAW+20, GETAW+29
, GETAW+30, GETAW+66, GETAW+95
>> VD0 GETAW+34*, GETAW+35*, GETAW+40, GETAW+41*, GETAW+55, GETAW+58, GETAW+61, GETAW+66, GETAW+73
>> VDR GETAW+16*, GETAW+29, GETAW+30, GETAW+38, GETAW+80, GETAW+99
WDA END+1!
WDFN END+1!
WDT END+1!
>> X VAR+43*, VAR+44
Y VAR+39, VAR+45, VAR+46, VAR+47, VAR+50, VAR+53, VAR+56, END+1!

Marked Items

Name Field # of Occurrence
$T( DRAW+3
$T(@2+AG GETAW+11
$T(@3+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