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

Package: IHS Patient Registration

Routine: AGEDBEB


Information

AGEDBEB ; IHS/ASDS/TPF - EDIT/DISP BENEFITS COORDINATOR - CASE SCREEN ;

Source Information

Source file <AGEDBEB.m>

Call Graph

Call Graph Total: 12

Package Total Call Graph
IHS Patient Registration 6 (,UPDATE1)^AGED  READ^AGED1  EN^AGEDBED  EN^AGEDBEH  (EDITCHEK,FETCHERR)^AGEDERR  (ALERTMSG,VERIF)^AGUTILS  
VA Fileman 6 ^DIC  ^DIE  ^DIK  $$GET1^DIQ  ^DIR  EN^DIWE  

Entry Points

Name Comments DBIA/ICR reference
EDDTCOM ;EP - DT COMPLETED
GETNOTES ;EP
EN(RD0,RD1,NEWENTRY) ;
GETAW ;DISP
NEWENTRY ;NEW ENTRY
ENUFOPEN(RD0) ;EP - IF NO APPS OR SPEND DOWN INFO, OK TO DELETE
STUFFBY ;STUFF USER INITS AND USER PTR
EDCASNUM ;CASE #
NEWCASDT ;
CLEAN(RD0) ;EP -
1 ;
EDCASE ;CASE WORKER
STUFSTAT ;EP - STUFF STATUS IF COMPLETED BY FLD IS POPULATED
EDCASTO ;ASSIGNED TO
SPENDOWN ;EP - GET SPEND DOWNS FOR THE DATE REFERRED
DRAW ;EP
END ;CLEAN UP VARS
EDTYPE ;CASE TYPE
EDNOTES ;EP - EDIT CASE NOTES
NODELALL(RD0) ;EP
VAR
WMSG ;DISP MSG IF NO ENTRY IS FOUND IN ANY OF THE GUARAN
EDREAS ;CASE REASON
EDCASDT ;CASE DT
CLEANZER(RD0) ;EP
EDCOMBY ;EP - COMPLETED BY
NOAPSCHS(DFN) ;EP

External References

Name Field # of Occurrence
^AGED DRAW+4
UPDATE1^AGED EN+3, VAR+28
READ^AGED1 VAR+11
EN^AGEDBED VAR+18
EN^AGEDBEH VAR+19
EDITCHEK^AGEDERR GETAW+98
FETCHERR^AGEDERR GETAW+96
ALERTMSG^AGUTILS EDCASTO+16
VERIF^AGUTILS GETAW+99
^DIC NEWENTRY+8, NEWCASDT+7
^DIE EDCOMBY+10, EDDTCOM+7, EDREAS+6, EDCASE+6, EDCASNUM+6, EDTYPE+6, EDCASDT+6, EDCASTO+6, STUFFBY+6, STUFSTAT+6
^DIK CLEANZER+2
$$GET1^DIQ GETAW+33, GETAW+61, GETAW+88
^DIR EDNOTES+2, EDNOTES+6
EN^DIWE EDNOTES+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No entry made"
  • Line Location: EN+4
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: !,"Enter a number between 9 and "_AG("N")
  • Line Location: VAR+13
Function Call: WRITE
  • Prompt: !,"Enter a number between 8 and "_AG("N")
  • Line Location: VAR+15
Function Call: WRITE
  • Prompt: !!,"You must enter a number from 1 to ",AG("N"),!,"or 'A' to add application information.",!,"or 'S' to add SPEND DOWN information"
  • Line Location: VAR+20
Function Call: WRITE
  • Prompt: !,$E(CAPTION,2,199)
  • Line Location: GETAW+7
Function Call: WRITE
  • Prompt: @NEWLINE
  • Line Location: GETAW+19
Function Call: WRITE
  • Prompt: ITEMNUM
  • Line Location: GETAW+20
Function Call: WRITE
  • Prompt: $$GET1^DIQ(DIC,D0,DR)
  • Line Location: GETAW+33
Function Call: WRITE
  • Prompt: !,"NO APPLICATIONS ASSOCIATED WITH THIS CASE",!
  • Line Location: GETAW+42
Function Call: WRITE
  • Prompt: !,"NO APPLICATIONS ASSOCIATED WITH THIS CASE",!
  • Line Location: GETAW+45
Function Call: WRITE
  • Prompt: ?0,ITEM_"."
  • Line Location: GETAW+55
Function Call: WRITE
  • Prompt: !,ITEM_"."
  • Line Location: GETAW+56
Function Call: WRITE
  • Prompt: $S(DR=.03:$E($$GET1^DIQ(DIC,D0,DR),1,20),1:$$GET1^DIQ(DIC,D0,DR))
  • Line Location: GETAW+61
Function Call: WRITE
  • Prompt: !,"NO SPEND DOWN INFORMATION ASSOCIATED WITH THIS CASE",!
  • Line Location: GETAW+69
Function Call: WRITE
  • Prompt: !,"NO SPEND DOWN INFORMATION ASSOCIATED WITH THIS CASE",!
  • Line Location: GETAW+73
Function Call: WRITE
  • Prompt: ?0,ITEM_"."
  • Line Location: GETAW+82
Function Call: WRITE
  • Prompt: !,ITEM_"."
  • Line Location: GETAW+83
Function Call: WRITE
  • Prompt: $S(DR=.04:$J($$GET1^DIQ(DIC,D0,DR),6,2),(DR=.02!(DR=.03)):$E($$GET1^DIQ(DIC,D0,DR),1,15),1:$$GET1^DIQ(DIC,D0,DR))
  • Line Location: GETAW+88
Function Call: WRITE
  • Prompt: !,$G(AGLINE("-"))
  • Line Location: GETAW+94
Function Call: WRITE
  • Prompt: ?39,$J($P(SPDDATA,U,3),8,2),?51,$P(SPDDATA,U,2),?67,SPDDATE
  • Line Location: SPENDOWN+4
Function Call: WRITE
  • Prompt: !,"You must first enter a BENEFIT CASE DATE"
  • Line Location: WMSG+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: NEWENTRY+1
Function Call: WRITE
  • Prompt: !,"CANNOT DELETE THIS OPEN CASE - PATIENT HAS APPLICATIONS AND SPEND DOWN INFORMATION!"
  • Line Location: EDCOMBY+4
Function Call: WRITE
  • Prompt: !,"CANNOT DELETE THIS OPEN CASE - PATIENT HAS APPLICATIONS AND SPEND DOWN INFORMATION!"
  • Line Location: ENUFOPEN+7
Function Call: WRITE
  • Prompt: !
  • Line Location: EDNOTES+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EDNOTES+6
Function Call: WRITE
  • Prompt: LINE
  • Line Location: GETNOTES+10
Routine Call
  • DIE
  • Line Location:
    • EDCOMBY+10
    • EDDTCOM+7
    • EDREAS+6
    • EDCASE+6
    • EDCASNUM+6
    • EDTYPE+6
    • EDCASDT+6
    • EDCASTO+6
    • STUFFBY+6
    • STUFSTAT+6
Routine Call
  • DIC
  • Line Location:
    • NEWENTRY+8
    • NEWCASDT+7
Routine Call
  • DIR
  • Line Location:
    • EDNOTES+2
    • EDNOTES+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^AUPNBENR - [#9000044] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNAPPS - [#9000045] GETAW+49
^AUPNAPPS("B" GETAW+41, NOAPSCHS+2
^AUPNAPPS("C" GETAW+44, GETAW+48, GETAW+51
^AUPNBENR - [#9000044] VAR+25, VAR+26, CLEAN+1, ENUFOPEN+5, ENUFOPEN+6, NODELALL+7, NODELALL+8, EDNOTES+4, EDNOTES+5, GETNOTES+3
, GETNOTES+5, GETNOTES+9
^AUPNCHS - [#9000047] GETAW+76, SPENDOWN+1, SPENDOWN+2
^AUPNCHS("B" GETAW+68, NOAPSCHS+2
^AUPNCHS("C" GETAW+72, GETAW+75, GETAW+78
^DD( GETAW+22, GETAW+23
^DD("DD" SPENDOWN+3
^VA(200 - [#200] EDCASTO+14

Label References

Name Line Occurrences
$$NOAPSCHS ENUFOPEN+1, NODELALL+2
@( VAR+21, VAR+24
CLEAN EN+5, VAR+25, VAR+26
CLEANZER CLEAN+2
DRAW EN+4, VAR
EDCASNUM EN+6
EDCASTO EN+7
EDDTCOM EDCOMBY+11
EDREAS EN+5
END VAR+16
GETAW DRAW+5
GETNOTES GETAW+65
NEWENTRY EN+4
SPENDOWN GETAW+92
STUFFBY NEWCASDT+8
STUFSTAT EDCOMBY+11
VAR VAR+2, VAR+15, VAR+16, VAR+18, VAR+19, VAR+20, VAR+21, VAR+30
WMSG EN+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADA END+1!
ADFN END+1!
ADT END+1!
AG END+1!, GETAW+3*
AG("C" VAR+24, GETAW+1!, GETAW+18*
AG("ERR" VAR+16
AG("N" VAR+6, VAR+8, VAR+9, VAR+10, VAR+15, VAR+20, VAR+24, GETAW+93*
AG("PG" DRAW+3*, GETAW+96
AG("SEL" VAR+24*
>> AGCHRT EDCASTO+13
AGI VAR+24*, VAR+29!
>> AGLINE("-" GETAW+94
>> AGLINE("EQ" VAR+1
>> AGOPT("ESCAPE" VAR+3
>> AGPAT EDCASTO+12
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+7, VAR+12, VAR+15, VAR+28, EDNOTES+2
>> AGSELECT GETAW+97
>> AGSENNLY VAR+5
AGY VAR+23*, VAR+24, VAR+25, VAR+29!
ALERT EDCASTO+1!
ALERT(0 EDCASTO+10*
ALERT(1 EDCASTO+11*
ALERT(2 EDCASTO+12*
ALERT(3 EDCASTO+13*
ALERT(4 EDCASTO+14*
>> AUPNPAT GETAW+41, GETAW+49, GETAW+68, GETAW+76
>> BD1 GETAW+50*, GETAW+51*, GETAW+53, GETAW+54, GETAW+77*, GETAW+78*, GETAW+80, GETAW+81, SPENDOWN+1, SPENDOWN+2
>> CAPDENT GETAW+11*, GETAW+22, GETAW+23
>> CAPTION GETAW+6*, GETAW+7, GETAW+22, GETAW+23
>> CASENUM EDCASTO+11
>> CASEPTR GETAW+43*, GETAW+44, GETAW+48, GETAW+51, GETAW+71*, GETAW+72, GETAW+75, GETAW+78
CHOICES DRAW+1!
CHOICES( VAR+20, VAR+21, GETAW+53*, GETAW+80*
D0 GETAW+25*, GETAW+26*, GETAW+27*, GETAW+29*, GETAW+33, GETAW+34*, GETAW+54*, GETAW+61, GETAW+81*, GETAW+88
, EDCASDT+7!
DA CLEANZER+1!, CLEANZER+2*, END+1!, NEWENTRY+2!, NEWCASDT+1!, EDCOMBY+5!, EDCOMBY+7*, EDCOMBY+12!, EDDTCOM+1!, EDDTCOM+3*
, EDDTCOM+8!, EDREAS+1!, EDREAS+3*, EDREAS+7!, EDCASE+1!, EDCASE+3*, EDCASE+7!, EDCASNUM+1!, EDCASNUM+3*, EDCASNUM+7!
, EDTYPE+1!, EDTYPE+3*, EDTYPE+7!, EDCASDT+1!, EDCASDT+2*, EDCASDT+7!, EDCASTO+1!, EDCASTO+2*, EDCASTO+8!, STUFFBY+1!
, STUFFBY+3*, STUFFBY+7!, STUFSTAT+1!, STUFSTAT+3*, STUFSTAT+7!, EDNOTES+8!, EDNOTES+13!
DA(1 NEWCASDT+2*, NEWCASDT+3, EDCOMBY+6*, EDCOMBY+8, EDDTCOM+2*, EDDTCOM+4, EDREAS+2*, EDREAS+4, EDCASE+2*, EDCASE+4
, EDCASNUM+2*, EDCASNUM+4, EDTYPE+2*, EDTYPE+4, EDCASDT+3*, EDCASDT+5, EDCASTO+3*, EDCASTO+4, STUFFBY+2*, STUFFBY+4
, STUFSTAT+2*, STUFSTAT+4, EDNOTES+9*, EDNOTES+11
DA(2 EDNOTES+10*, EDNOTES+11
DD NEWCASDT+6!, EDCOMBY+5!, EDDTCOM+1!, EDREAS+1!, EDCASE+1!, EDCASNUM+1!, EDTYPE+1!, EDCASDT+1!, EDCASDT+7!, EDCASTO+1!
, STUFFBY+1!, STUFSTAT+1!, EDNOTES+8!
DFN EN+3, VAR+28, GETAW+97, NEWENTRY+5, NEWENTRY+7, NEWENTRY+9*, ENUFOPEN+1, NODELALL+2, NOAPSCHS~, NOAPSCHS+2
DFOUT VAR+17, END+1!
DIC END+1!, GETAW+8*, GETAW+22, GETAW+23, GETAW+26, GETAW+28, GETAW+33, GETAW+38, GETAW+53, GETAW+61
, GETAW+65, GETAW+66, GETAW+80, GETAW+88, NEWENTRY+2!, NEWENTRY+3*, NEWCASDT+1!, NEWCASDT+3*, EDCOMBY+5!, EDCOMBY+12!
, EDDTCOM+1!, EDDTCOM+8!, EDREAS+1!, EDREAS+7!, EDCASE+1!, EDCASE+7!, EDCASNUM+1!, EDCASNUM+7!, EDTYPE+1!, EDTYPE+7!
, EDCASDT+1!, EDCASDT+7!, EDCASTO+1!, EDCASTO+8!, STUFFBY+1!, STUFFBY+7!, STUFSTAT+1!, STUFSTAT+7!, EDNOTES+8!, EDNOTES+11*
, EDNOTES+13!
DIC("S" NEWENTRY+6*, NEWCASDT+5*
DIC(0 NEWENTRY+4*, NEWCASDT+4*
DIDEL EDCASDT+1!
DIE NEWENTRY+2!, NEWCASDT+1!, EDCOMBY+5!, EDCOMBY+8*, EDCOMBY+12!, EDDTCOM+1!, EDDTCOM+4*, EDDTCOM+8!, EDREAS+1!, EDREAS+4*
, EDREAS+7!, EDCASE+1!, EDCASE+4*, EDCASE+7!, EDCASNUM+1!, EDCASNUM+4*, EDCASNUM+7!, EDTYPE+1!, EDTYPE+4*, EDTYPE+7!
, EDCASDT+1!, EDCASDT+5*, EDCASDT+7!, EDCASTO+1!, EDCASTO+4*, EDCASTO+8!, STUFFBY+1!, STUFFBY+4*, STUFFBY+7!, STUFSTAT+1!
, STUFSTAT+4*, STUFSTAT+7!, EDNOTES+8!, EDNOTES+13!
DIE("NO^" EDDTCOM+6*
DIK CLEANZER+1!, CLEANZER+2*
DIR VAR+4!, EDCASDT+1!, EDNOTES+2!, EDNOTES+6!
DIR("A" VAR+6*, VAR+8*, VAR+9*, EDNOTES+6*
DIR(0 VAR+10*, EDNOTES+2*, EDNOTES+6*
DLOUT VAR+16, END+1!
DO NEWCASDT+6!, EDCOMBY+5!, EDDTCOM+1!, EDREAS+1!, EDCASE+1!, EDCASNUM+1!, EDTYPE+1!, EDCASDT+1!, EDCASTO+1!, STUFFBY+1!
, STUFSTAT+1!, EDNOTES+8!
>> DORTN VAR+21*
DQOUT VAR+20, END+1!
DR END+1!, GETAW+22, GETAW+23, GETAW+31*, GETAW+33, GETAW+58*, GETAW+61, GETAW+85*, GETAW+88, NEWENTRY+2!
, NEWCASDT+1!, EDCOMBY+5!, EDCOMBY+9*, EDCOMBY+12!, EDDTCOM+1!, EDDTCOM+5*, EDDTCOM+8!, EDREAS+1!, EDREAS+5*, EDREAS+7!
, EDCASE+1!, EDCASE+5*, EDCASE+7!, EDCASNUM+1!, EDCASNUM+5*, EDCASNUM+7!, EDTYPE+1!, EDTYPE+5*, EDTYPE+7!, EDCASDT+1!
, EDCASDT+4*, EDCASDT+7!, EDCASTO+1!, EDCASTO+5*, EDCASTO+8!, STUFFBY+1!, STUFFBY+5*, STUFFBY+7!, STUFSTAT+1!, STUFSTAT+5*
, STUFSTAT+7!, EDNOTES+8!, EDNOTES+13!
DTOUT VAR+17, END+1!
>> DUOUT VAR+16
DUZ EDCASTO+14, EDCASTO+16
DUZ(2 EN+3, VAR+28, GETAW+97
>> EXECUTE GETAW+14*, GETAW+33, GETAW+34, GETAW+60, GETAW+62, GETAW+87, GETAW+89
>> EXIT EN+1*, EN+3, EN+4*, EN+5*
IEN GETNOTES+1~, GETNOTES+5*, GETNOTES+7, GETNOTES+9
IOSL EDNOTES+6
>> ITEM GETAW+40*, GETAW+52*, GETAW+53, GETAW+55, GETAW+56, GETAW+79*, GETAW+80, GETAW+82, GETAW+83, GETAW+93
>> ITEMNUM GETAW+12*, GETAW+18, GETAW+20, GETAW+21
>> LINE GETNOTES+9*, GETNOTES+10
>> LSTONE SPENDOWN+1*, SPENDOWN+2
MYERRS GETAW+95!, GETAW+96, GETAW+98
MYERRS("C" VAR+2
MYVARS GETAW+95!, GETAW+98
MYVARS("DFN" GETAW+97*
MYVARS("FINDCALL" GETAW+97*
MYVARS("SELECTION" GETAW+97*
MYVARS("SITE" GETAW+97*
NEWENTRY EN~, EN+3*, END+1!, GETAW+24, GETAW+39, GETAW+65, GETAW+67, NEWENTRY+12*
>> NEWLINE GETAW+10*, GETAW+19
NODELALL NODELALL+5~, NODELALL+6*, NODELALL+9*, NODELALL+11
OPEN ENUFOPEN+2~, ENUFOPEN+3*, ENUFOPEN+6*, ENUFOPEN+7, ENUFOPEN+8
>> PARAM1 VAR+21*
>> PARAM2 VAR+21*
PIECE GETAW+30~, GETAW+31*, GETAW+32, GETAW+33, GETAW+34, GETAW+35, GETAW+36!, GETAW+57~, GETAW+58*, GETAW+59
, GETAW+60, GETAW+62, GETAW+63, GETAW+64!, GETAW+84~, GETAW+85*, GETAW+86, GETAW+87, GETAW+89, GETAW+90
, GETAW+91!
>> POSTEXEC GETAW+17*, GETAW+35, GETAW+63, GETAW+90
>> PRECAPEX GETAW+16*, GETAW+22, GETAW+23
>> PREEXEC GETAW+15*, GETAW+32, GETAW+59, GETAW+86
RD0 EN~, EN+5, VAR+25, VAR+26, CLEAN~, CLEAN+1, CLEAN+2, CLEANZER~, CLEANZER+2, GETAW+2
, GETAW+25, NEWENTRY+11*, NEWCASDT+2, EDCOMBY+6, ENUFOPEN~, ENUFOPEN+5, ENUFOPEN+6, EDDTCOM+2, EDREAS+2, EDCASE+2
, EDCASNUM+2, EDTYPE+2, NODELALL~, NODELALL+7, NODELALL+8, EDCASDT+3, EDCASTO+3, STUFFBY+2, STUFSTAT+2, EDNOTES+4
, EDNOTES+5, EDNOTES+10, GETNOTES+2, GETNOTES+3, GETNOTES+5, GETNOTES+9
RD1 EN~, VAR+18, VAR+19, VAR+25, GETAW+27, GETAW+43, GETAW+71, NEWCASDT+8*, EDCOMBY+7, EDDTCOM+3
, EDREAS+3, EDCASE+3, EDCASNUM+3, EDTYPE+3, EDCASDT+2, EDCASTO+2, STUFFBY+3, STUFSTAT+3, EDNOTES+4, EDNOTES+5
, EDNOTES+9, GETNOTES+2, GETNOTES+3, GETNOTES+5, GETNOTES+9
REC END+1!, ENUFOPEN+2~, ENUFOPEN+4*, ENUFOPEN+5*, ENUFOPEN+6, EDNOTES+3~*, EDNOTES+4*, EDNOTES+5
ROUTID END+1!, DRAW+2*
>> SPDDATA SPENDOWN+2*, SPENDOWN+3, SPENDOWN+4
>> SPDDATE SPENDOWN+3*, SPENDOWN+4
>> TAGCALL GETAW+13*, GETAW+18
>> TEMPDFN NEWENTRY+7*, NEWENTRY+9
U VAR+21, GETAW+6, GETAW+8, GETAW+9, GETAW+10, GETAW+11, GETAW+12, GETAW+13, GETAW+22, GETAW+23
, GETAW+49, GETAW+53, GETAW+76, GETAW+80, SPENDOWN+3, SPENDOWN+4, EDCOMBY+11, ENUFOPEN+6, EDCASTO+7, EDCASTO+14
, EDNOTES+5
>> VD0 GETAW+2*, GETAW+41*, GETAW+42, GETAW+44*, GETAW+45, GETAW+47*, GETAW+48*, GETAW+49, GETAW+51, GETAW+53
, GETAW+54, GETAW+68*, GETAW+69, GETAW+72*, GETAW+73, GETAW+74*, GETAW+75*, GETAW+76, GETAW+78, GETAW+80
, GETAW+81, SPENDOWN+1, SPENDOWN+2
>> VDR GETAW+9*, GETAW+31, GETAW+58, GETAW+85
WDA END+1!
WDFN END+1!
WDT END+1!
>> X EN+5, NEWENTRY+5*, EDCOMBY+11, EDCASTO+7, EDCASTO+15
>> XMY EDCASTO+16
>> XMY( EDCASTO+15*
Y EN+4, VAR+2, VAR+3, VAR+12, VAR+15, VAR+16, VAR+18, VAR+19, VAR+20, VAR+21
, VAR+22, VAR+23, END+1!, SPENDOWN+3*, NEWENTRY+10, NEWENTRY+11, NEWCASDT+8

Marked Items

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