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

Package: IHS Patient Registration

Routine: AGEDBED


Information

AGEDBED ; IHS/ASDS/TPF - EDIT/DISPLAY BENEFITS COORDINATOR - PATIENT APPLICATIONS SCREEN ;

Source Information

Source file <AGEDBED.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
DRAW ;EP
END ;CLEAN UP THE VARS USED
CAPPARSE(CAPTION) ;EP - PARSE OUT THE CAP
APPTYPE ;EP - EDIT APPPLICATION TYPE
CLEAN(AD0) ;CLEAN EMPTY RECORD. IF NO APPLICATION DATES HAVE BEEN
WMSG ;DISP THIS MSG IF THERE IS NO AUTHORIZATION DT FOUND
APPPERS ;EDIT PERSON RECEIVING
NEWAPPDT ;
1 ;
EN(AD0,AD1,NEWENTRY,CASEPTR) ;EP -
STUFCASE(AD0,AD1,CASEPTR) ;EP
CLEANZER(AD0) ;EP
VAR
NEWENTRY ;NEW ENTRY
EDAPPDT ;EDIT DATE APPLICATION OBTAINED
APPSTAT ;EP - EDIT OVERALL STATUS
GETAW ;DISP

External References

Name Field # of Occurrence
^AGED DRAW+4
UPDATE1^AGED VAR+28
READ^AGED1 VAR+8
EDITCHEK^AGEDERR GETAW+67
FETCHERR^AGEDERR GETAW+65
VERIF^AGUTILS GETAW+68
^DIC NEWENTRY+8, NEWAPPDT+7
^DIE STUFCASE+6, EDAPPDT+10, APPSTAT+6, APPTYPE+7, APPPERS+6
^DIK CLEANZER+2
$$GET1^DIQ GETAW+37, GETAW+58, CAPPARSE+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No entry made"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: VAR+1
Function Call: WRITE
  • Prompt: !,"Enter a number between 5 and "_AG("N")
  • Line Location: VAR+10
Function Call: WRITE
  • Prompt: !,"ERRORS ON THIS PAGE. PLEASE EDIT BEFORE EXITING!!"
  • Line Location: VAR+11
Function Call: WRITE
  • Prompt: !!,"You must enter a number from 1 to ",AG("N"),!,"or 'A' to add application submission information."
  • 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: $$GET1^DIQ(DIC,D0,DR)
  • Line Location: GETAW+37
Function Call: WRITE
  • Prompt: !,"NO SUBMISSIONS MADE"
  • Line Location: GETAW+47
Function Call: WRITE
  • Prompt: !,ITEM_"."
  • Line Location: GETAW+53
Function Call: WRITE
  • Prompt: $S(DR=.04!(DR=.03):$E($$GET1^DIQ(DIC,D0,DR),1,20),1:$$GET1^DIQ(DIC,D0,DR))
  • Line Location: GETAW+58
Function Call: WRITE
  • Prompt: !,$G(AGLINE("-"))
  • Line Location: GETAW+63
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: !,"WHEN WAS THE PATIENT'S APPLICATION OBTAINED?"
  • Line Location: WMSG+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: NEWENTRY+1
Function Call: WRITE
  • Prompt: !,"DELETING APPLICATIONS DATA IS PROHIBITED!"
  • Line Location: EDAPPDT+7
Function Call: WRITE
  • Prompt: !,"ENTER 'E ENTERED IN ERROR' INTO 'Overall Status' field item #2"
  • Line Location: EDAPPDT+8
Function Call: WRITE
  • Prompt: !,"TO CLOSE THIS APPLICATION."
  • Line Location: EDAPPDT+9
Routine Call
  • DIE
  • Line Location:
    • STUFCASE+6
    • EDAPPDT+10
    • APPSTAT+6
    • APPTYPE+7
    • APPPERS+6
Routine Call
  • DIC
  • Line Location:
    • NEWENTRY+8
    • NEWAPPDT+7

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNAPPS - [#9000045] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNAPPS - [#9000045] VAR+24, CLEAN+5, GETAW+47, GETAW+49
^DD( GETAW+24, GETAW+25

Label References

Name Line Occurrences
@( VAR+16, VAR+20, VAR+23
APPPERS EN+9
APPSTAT EN+8
APPTYPE EN+7
CAPPARSE GETAW+6
CLEAN VAR+24, VAR+27
CLEANZER CLEAN+6
DRAW EN+6, VAR
END VAR+13
GETAW DRAW+5
NEWENTRY EN+6
STUFCASE NEWAPPDT+10
VAR VAR+10, VAR+11, VAR+13, VAR+16, VAR+17, VAR+20, VAR+30
WMSG EN+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AD0 EN~, VAR+16, VAR+24, VAR+27, CLEAN~, CLEAN+5, CLEAN+6, CLEANZER~, CLEANZER+2, GETAW+29
, GETAW+44, CAPPARSE+9, NEWENTRY+11*, NEWAPPDT+2, NEWAPPDT+10, STUFCASE~, STUFCASE+2, EDAPPDT+2, APPSTAT+2, APPTYPE+2
, APPPERS+2
AD1 EN~, VAR+16, VAR+24, GETAW+31, GETAW+45, CAPPARSE+9, NEWAPPDT+9*, NEWAPPDT+10, STUFCASE~, STUFCASE+3
, EDAPPDT+3, APPSTAT+3, APPTYPE+3, APPPERS+3
ADA END+1!
ADFN END+1!
ADT END+1!
>> AG GETAW+2*
>> AG("C" VAR+23, GETAW+1!, GETAW+20*
>> AG("ERR" VAR+13
>> AG("N" VAR+4, VAR+7, VAR+10, VAR+17, VAR+23, GETAW+62*
>> AG("PG" DRAW+2*, GETAW+65
>> AG("SEL" VAR+23*
AGI VAR+23*, VAR+29!
>> AGLINE("-" GETAW+63
>> AGLINE("EQ" VAR+1
>> AGOPT("ESCAPE" VAR+12
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, VAR+10
>> AGSELECT GETAW+66
AGY VAR+22*, VAR+23, VAR+24, VAR+29!
>> 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
CASEPTR EN~, NEWAPPDT+10, STUFCASE~
CHOICES DRAW+1!
CHOICES( VAR+17, VAR+20, GETAW+51*
>> D0 GETAW+29*, GETAW+30*, GETAW+31*, GETAW+37, GETAW+38*, GETAW+52*, GETAW+58
DA CLEANZER+1!, CLEANZER+2*, END+1!, NEWENTRY+2!, NEWAPPDT+1!, STUFCASE+1!, STUFCASE+3*, EDAPPDT+1!, EDAPPDT+3*, EDAPPDT+11!
, APPSTAT+1!, APPSTAT+3*, APPSTAT+7!, APPTYPE+1!, APPTYPE+3*, APPTYPE+8!, APPPERS+1!, APPPERS+3*, APPPERS+7!
DA(1 NEWAPPDT+2*, NEWAPPDT+3, STUFCASE+2*, STUFCASE+4, EDAPPDT+2*, EDAPPDT+4, APPSTAT+2*, APPSTAT+4, APPTYPE+2*, APPTYPE+4
, APPPERS+2*, APPPERS+4
DD NEWAPPDT+6!, EDAPPDT+1!, APPSTAT+1!, APPTYPE+1!, APPPERS+1!
>> DFN VAR+28, GETAW+66, NEWENTRY+5, NEWENTRY+7, NEWENTRY+9*
DFOUT VAR+14, END+1!
DIC END+1!, GETAW+7*, GETAW+24, GETAW+25, GETAW+30, GETAW+37, GETAW+42, GETAW+51, GETAW+58, NEWENTRY+2!
, NEWENTRY+3*, NEWAPPDT+1!, NEWAPPDT+3*, STUFCASE+1!, EDAPPDT+1!, EDAPPDT+11!, APPSTAT+1!, APPSTAT+7!, APPTYPE+1!, APPTYPE+8!
, APPPERS+1!, APPPERS+7!
DIC("S" NEWENTRY+6*, NEWAPPDT+5*
DIC(0 NEWENTRY+4*, NEWAPPDT+4*
DIE NEWENTRY+2!, NEWAPPDT+1!, STUFCASE+4*, EDAPPDT+1!, EDAPPDT+4*, EDAPPDT+11!, APPSTAT+1!, APPSTAT+4*, APPSTAT+7!, APPTYPE+1!
, APPTYPE+4*, APPTYPE+8!, APPPERS+1!, APPPERS+4*, APPPERS+7!
DIE("NO^" APPTYPE+6*
DIK CLEANZER+1!, CLEANZER+2*
DIR VAR+2!, VAR+7*, STUFCASE+1!, EDAPPDT+1!
DIR("A" VAR+4*, VAR+6*
DLOUT VAR+13, END+1!
DO NEWAPPDT+6!, EDAPPDT+1!, APPSTAT+1!, APPTYPE+1!, APPPERS+1!
>> DORTN VAR+20*
DQOUT VAR+17, END+1!
DR END+1!, GETAW+8*, GETAW+24, GETAW+25, GETAW+34, GETAW+35*, GETAW+37, GETAW+55*, GETAW+58, NEWENTRY+2!
, NEWAPPDT+1!, STUFCASE+1!, STUFCASE+5*, EDAPPDT+1!, EDAPPDT+5*, EDAPPDT+11!, APPSTAT+1!, APPSTAT+5*, APPSTAT+7!, APPTYPE+1!
, APPTYPE+5*, APPTYPE+8!, APPPERS+1!, APPPERS+5*, APPPERS+7!
DR(1 EDAPPDT+6*
DTOUT VAR+14, END+1!
>> DUOUT VAR+13
DUZ(2 VAR+28, GETAW+66
>> EXECUTE GETAW+16*, GETAW+37, GETAW+38, GETAW+57, GETAW+59
>> EXIT EN+4*, EN+5, EN+6*
>> FIELD CAPPARSE+8*, CAPPARSE+9
>> FIELDS CAPPARSE+5*, CAPPARSE+7
>> ITEM GETAW+43*, GETAW+50*, GETAW+51, GETAW+53, GETAW+62
>> 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+64!, GETAW+65, GETAW+67
MYERRS("C" VAR+11
MYVARS GETAW+64!, GETAW+67
MYVARS("DFN" GETAW+66*
MYVARS("FINDCALL" GETAW+66*
MYVARS("SELECTION" GETAW+66*
MYVARS("SITE" GETAW+66*
NEWENTRY EN~, EN+5*, END+1!, GETAW+28, NEWENTRY+12*
>> NEWLINE GETAW+12*, GETAW+21
>> PARAM1 VAR+20*
>> PARAM2 VAR+20*
>> PARAM3 VAR+20*
PIECE GETAW+33~, GETAW+35*, GETAW+36, GETAW+37, GETAW+38, GETAW+39, GETAW+40!, GETAW+54~, GETAW+55*, GETAW+56
, GETAW+57, GETAW+59, GETAW+60, GETAW+61!, CAPPARSE+7*, CAPPARSE+8
>> POSTEXEC GETAW+19*, GETAW+39, GETAW+60
>> PRECAPEX GETAW+18*, GETAW+24, GETAW+25
>> PREEXEC GETAW+17*, GETAW+36, GETAW+56
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
>> TEMPDFN NEWENTRY+7*, NEWENTRY+9
U VAR+20, GETAW+5, GETAW+7, GETAW+8, GETAW+12, GETAW+13, GETAW+14, GETAW+15, GETAW+24, GETAW+25
, GETAW+51
>> VD0 GETAW+44*, GETAW+47, GETAW+49, GETAW+51, GETAW+52
>> VD1 GETAW+45*, GETAW+46*, GETAW+47, GETAW+49, GETAW+51, GETAW+52
>> VD2 GETAW+48*, GETAW+49*, GETAW+51, GETAW+52
>> VDR GETAW+34*, GETAW+35, GETAW+55
WDA END+1!
WDFN END+1!
WDT END+1!
>> X NEWENTRY+5*
Y EN+6, VAR+9, VAR+10, VAR+11, VAR+12, VAR+13, VAR+16, VAR+17, VAR+20, VAR+21
, VAR+22, END+1!, NEWENTRY+10, NEWENTRY+11, NEWAPPDT+8, NEWAPPDT+9

Marked Items

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