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

Package: IHS Patient Registration

Routine: AGEDBEF


Information

AGEDBEF ; IHS/ASDS/TPF - EDIT/DISPLAY BENEFITS COORDINATOR - ADDITIONAL DAYS AUTHORIZED SCREEN ;

Source Information

Source file <AGEDBEF.m>

Call Graph

Call Graph Total: 12

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

Entry Points

Name Comments DBIA/ICR reference
EDEMAIL ;EDIT CONTACT E-MAIL
EDCONFAX ;EDIT CONTACT FAX
GETAW ;DISP
NEWENTRY ;NEW ENTRY
EDADDNOT ;EP - EDIT ADDITIONAL DAYS NOTES
EDCONPH ;EDIT CONTACT PHONE
DISNOTES ;EP
EDADDDT ;EDIT DT OBTAINED
1 ;
EDADDYS ;EP - EDIT ADDITIONAL DAYS
EN(AD0,AD1,AD2,NEWENTRY) ;
DRAW ;EP
END ;CLEAN UP THE VARS USED
EDCONPER ;EDIT CONTACT PERSON
VAR
WMSG ;DISP THIS MSG IF THERE IS NO AUTHORIZATION DT FOUND
CAPPARSE(CAPTION) ;EP - PARSE OUT THE CAP
EDADVIST ;EP - EDIT ADDITIONAL VISITS
CLEAN(AD0) ;CLEAN EMPTY RECORD. IF NO ENCOUNTER DTS HAVE BEEN ENTERED
ADDDT ;
CLEANZER(AD0) ;EP
EDADDREF ;EDIT REFERENCE #

External References

Name Field # of Occurrence
^AGED DRAW+4
UPDATE1^AGED VAR+26
READ^AGED1 VAR+9
EDITCHEK^AGEDERR GETAW+59
FETCHERR^AGEDERR GETAW+57
VERIF^AGUTILS GETAW+60
^DIC NEWENTRY+8, ADDDT+7
^DIE EDADDDT+7, EDADDYS+7, EDADVIST+7, EDADDREF+7, EDCONPER+7, EDCONPH+7, EDEMAIL+7, EDCONFAX+7
^DIK CLEANZER+2
$$GET1^DIQ GETAW+38, CAPPARSE+9, CAPPARSE+11
^DIR DISNOTES+9
EN^DIWE EDADDNOT+6
^DIWP GETAW+52, DISNOTES+7
^DIWW GETAW+53, DISNOTES+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Entry not made"
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: VAR+2
Function Call: WRITE
  • Prompt: !,"ERRORS ON THIS PAGE. PLEASE EDIT BEFORE EXITING!!"
  • Line Location: VAR+13
Function Call: WRITE
  • Prompt: !!,"You must enter a number from 1 to ",AG("N")
  • Line Location: VAR+17
Function Call: WRITE
  • Prompt: @NEWLINE
  • Line Location: GETAW+21
Function Call: WRITE
  • Prompt: ITEMNUM
  • Line Location: GETAW+22
Function Call: WRITE
  • Prompt: !,$G(AGLINE("-"))
  • Line Location: GETAW+55
Function Call: WRITE
  • Prompt: !,$E(CAPTION,2,199)
  • Line Location: CAPPARSE+3
Function Call: WRITE
  • Prompt: !,$E($P(CAPTION,LBRACKET),2,199)
  • Line Location: CAPPARSE+6
Function Call: WRITE
  • Prompt: $$GET1^DIQ($P(FIELD,";"),AD1_","_AD0_",",$P(FIELD,";",2))
  • Line Location: CAPPARSE+9
Function Call: WRITE
  • Prompt: $P(CAPTION,RBRACKET,2)
  • Line Location: CAPPARSE+12
Function Call: WRITE
  • Prompt: !,"You must first enter a DATE AUTHORIZATION OBTAINED"
  • Line Location: WMSG+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: NEWENTRY+1
Function Call: WRITE
  • Prompt: !,"NO NOTES TO VIEW"
  • Line Location: DISNOTES+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: DISNOTES+4
Routine Call
  • DIE
  • Line Location:
    • EDADDDT+7
    • EDADDYS+7
    • EDADVIST+7
    • EDADDREF+7
    • EDCONPER+7
    • EDCONPH+7
    • EDEMAIL+7
    • EDCONFAX+7
Routine Call
  • DIC
  • Line Location:
    • NEWENTRY+8
    • ADDDT+7
Routine Call
  • DIR
  • Line Location:
    • DISNOTES+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNAUTH - [#9000046] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNAUTH - [#9000046] EN+8, VAR+21, CLEAN+4, GETAW+50, GETAW+51, DISNOTES+1, DISNOTES+5, DISNOTES+6
^DD( GETAW+24, GETAW+25
^UTILITY($J GETAW+43!

Label References

Name Line Occurrences
@( VAR+20
CAPPARSE GETAW+6
CLEAN VAR+21, VAR+24
CLEANZER CLEAN+5
DISNOTES VAR+11
DRAW EN+7, VAR
EDADDNOT EN+14
EDADDYS EN+8
EDADVIST EN+9
EDCONFAX EN+13
EDCONPER EN+10
EDCONPH EN+11
EDEMAIL EN+12
END EN+7, VAR+15
GETAW DRAW+5
NEWENTRY EN+7
VAR VAR+11, VAR+13, VAR+15, VAR+17, VAR+28
WMSG EN+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AD0 EN~, EN+8, VAR+21, VAR+24, CLEAN~, CLEAN+4, CLEAN+5, CLEANZER~, CLEANZER+2, GETAW+29
, GETAW+46, CAPPARSE+9, CAPPARSE+11, NEWENTRY+11*, ADDDT+2, EDADDDT+3, EDADDYS+3, EDADVIST+3, EDADDREF+3, EDCONPER+3
, EDCONPH+3, EDEMAIL+3, EDCONFAX+3, EDADDNOT+4, DISNOTES+1, DISNOTES+5, DISNOTES+6
AD1 EN~, EN+8, VAR+21, GETAW+31, GETAW+47, CAPPARSE+9, CAPPARSE+11, ADDDT+3, EDADDDT+2, EDADDYS+2
, EDADVIST+2, EDADDREF+2, EDCONPER+2, EDCONPH+2, EDEMAIL+2, EDCONFAX+2, EDADDNOT+3, DISNOTES+1, DISNOTES+5, DISNOTES+6
AD2 EN~, VAR+21, GETAW+31, GETAW+48, ADDDT+8*, EDADDDT+4, EDADDYS+4, EDADVIST+4, EDADDREF+4, EDCONPER+4
, EDCONPH+4, EDEMAIL+4, EDCONFAX+4, EDADDNOT+2, DISNOTES+1, DISNOTES+5, DISNOTES+6
ADA END+1!
ADFN END+1!
ADT END+1!
AG END+1!, GETAW+2*
AG("C" VAR+20, GETAW+1!, GETAW+20*, GETAW+54
AG("ERR" VAR+15
AG("N" VAR+5, VAR+8, VAR+17, VAR+20, GETAW+54*
AG("PG" DRAW+2*, GETAW+57
AG("SEL" VAR+20*
AGI VAR+20*, VAR+27!
>> AGLINE("-" GETAW+55
>> AGLINE("EQ" VAR+2
>> AGOPT("ESCAPE" VAR+14
AGSCRN END+1!, GETAW+2, GETAW+3*, GETAW+4, GETAW+5, GETAW+7, GETAW+8, GETAW+9, GETAW+12, GETAW+13
, GETAW+14, GETAW+15, GETAW+16, GETAW+17, GETAW+18, GETAW+19
>> AGSEENLY VAR+4, VAR+6, VAR+11, VAR+12, VAR+26
>> AGSELECT GETAW+58
AGY VAR+19*, VAR+20, VAR+21, VAR+27!
>> CAPDENT GETAW+13*, GETAW+24, GETAW+25
CAPTION GETAW+5*, GETAW+6, GETAW+24, GETAW+25, CAPPARSE~, CAPPARSE+3, CAPPARSE+5, CAPPARSE+6, CAPPARSE+8, CAPPARSE+12
CHOICES DRAW+1!
>> D0 GETAW+29*, GETAW+30*, GETAW+31*, GETAW+38, GETAW+39*
DA CLEANZER+1!, CLEANZER+2*, END+1!, NEWENTRY+2!, ADDDT+1!, EDADDDT+1!, EDADDDT+4*, EDADDDT+8!, EDADDYS+1!, EDADDYS+4*
, EDADDYS+8!, EDADVIST+1!, EDADVIST+4*, EDADVIST+8!, EDADDREF+1!, EDADDREF+4*, EDADDREF+8!, EDCONPER+1!, EDCONPER+4*, EDCONPER+8!
, EDCONPH+1!, EDCONPH+4*, EDCONPH+8!, EDEMAIL+1!, EDEMAIL+4*, EDEMAIL+8!, EDCONFAX+1!, EDCONFAX+4*, EDCONFAX+8!, EDADDNOT+1!
, EDADDNOT+7!
DA(1 ADDDT+3*, ADDDT+4, EDADDDT+2*, EDADDDT+5, EDADDYS+2*, EDADDYS+5, EDADVIST+2*, EDADVIST+5, EDADDREF+2*, EDADDREF+5
, EDCONPER+2*, EDCONPER+5, EDCONPH+2*, EDCONPH+5, EDEMAIL+2*, EDEMAIL+5, EDCONFAX+2*, EDCONFAX+5, EDADDNOT+2*, EDADDNOT+5
DA(2 ADDDT+2*, ADDDT+4, EDADDDT+3*, EDADDDT+5, EDADDYS+3*, EDADDYS+5, EDADVIST+3*, EDADVIST+5, EDADDREF+3*, EDADDREF+5
, EDCONPER+3*, EDCONPER+5, EDCONPH+3*, EDCONPH+5, EDEMAIL+3*, EDEMAIL+5, EDCONFAX+3*, EDCONFAX+5, EDADDNOT+3*, EDADDNOT+5
DA(3 EDADDNOT+4*, EDADDNOT+5
DD ADDDT+6!, EDADDDT+1!, EDADDYS+1!, EDADVIST+1!, EDADDREF+1!, EDCONPER+1!, EDCONPH+1!, EDEMAIL+1!, EDCONFAX+1!, EDADDNOT+1!
>> DFN VAR+26, GETAW+58, NEWENTRY+6, NEWENTRY+7, NEWENTRY+9*
DFOUT VAR+16, END+1!
DIC END+1!, GETAW+7*, GETAW+24, GETAW+25, GETAW+30, GETAW+38, GETAW+42, NEWENTRY+2!, NEWENTRY+3*, ADDDT+1!
, ADDDT+4*, EDADDDT+1!, EDADDDT+8!, EDADDYS+1!, EDADDYS+8!, EDADVIST+1!, EDADVIST+8!, EDADDREF+1!, EDADDREF+8!, EDCONPER+1!
, EDCONPER+8!, EDCONPH+1!, EDCONPH+8!, EDEMAIL+1!, EDEMAIL+8!, EDCONFAX+1!, EDCONFAX+8!, EDADDNOT+1!, EDADDNOT+5*, EDADDNOT+7!
DIC("S" NEWENTRY+5*
DIC(0 NEWENTRY+4*, ADDDT+5*
DIE NEWENTRY+2!, ADDDT+1!, EDADDDT+1!, EDADDDT+5*, EDADDDT+8!, EDADDYS+1!, EDADDYS+5*, EDADDYS+8!, EDADVIST+1!, EDADVIST+5*
, EDADVIST+8!, EDADDREF+1!, EDADDREF+5*, EDADDREF+8!, EDCONPER+1!, EDCONPER+5*, EDCONPER+8!, EDCONPH+1!, EDCONPH+5*, EDCONPH+8!
, EDEMAIL+1!, EDEMAIL+5*, EDEMAIL+8!, EDCONFAX+1!, EDCONFAX+5*, EDCONFAX+8!, EDADDNOT+1!, EDADDNOT+7!
DIK CLEANZER+1!, CLEANZER+2*
DIR VAR+3!, VAR+8*, DISNOTES+9!
DIR("A" VAR+5*, VAR+7*
DIR(0 DISNOTES+9*
>> DIWF GETAW+45*
>> DIWL GETAW+44*
>> DIWR GETAW+44*
DLOUT VAR+15, END+1!
DO ADDDT+6!, EDADDDT+1!, EDADDYS+1!, EDADVIST+1!, EDADDREF+1!, EDCONPER+1!, EDCONPH+1!, EDEMAIL+1!, EDCONFAX+1!, EDADDNOT+1!
DQOUT VAR+17, END+1!
DR END+1!, GETAW+8*, GETAW+24, GETAW+25, GETAW+34, GETAW+35*, GETAW+38, NEWENTRY+2!, ADDDT+1!, EDADDDT+1!
, EDADDDT+6*, EDADDDT+8!, EDADDYS+1!, EDADDYS+6*, EDADDYS+8!, EDADVIST+1!, EDADVIST+6*, EDADVIST+8!, EDADDREF+1!, EDADDREF+6*
, EDADDREF+8!, EDCONPER+1!, EDCONPER+6*, EDCONPER+8!, EDCONPH+1!, EDCONPH+6*, EDCONPH+8!, EDEMAIL+1!, EDEMAIL+6*, EDEMAIL+8!
, EDCONFAX+1!, EDCONFAX+6*, EDCONFAX+8!, EDADDNOT+1!, EDADDNOT+7!
DTOUT VAR+16, END+1!
>> DUOUT VAR+15
DUZ(2 VAR+26, GETAW+58
>> EXEC CAPPARSE+10*, CAPPARSE+11
>> EXECUTE GETAW+16*, GETAW+37, GETAW+39
>> EXIT EN+5*, EN+6, EN+7*
>> FIELD CAPPARSE+8*, CAPPARSE+9, CAPPARSE+10, CAPPARSE+11
>> FIELDS CAPPARSE+5*, CAPPARSE+7
>> ITEMNUM GETAW+14*, GETAW+20, GETAW+22, GETAW+23
LBRACKET CAPPARSE+1~, CAPPARSE+2*, CAPPARSE+3, CAPPARSE+5, CAPPARSE+6, CAPPARSE+8, CAPPARSE+13!
LN DISNOTES+2~, DISNOTES+3*, DISNOTES+5*, DISNOTES+6
MYERRS GETAW+56!, GETAW+57, GETAW+59
MYERRS("C" VAR+13
MYVARS GETAW+56!, GETAW+59
MYVARS("DFN" GETAW+58*
MYVARS("FINDCALL" GETAW+58*
MYVARS("SELECTION" GETAW+58*
MYVARS("SITE" GETAW+58*
NEWENTRY EN~, EN+6*, END+1!, GETAW+28, NEWENTRY+12*
>> NEWLINE GETAW+12*, GETAW+21
PIECE GETAW+33~, GETAW+35*, GETAW+36, GETAW+37, GETAW+39, GETAW+40, GETAW+41!, CAPPARSE+7*, CAPPARSE+8
>> POSTEXEC GETAW+19*, GETAW+40
>> PRECAPEX GETAW+18*, GETAW+24, GETAW+25
>> PREEXEC GETAW+17*, GETAW+36
RBRACKET CAPPARSE+1~, CAPPARSE+2*, CAPPARSE+8, CAPPARSE+12, CAPPARSE+13!
REC END+1!
>> ROUTID DRAW+3*
>> SKIPEXEC GETAW+9*, GETAW+11
>> TAGCALL GETAW+15*, GETAW+20
>> TEMPDFN NEWENTRY+7*, NEWENTRY+9
U EN+8, GETAW+5, GETAW+7, GETAW+8, GETAW+12, GETAW+13, GETAW+14, GETAW+15, GETAW+24, GETAW+25
>> VD0 GETAW+46*, GETAW+50, GETAW+51
>> VD1 GETAW+47*, GETAW+50, GETAW+51
>> VD2 GETAW+48*, GETAW+50, GETAW+51
>> VD3 GETAW+49*, GETAW+50*, GETAW+51
VDR GETAW+34*, GETAW+35, GETAW+41!
WDA END+1!
WDFN END+1!
WDT END+1!
X GETAW+51*, CAPPARSE+11*, NEWENTRY+6*, DISNOTES+2~, DISNOTES+6*
Y EN+7, VAR+11, VAR+13, VAR+14, VAR+15, VAR+17, VAR+18, VAR+19, END+1!, NEWENTRY+10
, NEWENTRY+11, ADDDT+8

Marked Items

Name Field # of Occurrence
$T( DRAW+3
$T(@1+AG GETAW+3
Info |  Source |  Call 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