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

Package: IHS Patient Registration

Routine: AGEDBEH


Information

AGEDBEH ; IHS/ASDS/TPF - EDIT/DISPLAY BENEFITS COORDINATOR - SPEND DOWN INFORMATION SCREEN ;

Source Information

Source file <AGEDBEH.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
IHS Patient Registration 4 (,UPDATE1)^AGED  READ^AGED1  (EDITCHEK,FETCHERR)^AGEDERR  VERIF^AGUTILS  
VA Fileman 4 ^DIC  ^DIE  ^DIK  $$GET1^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IHS Patient Registration 1 AGEDBEB  

Entry Points

Name Comments DBIA/ICR reference
EDSPDD ;EDIT SPEND DOWN
EN(RD0,RD1,NEWENTRY,CASEPTR) ;EP -
DRAW ;EP
END ;CLEAN UP THE VARS
STUFCASE(RD0,RD1,CASEPTR) ;EP
EDREFDT ;EDIT THE DT REFERRED
ADDEXPRQ ;EP - ADD DATE EXPENSE REQUESTED
SPDDOWN ;EP
EDEXPREQ ;EDIT THE DT EXPENSE REQUESTED
WMSG ;DISP THIS MSG IF THERE IS NO ENTRY FOUND IN SPEND DOWN INFORMATION FILE
EDREFTO ;EDIT THE REFERED TO FACILITY
NEWAPPDT ;
1 ;
CLEAN(AD0) ;CLEAN EMPTY RECORD. IF NO SPEND DOWN REFERRED DTS HAVE BEEN
EDACT ;EDIT THE ACTION TAKEN
CLEANZER(AD0) ;EP
VAR
NEWENTRY ;NEW ENTRY
GETAW ;DISP

External References

Name Field # of Occurrence
^AGED DRAW+4
UPDATE1^AGED VAR+23
READ^AGED1 VAR+9
EDITCHEK^AGEDERR GETAW+58
FETCHERR^AGEDERR GETAW+56
VERIF^AGUTILS GETAW+59
^DIC NEWENTRY+8, NEWAPPDT+7, ADDEXPRQ+7
^DIE STUFCASE+6, EDREFDT+6, EDACT+8, EDSPDD+8, EDEXPREQ+10, EDREFTO+6
^DIK CLEANZER+2
$$GET1^DIQ GETAW+37, GETAW+48, GETAW+49

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Entry not made."
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: VAR+1
Function Call: WRITE
  • Prompt: !,"ERRORS ON THIS PAGE. PLEASE EDIT BEFORE EXITING!!"
  • Line Location: VAR+2
Function Call: WRITE
  • Prompt: !!,"You must enter a number from 1 to ",AG("N")," or enter <A> to add a new 'DATE EXPENSE REQUESTED'"
  • Line Location: VAR+15
Function Call: WRITE
  • Prompt: !,$E(CAPTION,2,199)
  • Line Location: GETAW+7
Function Call: WRITE
  • Prompt: $$GET1^DIQ(DIC,D0,DR)
  • Line Location: GETAW+37
Function Call: WRITE
  • Prompt: $J($$GET1^DIQ(DIC,D0,DR),6,2)
  • Line Location: GETAW+48
Function Call: WRITE
  • Prompt: $$GET1^DIQ(DIC,D0,DR)
  • Line Location: GETAW+49
Function Call: WRITE
  • Prompt: !,$G(AGLINE("-"))
  • Line Location: GETAW+54
Function Call: WRITE
  • Prompt: !,"You must first enter a SPEND DOWN REFERRAL DATE"
  • Line Location: WMSG+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: NEWENTRY+1
Routine Call
  • DIE
  • Line Location:
    • STUFCASE+6
    • EDREFDT+6
    • EDACT+8
    • EDSPDD+8
    • EDEXPREQ+10
    • EDREFTO+6
Routine Call
  • DIC
  • Line Location:
    • NEWENTRY+8
    • NEWAPPDT+7
    • ADDEXPRQ+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNCHS - [#9000047] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNCHS - [#9000047] VAR+19, VAR+22, CLEAN+5, SPDDOWN+2, SPDDOWN+3, EDACT+1, EDSPDD+1, EDEXPREQ+1
^DD( GETAW+22, GETAW+23
^DD("DD" SPDDOWN+5

Label References

Name Line Occurrences
@( VAR+18
ADDEXPRQ VAR+14, NEWAPPDT+11, EDACT+1, EDSPDD+1, EDEXPREQ+1
CLEAN VAR+19, VAR+22
CLEANZER CLEAN+6
DRAW EN+3, VAR
EDACT EDEXPREQ+12, ADDEXPRQ+10
EDSPDD EDEXPREQ+13, ADDEXPRQ+11
END EN+3, VAR+11
GETAW DRAW+5
NEWENTRY EN+3
SPDDOWN GETAW+42
STUFCASE NEWAPPDT+10
VAR VAR+2, VAR+11, VAR+14, VAR+15, VAR+25
WMSG EN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AD0 CLEAN~, CLEAN+5, CLEAN+6, CLEANZER~, CLEANZER+2
ADA END+1!
ADFN END+1!
ADT END+1!
>> AG GETAW+3*
>> AG("C" VAR+18, GETAW+1!, GETAW+18*, SPDDOWN+7*
>> AG("ERR" VAR+11
>> AG("N" VAR+6, VAR+15, VAR+18, GETAW+53*
>> AG("PG" DRAW+3*, GETAW+56
>> AG("SEL" VAR+18*
AGI VAR+18*, VAR+24!
>> AGLINE("-" GETAW+54
>> AGLINE("EQ" VAR+1
>> AGOPT("ESCAPE" VAR+3
AGSCRN END+1!, GETAW+3, GETAW+4*, GETAW+5, GETAW+6, GETAW+8, GETAW+9, GETAW+10, GETAW+11, GETAW+12
, GETAW+13, GETAW+14, GETAW+15, GETAW+16, GETAW+17
>> AGSEENLY VAR+5, VAR+7, VAR+10
>> AGSELECT GETAW+57
AGY VAR+17*, VAR+18, VAR+19, VAR+24!, EDEXPREQ+4, EDEXPREQ+5, EDEXPREQ+6
>> CAPDENT GETAW+11*, GETAW+22, GETAW+23
>> CAPTION GETAW+6*, GETAW+7, GETAW+22, GETAW+23
CASEPTR EN~, NEWAPPDT+10, STUFCASE~
CHOICES END+2!, DRAW+1!, EDEXPREQ+3
CHOICES( SPDDOWN+4*, EDEXPREQ+4, EDEXPREQ+5, EDEXPREQ+6
>> D0 GETAW+27*, GETAW+28*, GETAW+29*, GETAW+32*, GETAW+37, GETAW+38*, GETAW+43*, GETAW+48, GETAW+49, GETAW+50*
DA CLEANZER+1!, CLEANZER+2*, END+1!, NEWENTRY+2!, NEWAPPDT+1!, STUFCASE+1!, STUFCASE+3*, EDREFDT+1!, EDREFDT+2*, EDREFDT+7!
, EDACT+2!, EDACT+5*, EDACT+9!, EDSPDD+2!, EDSPDD+5*, EDSPDD+9!, EDEXPREQ+2!, EDEXPREQ+6*, EDEXPREQ+7*, EDEXPREQ+11!
, ADDEXPRQ+1!, EDREFTO+1!, EDREFTO+2*, EDREFTO+7!
DA(1 NEWAPPDT+2*, NEWAPPDT+3, STUFCASE+2*, STUFCASE+4, EDREFDT+3*, EDREFDT+4, EDACT+4*, EDACT+6, EDSPDD+4*, EDSPDD+6
, EDEXPREQ+5*, ADDEXPRQ+3*, ADDEXPRQ+4, EDREFTO+3*, EDREFTO+4
DA(2 EDACT+3*, EDACT+6, EDSPDD+3*, EDSPDD+6, EDEXPREQ+4*, ADDEXPRQ+2*, ADDEXPRQ+4
DD NEWAPPDT+6!, EDREFDT+1!, EDACT+2!, EDSPDD+2!, EDEXPREQ+2!, ADDEXPRQ+1!, ADDEXPRQ+6!, EDREFTO+1!
>> DFN VAR+23, GETAW+57, NEWENTRY+5, NEWENTRY+7, NEWENTRY+9*
DFOUT VAR+12, END+1!
DIC END+1!, GETAW+8*, GETAW+22, GETAW+23, GETAW+28, GETAW+31, GETAW+37, GETAW+41, GETAW+48, GETAW+49
, NEWENTRY+2!, NEWENTRY+3*, NEWAPPDT+1!, NEWAPPDT+3*, STUFCASE+1!, EDREFDT+1!, EDREFDT+7!, EDACT+2!, EDACT+9!, EDSPDD+2!
, EDSPDD+9!, EDEXPREQ+2!, EDEXPREQ+11!, ADDEXPRQ+1!, ADDEXPRQ+4*, EDREFTO+1!, EDREFTO+7!
DIC("S" NEWENTRY+6*, NEWAPPDT+5*
DIC(0 NEWENTRY+4*, NEWAPPDT+4*, ADDEXPRQ+5*
DIE NEWENTRY+2!, NEWAPPDT+1!, STUFCASE+1!, STUFCASE+4*, EDREFDT+1!, EDREFDT+4*, EDREFDT+7!, EDACT+2!, EDACT+6*, EDACT+9!
, EDSPDD+2!, EDSPDD+6*, EDSPDD+9!, EDEXPREQ+2!, EDEXPREQ+8*, EDEXPREQ+11!, ADDEXPRQ+1!, EDREFTO+1!, EDREFTO+4*, EDREFTO+7!
DIK CLEANZER+1!, CLEANZER+2*
DIQ ADDEXPRQ+1!
DIR VAR+4!, STUFCASE+1!
DIR("A" VAR+6*, VAR+8*
DLOUT VAR+11, END+1!
DO NEWAPPDT+6!, EDREFDT+1!, EDACT+2!, EDSPDD+2!, EDEXPREQ+2!, ADDEXPRQ+1!, ADDEXPRQ+6!, EDREFTO+1!
DQOUT VAR+15, END+1!
DR END+1!, GETAW+22, GETAW+23, GETAW+34*, GETAW+37, GETAW+45*, GETAW+48, GETAW+49, NEWENTRY+2!, NEWAPPDT+1!
, STUFCASE+1!, STUFCASE+5*, EDREFDT+1!, EDREFDT+5*, EDREFDT+7!, EDACT+2!, EDACT+7*, EDACT+9!, EDSPDD+2!, EDSPDD+7*
, EDSPDD+9!, EDEXPREQ+2!, EDEXPREQ+9*, EDEXPREQ+11!, ADDEXPRQ+1!, EDREFTO+1!, EDREFTO+5*, EDREFTO+7!
DTOUT VAR+12, END+1!
>> DUOUT VAR+11
DUZ(2 VAR+23, GETAW+57
>> EXECUTE GETAW+14*, GETAW+36, GETAW+38, GETAW+47, GETAW+50
>> ITEMNUM GETAW+12*, GETAW+18, GETAW+19, GETAW+20, GETAW+21, GETAW+53, SPDDOWN+4, SPDDOWN+6, SPDDOWN+7, SPDDOWN+8*
MYERRS GETAW+55!, GETAW+56, GETAW+58
MYERRS("C" VAR+2
MYVARS GETAW+55!, GETAW+58
MYVARS("DFN" GETAW+57*
MYVARS("FINDCALL" GETAW+57*
MYVARS("SELECTION" GETAW+57*
MYVARS("SITE" GETAW+57*
NEWENTRY EN~, EN+3, EN+4*, END+1!, GETAW+26, NEWENTRY+12*
>> NEWLINE GETAW+10*, GETAW+19
PIECE GETAW+33~, GETAW+34*, GETAW+35, GETAW+36, GETAW+38, GETAW+39, GETAW+40!, GETAW+44~, GETAW+45*, GETAW+46
, GETAW+47, GETAW+50, GETAW+51, GETAW+52!
>> POSTEXEC GETAW+17*, GETAW+39, GETAW+51
>> PRECAPEX GETAW+16*, GETAW+22, GETAW+23
>> PREEXEC GETAW+15*, GETAW+35, GETAW+46
RD0 EN~, VAR+19, VAR+22, GETAW+2, GETAW+27, SPDDOWN+2, SPDDOWN+3, SPDDOWN+4, NEWENTRY+11*, NEWAPPDT+2
, NEWAPPDT+10, STUFCASE~, STUFCASE+2, EDREFDT+3, EDACT+1, EDACT+3, EDSPDD+1, EDSPDD+3, EDEXPREQ+1, EDEXPREQ+4*
, EDEXPREQ+8, ADDEXPRQ+2, EDREFTO+3
RD1 EN~, VAR+19, GETAW+29, SPDDOWN+2, SPDDOWN+3, SPDDOWN+4, NEWAPPDT+9*, NEWAPPDT+10, STUFCASE~, STUFCASE+3
, EDREFDT+2, EDACT+1, EDACT+4, EDSPDD+1, EDSPDD+4, EDEXPREQ+1, EDEXPREQ+5*, EDEXPREQ+8, ADDEXPRQ+3, EDREFTO+2
>> RD2 EDACT+5, EDSPDD+5, EDEXPREQ+6*, EDEXPREQ+7, ADDEXPRQ+9*
REC END+1!
>> REQDT SPDDOWN+5*, SPDDOWN+6
>> ROUTID DRAW+2*
>> SPDDATA SPDDOWN+3*, SPDDOWN+5, SPDDOWN+6
>> SPDDOWN SPDDOWN+1*, SPDDOWN+2*, SPDDOWN+3, SPDDOWN+4
>> TAGCALL GETAW+13*, GETAW+18
>> TEMPDFN NEWENTRY+7*, NEWENTRY+9
U GETAW+6, GETAW+8, GETAW+9, GETAW+10, GETAW+11, GETAW+12, GETAW+13, GETAW+22, GETAW+23, SPDDOWN+4
, SPDDOWN+5, SPDDOWN+6, EDEXPREQ+4, EDEXPREQ+5, EDEXPREQ+6
>> VD0 GETAW+2*
>> VDR GETAW+9*, GETAW+34, GETAW+45
WDA END+1!
WDFN END+1!
WDT END+1!
>> X NEWENTRY+5*
Y EN+3, VAR+2, VAR+3, VAR+11, VAR+14, VAR+15, VAR+16, VAR+17, END+1!, SPDDOWN+5*
, NEWENTRY+10, NEWENTRY+11, NEWAPPDT+8, NEWAPPDT+9, ADDEXPRQ+8, ADDEXPRQ+9

Marked Items

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