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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AGEDBEE

Package: IHS Patient Registration

Routine: AGEDBEE


Information

AGEDBEE ; IHS/ASDS/TPF - EDIT/DISPLAY BENEFITS COORDINATOR - PATIENT APPLICATION SUBMISSIONS SCREEN ;

Source Information

Source file <AGEDBEE.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  

Entry Points

Name Comments DBIA/ICR reference
DRAW ;EP
END ;CLEAN UP THE VARS USED
CAPPARSE(CAPTION) ;EP - PARSE OUT THE CAP
APSUBDT ;EP - EDIT APPLICATION SUBMISSION STATUS DT
EDDTSUB ;EDIT DT APPLICATION SUBMITTED
ADSUBSTA ;EP - ADD APPLICATION SUBMISSION DT
WMSG ;DISP THIS MSG IF THERE IS NO AUTHORIZATION DT FOUND
APSUBST ;EP - EDIT SUBMISSION STATUS
1 ;
CLEANZER(AD0,AD1) ;EP
CLEAN(AD0,AD1,AD2) ;CLEAN EMPTY RECORD. IF NO SUBMISSION DATES HAVE
GETAW ;DISP
APPSUBBY ;EP - EDIT REASON FOR SUBMISSION
VAR
APDTSUB ;APPLICATION SUBMISSION DT
NEWENTRY ;EP - NEW ENTRY
EN(AD0,AD1,AD2,NEWENTRY) ;
APPREAS ;EP - EDIT REASON FOR SUBMISSION
APSUBVIA ;EP - EDIT APPLICATION SUBMITTED VIA

External References

Name Field # of Occurrence
^AGED DRAW+4
UPDATE1^AGED VAR+27
READ^AGED1 VAR+8
EDITCHEK^AGEDERR GETAW+65
FETCHERR^AGEDERR GETAW+63
VERIF^AGUTILS GETAW+66
^DIC APDTSUB+7, ADSUBSTA+8
^DIE APSUBVIA+7, APPREAS+7, APPSUBBY+7, APSUBDT+8, APSUBST+8, EDDTSUB+7
^DIK CLEANZER+2
$$GET1^DIQ GETAW+36, GETAW+56, CAPPARSE+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Entry not made."
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"No entry made"
  • Line Location: EN+8
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+10
Function Call: WRITE
  • Prompt: !!,"You must enter a number from 1 to ",AG("N"),!,"or 'A' to add Application Submission Status information."
  • Line Location: VAR+15
Function Call: WRITE
  • Prompt: @NEWLINE
  • Line Location: GETAW+21
Function Call: WRITE
  • Prompt: ITEMNUM
  • Line Location: GETAW+22
Function Call: WRITE
  • Prompt: $$GET1^DIQ(DIC,D0,DR)
  • Line Location: GETAW+36
Function Call: WRITE
  • Prompt: !,"NO STATUSES ENTERED"
  • Line Location: GETAW+46
Function Call: WRITE
  • Prompt: !,ITEM_"."
  • Line Location: GETAW+52
Function Call: WRITE
  • Prompt: $$GET1^DIQ(DIC,D0,DR)
  • Line Location: GETAW+56
Function Call: WRITE
  • Prompt: !,$G(AGLINE("-"))
  • Line Location: GETAW+61
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: $P(CAPTION,RBRACKET,2)
  • Line Location: CAPPARSE+10
Function Call: WRITE
  • Prompt: !,"You must first enter a APPLICATION SUBMISSION DATE"
  • Line Location: WMSG+1
Routine Call
  • DIE
  • Line Location:
    • APSUBVIA+7
    • APPREAS+7
    • APPSUBBY+7
    • APSUBDT+8
    • APSUBST+8
    • EDDTSUB+7
Routine Call
  • DIC
  • Line Location:
    • APDTSUB+7
    • ADSUBSTA+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNAPPS - [#9000045] CLEAN+5, GETAW+46, GETAW+48
^AUPNAUTH - [#9000046] VAR+26
^DD( GETAW+24, GETAW+25

Label References

Name Line Occurrences
@( VAR+18, VAR+21
ADSUBSTA VAR+14
APSUBST ADSUBSTA+11, APSUBDT+11
CAPPARSE GETAW+6
CLEANZER CLEAN+6
DRAW EN+3, VAR
END EN+3, VAR+12
GETAW DRAW+5
NEWENTRY EN+3
VAR VAR+10, VAR+12, VAR+14, VAR+15, VAR+18, VAR+29
WMSG EN+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AD0 EN~, VAR+18*, VAR+26, CLEAN~, CLEAN+5, CLEAN+6, CLEANZER~, CLEANZER+2, GETAW+31, GETAW+43
, CAPPARSE+9, APDTSUB+3, APSUBVIA+3, APPREAS+3, APPSUBBY+3, ADSUBSTA+3, APSUBDT+3, APSUBST+3, EDDTSUB+3
AD1 EN~, VAR+18*, VAR+26, CLEAN~, CLEAN+5, CLEAN+6, CLEANZER~, CLEANZER+2, GETAW+31, GETAW+44
, CAPPARSE+9, APDTSUB+2, APSUBVIA+2, APPREAS+2, APPSUBBY+2, ADSUBSTA+2, APSUBDT+2, APSUBST+2, EDDTSUB+2
AD2 EN~, VAR+18*, VAR+26, CLEAN~, CLEANZER+2, GETAW+31, GETAW+45, APDTSUB+8*, APSUBVIA+4, APPREAS+4
, APPSUBBY+4, ADSUBSTA+4, APSUBDT+4, APSUBST+4, EDDTSUB+4
>> AD3 VAR+18*, ADSUBSTA+10*, APSUBDT+5, APSUBST+5
ADA END+1!
ADFN END+1!
ADT END+1!
AG END+1!, GETAW+2*
AG("C" VAR+21, GETAW+1!, GETAW+20*
AG("ERR" VAR+12
AG("N" VAR+4, VAR+15, VAR+21, GETAW+60*
AG("PG" DRAW+2*, GETAW+63
AG("SEL" VAR+21*
AGI VAR+21*, VAR+28!
>> AGLINE("-" GETAW+61
>> AGLINE("EQ" VAR+1
>> AGOPT("ESCAPE" VAR+11
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+3, VAR+5, VAR+9
>> AGSELECT GETAW+64
AGY VAR+20*, VAR+21, VAR+28!
>> 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+10
CHOICES END+1!, DRAW+1!
CHOICES( VAR+18, GETAW+50*
>> D0 GETAW+31*, GETAW+36, GETAW+37*, GETAW+51*, GETAW+56
DA CLEANZER+1!, CLEANZER+2*, END+1!, APDTSUB+1!, APSUBVIA+1!, APSUBVIA+4*, APSUBVIA+8!, APPREAS+1!, APPREAS+4*, APPREAS+8!
, APPSUBBY+1!, APPSUBBY+4*, APPSUBBY+8!, ADSUBSTA+1!, APSUBDT+1!, APSUBDT+5*, APSUBDT+9, APSUBDT+10!, APSUBST+1!, APSUBST+5*
, APSUBST+9!, EDDTSUB+1!, EDDTSUB+4*, EDDTSUB+8!
DA(1 APDTSUB+2*, APDTSUB+4, APSUBVIA+2*, APSUBVIA+5, APPREAS+2*, APPREAS+5, APPSUBBY+2*, APPSUBBY+5, ADSUBSTA+4*, ADSUBSTA+5
, APSUBDT+4*, APSUBDT+6, APSUBST+4*, APSUBST+6, EDDTSUB+2*, EDDTSUB+5
DA(2 CLEANZER+2*, APDTSUB+3*, APDTSUB+4, APSUBVIA+3*, APSUBVIA+5, APPREAS+3*, APPREAS+5, APPSUBBY+3*, APPSUBBY+5, ADSUBSTA+2*
, ADSUBSTA+5, APSUBDT+2*, APSUBDT+6, APSUBST+2*, APSUBST+6, EDDTSUB+3*, EDDTSUB+5
DA(3 CLEANZER+2*, ADSUBSTA+3*, ADSUBSTA+5, APSUBDT+3*, APSUBDT+6, APSUBST+3*, APSUBST+6
DD APDTSUB+6!, APSUBVIA+1!, APPREAS+1!, APPSUBBY+1!, ADSUBSTA+7!, APSUBDT+1!, APSUBST+1!, EDDTSUB+1!
>> DFN VAR+27, GETAW+64
DFOUT VAR+13, END+1!
DIC END+1!, GETAW+7*, GETAW+24, GETAW+25, GETAW+30, GETAW+36, GETAW+41, GETAW+50, GETAW+56, APDTSUB+1!
, APDTSUB+4*, APSUBVIA+1!, APSUBVIA+8!, APPREAS+1!, APPREAS+8!, APPSUBBY+1!, APPSUBBY+8!, ADSUBSTA+1!, ADSUBSTA+5*, APSUBDT+1!
, APSUBDT+10!, APSUBST+1!, APSUBST+9!, EDDTSUB+1!, EDDTSUB+8!
DIC(0 APDTSUB+5*, ADSUBSTA+6*
DIE APDTSUB+1!, APSUBVIA+1!, APSUBVIA+5*, APSUBVIA+8!, APPREAS+1!, APPREAS+5*, APPREAS+8!, APPSUBBY+1!, APPSUBBY+5*, APPSUBBY+8!
, ADSUBSTA+1!, APSUBDT+1!, APSUBDT+6*, APSUBDT+10!, APSUBST+1!, APSUBST+6*, APSUBST+9!, EDDTSUB+1!, EDDTSUB+5*, EDDTSUB+8!
DIK CLEANZER+1!, CLEANZER+2*
DIR VAR+2!, VAR+7*
DIR("A" VAR+4*, VAR+6*
DLOUT VAR+12, END+1!
DO APDTSUB+6!, APSUBVIA+1!, APPREAS+1!, APPSUBBY+1!, ADSUBSTA+7!, APSUBDT+1!, APSUBST+1!, EDDTSUB+1!
>> DORTN VAR+18*
DQOUT VAR+15, END+1!
DR END+1!, GETAW+8*, GETAW+24, GETAW+25, GETAW+33, GETAW+34*, GETAW+36, GETAW+54*, GETAW+56, APDTSUB+1!
, APSUBVIA+1!, APSUBVIA+6*, APSUBVIA+8!, APPREAS+1!, APPREAS+6*, APPREAS+8!, APPSUBBY+1!, APPSUBBY+6*, APPSUBBY+8!, ADSUBSTA+1!
, APSUBDT+1!, APSUBDT+7*, APSUBDT+10!, APSUBST+1!, APSUBST+7*, APSUBST+9!, EDDTSUB+1!, EDDTSUB+6*, EDDTSUB+8!
DTOUT VAR+13, END+1!
>> DUOUT VAR+12
DUZ(2 VAR+27, GETAW+64
>> EXECUTE GETAW+16*, GETAW+36, GETAW+37, GETAW+56, GETAW+57
>> FIELD CAPPARSE+8*, CAPPARSE+9
>> FIELDS CAPPARSE+5*, CAPPARSE+7
>> ITEM GETAW+42*, GETAW+49*, GETAW+50, GETAW+52, GETAW+60
>> ITEMNUM GETAW+14*, GETAW+20, GETAW+22, GETAW+23
LBRACKET CAPPARSE+1~, CAPPARSE+2*, CAPPARSE+3, CAPPARSE+5, CAPPARSE+6, CAPPARSE+8, CAPPARSE+11!
MYERRS GETAW+62!, GETAW+63, GETAW+65
MYERRS("C" VAR+10
MYVARS GETAW+62!, GETAW+65
MYVARS("DFN" GETAW+64*
MYVARS("FINDCALL" GETAW+64*
MYVARS("SELECTION" GETAW+64*
MYVARS("SITE" GETAW+64*
NEWENTRY EN~, EN+3, EN+4*, END+1!, GETAW+28
>> NEWLINE GETAW+12*, GETAW+21
PIECE GETAW+32~, GETAW+34*, GETAW+35, GETAW+36, GETAW+37, GETAW+38, GETAW+39!, GETAW+53~, GETAW+54*, GETAW+55
, GETAW+56, GETAW+57, GETAW+58, GETAW+59!, CAPPARSE+7*, CAPPARSE+8
>> POSTEXEC GETAW+19*, GETAW+38, GETAW+58
>> PRECAPEX GETAW+18*, GETAW+24, GETAW+25
>> PREEXEC GETAW+17*, GETAW+35, GETAW+55
RBRACKET CAPPARSE+1~, CAPPARSE+2*, CAPPARSE+8, CAPPARSE+10, CAPPARSE+11!
REC END+1!
>> ROUTID DRAW+3*
>> SKIPEXEC GETAW+9*, GETAW+11
>> TAGCALL GETAW+15*, GETAW+20
U VAR+18, GETAW+5, GETAW+7, GETAW+8, GETAW+12, GETAW+13, GETAW+14, GETAW+15, GETAW+24, GETAW+25
, GETAW+50
>> VD0 GETAW+43*, GETAW+46, GETAW+48, GETAW+50, GETAW+51
>> VD1 GETAW+44*, GETAW+46, GETAW+48, GETAW+50, GETAW+51
>> VD2 GETAW+45*, GETAW+46, GETAW+48, GETAW+50, GETAW+51
>> VD3 GETAW+47*, GETAW+48*, GETAW+50, GETAW+51
>> VDR GETAW+33*, GETAW+34, GETAW+54
WDA END+1!
WDFN END+1!
WDT END+1!
Y EN+3, VAR+10, VAR+11, VAR+12, VAR+14, VAR+15, VAR+18, VAR+19, VAR+20, END+1!
, APDTSUB+8, ADSUBSTA+9, ADSUBSTA+10

Marked Items

Name Field # of Occurrence
$T( DRAW+3
$T(@1+AG GETAW+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All