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

Package: IHS Patient Registration

Routine: AGEDBEC


Information

AGEDBEC ; IHS/ASDS/TPF - EDIT/DISPLAY BENEFITS COORDINATOR - AUTHORIZATIONS SCREEN ;

Source Information

Source file <AGEDBEC.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
EDCRTNUM ;EDIT PRE-CERT #
EDENCDT ;EDIT ENCOUNTER DT
GETAW ;DISP
NEWENCDT ;ENTER NEW ENCOUNTER DT
EDENCNOT ;EDIT ENCOUNTER NOTES
NEWENTRY ;NEW ENTRY
DISNOTES ;EP
EDAUTHVS ;EDIT AUTHORIZED VISITS
EDMAXDOL ;EDIT MAX DOLLARS
EN(AD0,AD1,NEWENTRY) ;
EDAUTHST ;EDIT AUTHORIZATION STATUS
EDAUTHDY ;EDIT AUTHORIZED DAYS
1 ;
EDENTYPE ;EDIT ENCOUNTER TYPE
DRAW ;EP
END ;CLEAN UP THE VARS USED
EDINSNAM ;EP - EDIT INSURANCE COMPANY
EDPRCERT ;EP - EDIT PRE-CERT DT
VAR
WMSG ;DISP THIS MSG IF THERE IS NO AUTHORIZATION DT FOUND
CAPPARSE(CAPTION) ;EP - PARSE OUT THE CAP
EDADMDT ;EDIT ADMISSION DT
EDSRVCAT ;EDIT SERVICE CATEGORY
CLEAN(AD0) ;CLEAN EMPTY RECORD. IF NO BEN COORD DATES HAVE BEEN
CLEANZER(AD0) ;EP
BADENTRY ;EP

External References

Name Field # of Occurrence
^AGED DRAW+4
UPDATE1^AGED VAR+39
READ^AGED1 VAR+10
EDITCHEK^AGEDERR GETAW+87
FETCHERR^AGEDERR GETAW+85
VERIF^AGUTILS GETAW+89
^DIC NEWENTRY+8, NEWENCDT+6
^DIE EDENTYPE+6, EDENCDT+6, EDINSNAM+6, EDPRCERT+6, EDCRTNUM+6, EDADMDT+6, EDAUTHDY+6, EDMAXDOL+6, EDSRVCAT+6, EDAUTHVS+6
, EDAUTHST+8
^DIK CLEANZER+2
$$GET1^DIQ GETAW+40, GETAW+41, GETAW+42, GETAW+64, CAPPARSE+9, CAPPARSE+11
^DIR DISNOTES+9
EN^DIWE EDENCNOT+5
^DIWP GETAW+81, DISNOTES+7
^DIWW GETAW+82, DISNOTES+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,AGLINE("EQ")
  • Line Location: VAR+2
Function Call: WRITE
  • Prompt: !,"Enter a number between 9 and "_AG("N")
  • Line Location: VAR+13
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"),!,"or 'A' to add additional days authorized,",!,"or 'C' to add contact information."
  • Line Location: VAR+20
Function Call: WRITE
  • Prompt: !,"Entry not made."
  • Line Location: BADENTRY+2
Function Call: WRITE
  • Prompt: @NEWLINE
  • Line Location: GETAW+23
Function Call: WRITE
  • Prompt: ITEMNUM
  • Line Location: GETAW+24
Function Call: WRITE
  • Prompt: $J($$GET1^DIQ(DIC,D0,DR),10,2)
  • Line Location: GETAW+40
Function Call: WRITE
  • Prompt: $E($$GET1^DIQ(DIC,D0,DR),1,20)
  • Line Location: GETAW+41
Function Call: WRITE
  • Prompt: $$GET1^DIQ(DIC,D0,DR)
  • Line Location: GETAW+42
Function Call: WRITE
  • Prompt: !,"***NO AUTH. ENCOUNTER CONTACTS***"
  • Line Location: GETAW+51
Function Call: WRITE
  • Prompt: !,"***NO ADDITIONAL "_$G(TYPEFLAG)_" AUTHORIZED***"
  • Line Location: GETAW+52
Function Call: WRITE
  • Prompt: ?0,ITEM_"."
  • Line Location: GETAW+58
Function Call: WRITE
  • Prompt: !,ITEM_"."
  • Line Location: GETAW+59
Function Call: WRITE
  • Prompt: $S(DR=.02:$E($$GET1^DIQ(DIC,D0,DR),1,15),DR=.04:$E($$GET1^DIQ(DIC,D0,DR),1,19),1:$$GET1^DIQ(DIC,D0,DR))
  • Line Location: GETAW+64
Function Call: WRITE
  • Prompt: $G(AGLINE("-"))
  • Line Location: GETAW+88
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 AUTHORIZATION DATE"
  • 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
Function Call: WRITE
  • Prompt: TYPEFLAG]
  • Line Location: 1+19
Routine Call
  • DIE
  • Line Location:
    • EDENTYPE+6
    • EDENCDT+6
    • EDINSNAM+6
    • EDPRCERT+6
    • EDCRTNUM+6
    • EDADMDT+6
    • EDAUTHDY+6
    • EDMAXDOL+6
    • EDSRVCAT+6
    • EDAUTHVS+6
    • EDAUTHST+8
Routine Call
  • DIC
  • Line Location:
    • NEWENTRY+8
    • NEWENCDT+6
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+5, EN+6, VAR+36, VAR+37, CLEAN+5, GETAW+51, GETAW+52, GETAW+54, GETAW+79, GETAW+80
, EDPRCERT+8, EDAUTHST+6, DISNOTES+1, DISNOTES+5, DISNOTES+6
^DD( GETAW+26, GETAW+27
^UTILITY($J GETAW+73!

Label References

Name Line Occurrences
@( VAR+17, VAR+29, VAR+32
BADENTRY EN+4
CAPPARSE GETAW+8
CLEAN VAR+36, VAR+37
CLEANZER CLEAN+6
DISNOTES VAR+11
DRAW EN+4, VAR
EDADMDT EN+6
EDAUTHDY EN+6
EDAUTHST EDPRCERT+8
EDAUTHVS EN+5
EDCRTNUM EN+4
EDINSNAM EN+4
EDPRCERT EN+4
EDSRVCAT EN+5
END VAR+18, BADENTRY+2
GETAW DRAW+5
NEWENTRY EN+4
VAR EN+5, VAR+11, VAR+13, VAR+14, VAR+17, VAR+18, VAR+20, VAR+23, VAR+41
WMSG EN+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AD0 EN~, EN+5, EN+6, VAR+17, VAR+36, VAR+37, CLEAN~, CLEAN+5, CLEAN+6, CLEANZER~
, CLEANZER+2, GETAW+31, GETAW+49, GETAW+76, CAPPARSE+9, CAPPARSE+11, NEWENTRY+11*, NEWENCDT+2, EDENTYPE+2, EDENCDT+2
, EDINSNAM+2, EDPRCERT+2, EDPRCERT+8, EDCRTNUM+2, EDADMDT+2, EDAUTHDY+2, EDMAXDOL+2, EDSRVCAT+3, EDAUTHVS+3, EDAUTHST+3
, EDAUTHST+6, EDENCNOT+3, DISNOTES+1, DISNOTES+5, DISNOTES+6
AD1 EN~, EN+5, EN+6, VAR+17, VAR+36, GETAW+33, GETAW+50, GETAW+77, CAPPARSE+9, CAPPARSE+11
, NEWENCDT+8*, EDENTYPE+3, EDENCDT+3, EDINSNAM+3, EDPRCERT+3, EDPRCERT+8, EDCRTNUM+3, EDADMDT+3, EDAUTHDY+3, EDMAXDOL+3
, EDSRVCAT+2, EDAUTHVS+2, EDAUTHST+2, EDAUTHST+6, EDENCNOT+2, DISNOTES+1, DISNOTES+5, DISNOTES+6
ADA END+1!
ADFN END+1!
ADT END+1!
AG END+1!, GETAW+4*
AG("C" VAR+32, GETAW+1!, GETAW+22*, GETAW+72*
AG("ERR" VAR+18
AG("N" VAR+5, VAR+7, VAR+8, VAR+9, VAR+13, VAR+20, VAR+32, GETAW+83*
AG("PG" DRAW+3*, GETAW+85
AG("SEL" VAR+32*
AGI VAR+32*, VAR+40!
>> AGLINE("-" GETAW+88
>> AGLINE("EQ" VAR+2
>> AGOPT("ESCAPE" VAR+15
AGSCRN END+1!, GETAW+4, GETAW+5*, GETAW+6, GETAW+7, GETAW+9, GETAW+10, GETAW+11, GETAW+14, GETAW+15
, GETAW+16, GETAW+17, GETAW+18, GETAW+19, GETAW+20, GETAW+21
>> AGSEENLY VAR+4, VAR+6, VAR+11, VAR+12, VAR+13, VAR+39
>> AGSELECT GETAW+86
AGY VAR+31*, VAR+32, VAR+36, VAR+40!
>> CAPDENT GETAW+15*, GETAW+26, GETAW+27
CAPTION GETAW+7*, GETAW+8, GETAW+26, GETAW+27, CAPPARSE~, CAPPARSE+3, CAPPARSE+5, CAPPARSE+6, CAPPARSE+8, CAPPARSE+12
CHOICES DRAW+1!
CHOICES( VAR+23, VAR+24, VAR+25, VAR+26, VAR+27, GETAW+56*
>> D0 GETAW+31*, GETAW+32*, GETAW+33*, GETAW+40, GETAW+41, GETAW+42, GETAW+43*, GETAW+57*, GETAW+64
DA CLEANZER+1!, CLEANZER+2*, END+1!, NEWENTRY+2!, NEWENCDT+1!, EDENTYPE+1!, EDENTYPE+3*, EDENTYPE+7!, EDENCDT+1!, EDENCDT+3*
, EDENCDT+7!, EDINSNAM+1!, EDINSNAM+3*, EDINSNAM+7!, EDPRCERT+1!, EDPRCERT+3*, EDPRCERT+7!, EDCRTNUM+1!, EDCRTNUM+3*, EDCRTNUM+7!
, EDADMDT+1!, EDADMDT+3*, EDADMDT+7!, EDAUTHDY+1!, EDAUTHDY+3*, EDAUTHDY+7!, EDMAXDOL+1!, EDMAXDOL+3*, EDMAXDOL+7!, EDSRVCAT+1!
, EDSRVCAT+2*, EDSRVCAT+7!, EDAUTHVS+1!, EDAUTHVS+2*, EDAUTHVS+7!, EDAUTHST+1!, EDAUTHST+2*, EDAUTHST+9!, EDENCNOT+1!, EDENCNOT+6!
DA(1 NEWENCDT+2*, NEWENCDT+3, EDENTYPE+2*, EDENTYPE+4, EDENCDT+2*, EDENCDT+4, EDINSNAM+2*, EDINSNAM+4, EDPRCERT+2*, EDPRCERT+4
, EDCRTNUM+2*, EDCRTNUM+4, EDADMDT+2*, EDADMDT+4, EDAUTHDY+2*, EDAUTHDY+4, EDMAXDOL+2*, EDMAXDOL+4, EDSRVCAT+3*, EDSRVCAT+4
, EDAUTHVS+3*, EDAUTHVS+4, EDAUTHST+3*, EDAUTHST+4, EDENCNOT+2*, EDENCNOT+4
DA(2 EDENCNOT+3*, EDENCNOT+4
DD NEWENCDT+5!, EDENTYPE+1!, EDENCDT+1!, EDINSNAM+1!, EDPRCERT+1!, EDCRTNUM+1!, EDADMDT+1!, EDAUTHDY+1!, EDMAXDOL+1!, EDSRVCAT+1!
, EDAUTHVS+1!, EDAUTHST+1!, EDENCNOT+1!
>> DFN VAR+39, GETAW+86, NEWENTRY+6, NEWENTRY+7, NEWENTRY+9*
DFOUT VAR+19, END+1!
DIC END+1!, GETAW+9*, GETAW+26, GETAW+27, GETAW+32, GETAW+40, GETAW+41, GETAW+42, GETAW+47, GETAW+48
, GETAW+51, GETAW+52, GETAW+56, GETAW+64, GETAW+69, NEWENTRY+2!, NEWENTRY+3*, NEWENCDT+1!, NEWENCDT+3*, EDENTYPE+1!
, EDENTYPE+7!, EDENCDT+1!, EDENCDT+7!, EDINSNAM+1!, EDINSNAM+7!, EDPRCERT+1!, EDPRCERT+7!, EDCRTNUM+1!, EDCRTNUM+7!, EDADMDT+1!
, EDADMDT+7!, EDAUTHDY+1!, EDAUTHDY+7!, EDMAXDOL+1!, EDMAXDOL+7!, EDSRVCAT+1!, EDSRVCAT+7!, EDAUTHVS+1!, EDAUTHVS+7!, EDAUTHST+1!
, EDAUTHST+9!, EDENCNOT+1!, EDENCNOT+4*, EDENCNOT+6!
DIC("S" NEWENTRY+5*
DIC(0 NEWENTRY+4*, NEWENCDT+4*
DIE NEWENTRY+2!, NEWENCDT+1!, EDENTYPE+1!, EDENTYPE+4*, EDENTYPE+7!, EDENCDT+1!, EDENCDT+4*, EDENCDT+7!, EDINSNAM+1!, EDINSNAM+4*
, EDINSNAM+7!, EDPRCERT+1!, EDPRCERT+4*, EDPRCERT+7!, EDCRTNUM+1!, EDCRTNUM+4*, EDCRTNUM+7!, EDADMDT+1!, EDADMDT+4*, EDADMDT+7!
, EDAUTHDY+1!, EDAUTHDY+4*, EDAUTHDY+7!, EDMAXDOL+1!, EDMAXDOL+4*, EDMAXDOL+7!, EDSRVCAT+1!, EDSRVCAT+4*, EDSRVCAT+7!, EDAUTHVS+1!
, EDAUTHVS+4*, EDAUTHVS+7!, EDAUTHST+1!, EDAUTHST+4*, EDAUTHST+9!, EDENCNOT+1!, EDENCNOT+6!
DIE("NO^" EDENTYPE+5*, EDAUTHST+6*
DIK CLEANZER+1!, CLEANZER+2*
DIR VAR+3!, VAR+9*, DISNOTES+9!
DIR("A" VAR+5*, VAR+7*, VAR+8*
DIR(0 DISNOTES+9*
>> DIWF GETAW+75*
>> DIWL GETAW+74*
>> DIWR GETAW+74*
DLOUT VAR+18, END+1!
DO NEWENCDT+5!, EDENTYPE+1!, EDENCDT+1!, EDINSNAM+1!, EDPRCERT+1!, EDCRTNUM+1!, EDADMDT+1!, EDAUTHDY+1!, EDMAXDOL+1!, EDSRVCAT+1!
, EDAUTHVS+1!, EDAUTHST+1!, EDENCNOT+1!
>> DORTN VAR+24*, VAR+28*, VAR+29
DQOUT VAR+20, END+1!
DR END+1!, GETAW+10*, GETAW+26, GETAW+27, GETAW+36, GETAW+37*, GETAW+40, GETAW+41, GETAW+42, GETAW+61*
, GETAW+64, NEWENTRY+2!, NEWENCDT+1!, EDENTYPE+1!, EDENTYPE+5*, EDENTYPE+7!, EDENCDT+1!, EDENCDT+5*, EDENCDT+7!, EDINSNAM+1!
, EDINSNAM+5*, EDINSNAM+7!, EDPRCERT+1!, EDPRCERT+5*, EDPRCERT+7!, EDCRTNUM+1!, EDCRTNUM+5*, EDCRTNUM+7!, EDADMDT+1!, EDADMDT+5*
, EDADMDT+7!, EDAUTHDY+1!, EDAUTHDY+5*, EDAUTHDY+7!, EDMAXDOL+1!, EDMAXDOL+5*, EDMAXDOL+7!, EDSRVCAT+1!, EDSRVCAT+5*, EDSRVCAT+7!
, EDAUTHVS+1!, EDAUTHVS+5*, EDAUTHVS+7!, EDAUTHST+1!, EDAUTHST+6*, EDAUTHST+7*, EDAUTHST+9!, EDENCNOT+1!, EDENCNOT+6!
DTOUT VAR+19, END+1!
>> DUOUT VAR+18
DUZ(2 VAR+39, GETAW+86
EXEC CAPPARSE+1~, CAPPARSE+10*, CAPPARSE+11, CAPPARSE+13!
>> EXECUTE GETAW+18*, GETAW+39, GETAW+43, GETAW+63, GETAW+65
>> EXIT EN+3*, EN+4, BADENTRY+1*
>> FIELD CAPPARSE+8*, CAPPARSE+9, CAPPARSE+10, CAPPARSE+11
>> FIELDS CAPPARSE+5*, CAPPARSE+7
>> ITEM GETAW+3*, GETAW+55*, GETAW+56, GETAW+58, GETAW+59, GETAW+70*, GETAW+71, GETAW+72, GETAW+83
>> ITEMNUM GETAW+16*, GETAW+22, GETAW+24, GETAW+25
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+84!, GETAW+85, GETAW+87
MYERRS("C" VAR+14
MYVARS GETAW+84!, GETAW+87
MYVARS("DFN" GETAW+86*
MYVARS("FINDCALL" GETAW+86*
MYVARS("SELECTION" GETAW+86*
MYVARS("SITE" GETAW+86*
NEWENTRY EN~, EN+4, EN+5*, EN+6*, END+1!, GETAW+30
>> NEWLINE GETAW+14*, GETAW+23
>> PARAM1 VAR+25*, VAR+28
>> PARAM2 VAR+26*, VAR+28
>> PARAM3 VAR+27*, VAR+28
PIECE GETAW+35~, GETAW+37*, GETAW+38, GETAW+39, GETAW+43, GETAW+44, GETAW+45!, GETAW+60~, GETAW+61*, GETAW+62
, GETAW+63, GETAW+65, GETAW+66, GETAW+67!, CAPPARSE+7*, CAPPARSE+8
>> POSTEXEC GETAW+21*, GETAW+44, GETAW+66
>> PRECAPEX GETAW+20*, GETAW+26, GETAW+27
>> PREEXEC GETAW+19*, GETAW+38, GETAW+62
RBRACKET CAPPARSE+1~, CAPPARSE+2*, CAPPARSE+8, CAPPARSE+12, CAPPARSE+13!
REC END+1!
ROUTID END+2!, DRAW+2*
>> SKIPEXEC GETAW+11*, GETAW+13
>> SUBSCRIP GETAW+48*, GETAW+51, GETAW+52, GETAW+54
>> TAGCALL GETAW+17*, GETAW+22
>> TEMPDFN NEWENTRY+7*, NEWENTRY+9
>> TYPEFLAG VAR+5, GETAW+52
U EN+5, EN+6, VAR+24, VAR+25, VAR+26, VAR+27, GETAW+7, GETAW+9, GETAW+10, GETAW+14
, GETAW+15, GETAW+16, GETAW+17, GETAW+26, GETAW+27, GETAW+56, EDPRCERT+8, EDAUTHST+6
>> VD0 GETAW+49*, GETAW+51, GETAW+52, GETAW+54, GETAW+56, GETAW+57, GETAW+76*, GETAW+79, GETAW+80
>> VD1 GETAW+50*, GETAW+51, GETAW+52, GETAW+54, GETAW+56, GETAW+57, GETAW+77*, GETAW+79, GETAW+80
>> VD2 GETAW+53*, GETAW+54*, GETAW+56, GETAW+57, GETAW+78*, GETAW+79*, GETAW+80
>> VDR GETAW+36*, GETAW+37, GETAW+61
WDA END+1!
WDFN END+1!
WDT END+1!
X GETAW+80*, CAPPARSE+11*, NEWENTRY+6*, DISNOTES+2~, DISNOTES+6*
Y EN+4, VAR+11, VAR+12, VAR+13, VAR+14, VAR+15, VAR+17, VAR+18, VAR+20, VAR+23
, VAR+24, VAR+25, VAR+26, VAR+27, VAR+30, VAR+31, END+1!, NEWENTRY+10, NEWENTRY+11, NEWENCDT+7
, NEWENCDT+8

Marked Items

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