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 |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AGEDBEG

Package: IHS Patient Registration

Routine: AGEDBEG


Information

AGEDBEG ; IHS/ASDS/TPF - EDIT/DISPLAY BENEFITS COORDINATOR - AUTHORIZATION CONTACTS SCREEN ;

Source Information

Source file <AGEDBEG.m>

Call Graph

Call Graph Total: 13

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

Entry Points

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

External References

Name Field # of Occurrence
UPDATE1^AGED VAR+26
READ^AGED1 VAR+10
EDITCHEK^AGEDERR GETAW+58
FETCHERR^AGEDERR GETAW+56
$$DTEST^AGUTILS HDR+21
PROGVIEW^AGUTILS HDR+13
VERIF^AGUTILS GETAW+59
$$S^AGVDF HDR+10
^DIC NEWENTRY+8, ADDDT+7
^DIE EDADDDT+7, EDCONPER+7, EDCONPH+7, EDEMAIL+7, EDCONFAX+7
^DIK CLEANZER+2
$$GET1^DIQ GETAW+37, CAPPARSE+9, CAPPARSE+11
^DIR EDCONNOT+2, EDCONNOT+6, DISNOTES+9
EN^DIWE EDCONNOT+13
^DIWP GETAW+51, DISNOTES+7
^DIWW GETAW+52, DISNOTES+8

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+3
Function Call: WRITE
  • Prompt: !,"ERRORS ON THIS PAGE. PLEASE EDIT BEFORE EXITING!!"
  • Line Location: VAR+14
Function Call: WRITE
  • Prompt: !!,"You must enter a number from 1 to ",AG("N")
  • Line Location: VAR+18
Function Call: WRITE
  • Prompt: $$S^AGVDF("IOF"),!
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: "IHS REGISTRATION ",$S($D(AGSEENLY):"VIEW SCREEN",1:"EDITOR")
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: ?36,"BENEFITS COORDINATOR"
  • Line Location: HDR+15
Function Call: WRITE
  • Prompt: ?80-$L($P($G(^DIC(4,DUZ(2),0)),U)),$P($G(^DIC(4,DUZ(2),0)),U)
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: HDR+19
Function Call: WRITE
  • Prompt: !,$E(AGPAT,1,23)
  • Line Location: HDR+20
Function Call: WRITE
  • Prompt: ?23,$$DTEST^AGUTILS(DFN)
  • Line Location: HDR+21
Function Call: WRITE
  • Prompt: ?42,"HRN#:",AGCHRT
  • Line Location: HDR+22
Function Call: WRITE
  • Prompt: ?56,"(",$S(AGELSTS="C":"CHS & DIRECT",AGELSTS="I":"INELIGIBLE",AGELSTS="D":"DIRECT ONLY",AGELSTS="P":"PENDING VERIFICATION",1:"NONE"),")"
  • Line Location: HDR+25
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: HDR+26
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: !,$G(AGLINE("-"))
  • Line Location: GETAW+54
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 CONTACT DATE"
  • Line Location: WMSG+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: NEWENTRY+1
Function Call: WRITE
  • Prompt: !
  • Line Location: EDCONNOT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: EDCONNOT+6
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
    • EDCONPER+7
    • EDCONPH+7
    • EDEMAIL+7
    • EDCONFAX+7
Routine Call
  • DIC
  • Line Location:
    • NEWENTRY+8
    • ADDDT+7
Routine Call
  • DIR
  • Line Location:
    • EDCONNOT+2
    • EDCONNOT+6
    • 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] VAR+22, CLEAN+4, GETAW+49, GETAW+50, EDCONNOT+4, EDCONNOT+5, DISNOTES+1, DISNOTES+5, DISNOTES+6
^AUPNPAT - [#9000001] HDR+4, HDR+6, HDR+24
^DD( GETAW+24, GETAW+25
^DIC(4 - [#4] HDR+16
^DPT - [#2] HDR+3
^UTILITY($J GETAW+42!

Label References

Name Line Occurrences
@( VAR+21
CAPPARSE GETAW+6
CLEAN VAR+22, VAR+25
CLEANZER CLEAN+5
DISNOTES VAR+12
DRAW EN+3, VAR+1
END EN+3, VAR+16
GETAW DRAW+3
HDR DRAW+2
NEWENTRY EN+3
VAR VAR+12, VAR+14, VAR+16, VAR+18, VAR+28
WMSG EN+3

Naked Globals

Name Field # of Occurrence
^(0 HDR+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AD0 EN~, VAR, VAR+22, VAR+25, CLEAN~, CLEAN+4, CLEAN+5, CLEANZER~, CLEANZER+2, GETAW+29
, GETAW+45, CAPPARSE+9, CAPPARSE+11, NEWENTRY+11*, ADDDT+2, EDADDDT+3, EDCONPER+3, EDCONPH+3, EDEMAIL+3, EDCONFAX+3
, EDCONNOT+4, EDCONNOT+5, EDCONNOT+11, DISNOTES+1, DISNOTES+5, DISNOTES+6
AD1 EN~, VAR, VAR+22, GETAW+31, GETAW+46, CAPPARSE+9, CAPPARSE+11, ADDDT+3, EDADDDT+2, EDCONPER+2
, EDCONPH+2, EDEMAIL+2, EDCONFAX+2, EDCONNOT+4, EDCONNOT+5, EDCONNOT+10, DISNOTES+1, DISNOTES+5, DISNOTES+6
AD2 EN~, VAR, VAR+22, GETAW+31, GETAW+47, ADDDT+8*, EDADDDT+4, EDCONPER+4, EDCONPH+4, EDEMAIL+4
, EDCONFAX+4, EDCONNOT+4, EDCONNOT+5, EDCONNOT+9, DISNOTES+1, DISNOTES+5, DISNOTES+6
ADA END+1!
ADFN END+1!
ADT END+1!
AG END+1!, GETAW+2*
AG("AUPN" HDR+5*, HDR+6*
AG("C" VAR+21, GETAW+1!, GETAW+20*, GETAW+53
AG("EDIT" HDR+28!
AG("ERR" VAR+16
AG("N" VAR+6, VAR+9, VAR+18, VAR+21, GETAW+53*
AG("PG" HDR+1*, HDR+12*, GETAW+56
AG("SEL" VAR+21*
>> AGCHRT HDR+4*, HDR+22
>> AGELSTS HDR+24*, HDR+25
AGI VAR+21*, VAR+27!
>> AGLINE("-" HDR+7*, HDR+17*, GETAW+54
>> AGLINE("EQ" VAR+3, HDR+8*, HDR+18*, HDR+19, HDR+26
>> AGLINE("PGLN" HDR+9*
>> AGOPT("ESCAPE" VAR+15
>> AGPAT HDR+3*, HDR+20
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+5, VAR+7, VAR+12, VAR+13, HDR+14, EDCONNOT+2
>> AGSELECT GETAW+57
AGY VAR+20*, VAR+21, VAR+22, 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+37, GETAW+38*
DA CLEANZER+1!, CLEANZER+2*, END+1!, HDR+27*, NEWENTRY+2!, ADDDT+1!, EDADDDT+1!, EDADDDT+4*, EDADDDT+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!, EDCONNOT+8!, EDCONNOT+14!
DA(1 ADDDT+3*, ADDDT+4, EDADDDT+2*, EDADDDT+5, EDCONPER+2*, EDCONPER+5, EDCONPH+2*, EDCONPH+5, EDEMAIL+2*, EDEMAIL+5
, EDCONFAX+2*, EDCONFAX+5, EDCONNOT+9*, EDCONNOT+12
DA(2 ADDDT+2*, ADDDT+4, EDADDDT+3*, EDADDDT+5, EDCONPER+3*, EDCONPER+5, EDCONPH+3*, EDCONPH+5, EDEMAIL+3*, EDEMAIL+5
, EDCONFAX+3*, EDCONFAX+5, EDCONNOT+10*, EDCONNOT+12
DA(3 EDCONNOT+11*, EDCONNOT+12
DD ADDDT+6!, EDADDDT+1!, EDCONPER+1!, EDCONPH+1!, EDEMAIL+1!, EDCONFAX+1!, EDCONNOT+8!
>> DFN VAR+26, HDR+3, HDR+4, HDR+6, HDR+21, HDR+24, HDR+27, GETAW+57, NEWENTRY+6, NEWENTRY+7
, NEWENTRY+9*
DFOUT VAR+17, END+1!
DIC END+1!, GETAW+7*, GETAW+24, GETAW+25, GETAW+30, GETAW+37, GETAW+41, NEWENTRY+2!, NEWENTRY+3*, ADDDT+1!
, ADDDT+4*, EDADDDT+1!, EDADDDT+8!, EDCONPER+1!, EDCONPER+8!, EDCONPH+1!, EDCONPH+8!, EDEMAIL+1!, EDEMAIL+8!, EDCONFAX+1!
, EDCONFAX+8!, EDCONNOT+8!, EDCONNOT+12*, EDCONNOT+14!
DIC("S" NEWENTRY+5*
DIC(0 NEWENTRY+4*, ADDDT+5*
DIE NEWENTRY+2!, ADDDT+1!, EDADDDT+1!, EDADDDT+5*, EDADDDT+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!, EDCONNOT+8!, EDCONNOT+14!
DIK CLEANZER+1!, CLEANZER+2*
DIR VAR+4!, VAR+9*, EDCONNOT+2!, EDCONNOT+6!, DISNOTES+9!
DIR("A" VAR+6*, VAR+8*, EDCONNOT+6*
DIR(0 EDCONNOT+2*, EDCONNOT+6*, DISNOTES+9*
>> DIWF GETAW+44*
>> DIWL GETAW+43*
>> DIWR GETAW+43*
DLOUT VAR+16, END+1!
DO ADDDT+6!, EDADDDT+1!, EDCONPER+1!, EDCONPH+1!, EDEMAIL+1!, EDCONFAX+1!, EDCONNOT+8!
DQOUT VAR+18, END+1!
DR END+1!, GETAW+8*, GETAW+24, GETAW+25, GETAW+34, GETAW+35*, GETAW+37, NEWENTRY+2!, ADDDT+1!, EDADDDT+1!
, EDADDDT+6*, EDADDDT+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!, EDCONNOT+8!, EDCONNOT+14!
DTOUT VAR+17, END+1!
>> DUOUT VAR+16
DUZ HDR+13
DUZ(2 VAR+26, HDR+4, HDR+16, GETAW+57
>> EXEC CAPPARSE+10*, CAPPARSE+11
>> EXECUTE GETAW+16*, GETAW+37, GETAW+38
>> FIELD CAPPARSE+8*, CAPPARSE+9, CAPPARSE+10, CAPPARSE+11
>> FIELDS CAPPARSE+5*, CAPPARSE+7
>> IOBM EDCONNOT+6
>> 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+55!, GETAW+56, GETAW+58
MYERRS("C" VAR+14
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, END+1!, GETAW+28, NEWENTRY+12*
>> NEWLINE GETAW+12*, GETAW+21
PIECE GETAW+33~, GETAW+35*, GETAW+36, GETAW+37, GETAW+38, GETAW+39, GETAW+40!, CAPPARSE+7*, CAPPARSE+8
>> POSTEXEC GETAW+19*, GETAW+39
>> 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!, EDCONNOT+3~*, EDCONNOT+4*, EDCONNOT+5
>> ROUTID HDR+11*
>> SKIPEXEC GETAW+9*, GETAW+11
>> SUBS VAR*, HDR+13
>> TAGCALL GETAW+15*, GETAW+20
>> TEMPDFN NEWENTRY+7*, NEWENTRY+9
U HDR+3, HDR+4, HDR+16, HDR+24, GETAW+5, GETAW+7, GETAW+8, GETAW+12, GETAW+13, GETAW+14
, GETAW+15, GETAW+24, GETAW+25, EDCONNOT+5
>> VD0 GETAW+45*, GETAW+49, GETAW+50
>> VD1 GETAW+46*, GETAW+49, GETAW+50
>> VD2 GETAW+47*, GETAW+49, GETAW+50
>> VD3 GETAW+48*, GETAW+49*, GETAW+50
VDR GETAW+34*, GETAW+35, GETAW+40!
WDA END+1!
WDFN END+1!
WDT END+1!
X GETAW+50*, CAPPARSE+11*, NEWENTRY+6*, DISNOTES+2~, DISNOTES+6*
Y EN+3, VAR+12, VAR+14, VAR+15, VAR+16, VAR+18, VAR+19, VAR+20, END+1!, NEWENTRY+10
, NEWENTRY+11, ADDDT+8

Marked Items

Name Field # of Occurrence
$T( HDR+11
$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 |  Naked Globals |  Local Variables |  Marked Items |  All