AGEDBEF ; IHS/ASDS/TPF - EDIT/DISPLAY BENEFITS COORDINATOR - ADDITIONAL DAYS AUTHORIZED SCREEN ;
Source file <AGEDBEF.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EDEMAIL | ;EDIT CONTACT E-MAIL
|
|
EDCONFAX | ;EDIT CONTACT FAX
|
|
GETAW | ;DISP
|
|
NEWENTRY | ;NEW ENTRY
|
|
EDADDNOT | ;EP - EDIT ADDITIONAL DAYS NOTES
|
|
EDCONPH | ;EDIT CONTACT PHONE
|
|
DISNOTES | ;EP
|
|
EDADDDT | ;EDIT DT OBTAINED
|
|
1 | ;
|
|
EDADDYS | ;EP - EDIT ADDITIONAL DAYS
|
|
EN(AD0,AD1,AD2,NEWENTRY) | ;
|
|
DRAW | ;EP
|
|
END | ;CLEAN UP THE VARS USED
|
|
EDCONPER | ;EDIT CONTACT PERSON
|
|
VAR | ||
WMSG | ;DISP THIS MSG IF THERE IS NO AUTHORIZATION DT FOUND
|
|
CAPPARSE(CAPTION) | ;EP - PARSE OUT THE CAP
|
|
EDADVIST | ;EP - EDIT ADDITIONAL VISITS
|
|
CLEAN(AD0) | ;CLEAN EMPTY RECORD. IF NO ENCOUNTER DTS HAVE BEEN ENTERED
|
|
ADDDT | ;
|
|
CLEANZER(AD0) | ;EP
|
|
EDADDREF | ;EDIT REFERENCE #
|
Name | Field # of Occurrence |
---|---|
^AGED | DRAW+4 |
UPDATE1^AGED | VAR+26 |
READ^AGED1 | VAR+9 |
EDITCHEK^AGEDERR | GETAW+59 |
FETCHERR^AGEDERR | GETAW+57 |
VERIF^AGUTILS | GETAW+60 |
^DIC | NEWENTRY+8, ADDDT+7 |
^DIE | EDADDDT+7, EDADDYS+7, EDADVIST+7, EDADDREF+7, EDCONPER+7, EDCONPH+7, EDEMAIL+7, EDCONFAX+7 |
^DIK | CLEANZER+2 |
$$GET1^DIQ | GETAW+38, CAPPARSE+9, CAPPARSE+11 |
^DIR | DISNOTES+9 |
EN^DIWE | EDADDNOT+6 |
^DIWP | GETAW+52, DISNOTES+7 |
^DIWW | GETAW+53, DISNOTES+8 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^AUPNAUTH - [#9000046] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNAUTH - [#9000046] | EN+8, VAR+21, CLEAN+4, GETAW+50, GETAW+51, DISNOTES+1, DISNOTES+5, DISNOTES+6 |
^DD( | GETAW+24, GETAW+25 |
^UTILITY($J | GETAW+43! |
Name | Line Occurrences |
---|---|
@( | VAR+20 |
CAPPARSE | GETAW+6 |
CLEAN | VAR+21, VAR+24 |
CLEANZER | CLEAN+5 |
DISNOTES | VAR+11 |
DRAW | EN+7, VAR |
EDADDNOT | EN+14 |
EDADDYS | EN+8 |
EDADVIST | EN+9 |
EDCONFAX | EN+13 |
EDCONPER | EN+10 |
EDCONPH | EN+11 |
EDEMAIL | EN+12 |
END | EN+7, VAR+15 |
GETAW | DRAW+5 |
NEWENTRY | EN+7 |
VAR | VAR+11, VAR+13, VAR+15, VAR+17, VAR+28 |
WMSG | EN+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
AD0 | EN~, EN+8, VAR+21, VAR+24, CLEAN~, CLEAN+4, CLEAN+5, CLEANZER~, CLEANZER+2, GETAW+29 , GETAW+46, CAPPARSE+9, CAPPARSE+11, NEWENTRY+11*, ADDDT+2, EDADDDT+3, EDADDYS+3, EDADVIST+3, EDADDREF+3, EDCONPER+3 , EDCONPH+3, EDEMAIL+3, EDCONFAX+3, EDADDNOT+4, DISNOTES+1, DISNOTES+5, DISNOTES+6 |
AD1 | EN~, EN+8, VAR+21, GETAW+31, GETAW+47, CAPPARSE+9, CAPPARSE+11, ADDDT+3, EDADDDT+2, EDADDYS+2 , EDADVIST+2, EDADDREF+2, EDCONPER+2, EDCONPH+2, EDEMAIL+2, EDCONFAX+2, EDADDNOT+3, DISNOTES+1, DISNOTES+5, DISNOTES+6 |
AD2 | EN~, VAR+21, GETAW+31, GETAW+48, ADDDT+8*, EDADDDT+4, EDADDYS+4, EDADVIST+4, EDADDREF+4, EDCONPER+4 , EDCONPH+4, EDEMAIL+4, EDCONFAX+4, EDADDNOT+2, DISNOTES+1, DISNOTES+5, DISNOTES+6 |
ADA | END+1! |
ADFN | END+1! |
ADT | END+1! |
AG | END+1!, GETAW+2* |
AG("C" | VAR+20, GETAW+1!, GETAW+20*, GETAW+54 |
AG("ERR" | VAR+15 |
AG("N" | VAR+5, VAR+8, VAR+17, VAR+20, GETAW+54* |
AG("PG" | DRAW+2*, GETAW+57 |
AG("SEL" | VAR+20* |
AGI | VAR+20*, VAR+27! |
>> AGLINE("-" | GETAW+55 |
>> AGLINE("EQ" | VAR+2 |
>> AGOPT("ESCAPE" | VAR+14 |
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+4, VAR+6, VAR+11, VAR+12, VAR+26 |
>> AGSELECT | GETAW+58 |
AGY | VAR+19*, VAR+20, VAR+21, 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+38, GETAW+39* |
DA | CLEANZER+1!, CLEANZER+2*, END+1!, NEWENTRY+2!, ADDDT+1!, EDADDDT+1!, EDADDDT+4*, EDADDDT+8!, EDADDYS+1!, EDADDYS+4* , EDADDYS+8!, EDADVIST+1!, EDADVIST+4*, EDADVIST+8!, EDADDREF+1!, EDADDREF+4*, EDADDREF+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!, EDADDNOT+1! , EDADDNOT+7! |
DA(1 | ADDDT+3*, ADDDT+4, EDADDDT+2*, EDADDDT+5, EDADDYS+2*, EDADDYS+5, EDADVIST+2*, EDADVIST+5, EDADDREF+2*, EDADDREF+5 , EDCONPER+2*, EDCONPER+5, EDCONPH+2*, EDCONPH+5, EDEMAIL+2*, EDEMAIL+5, EDCONFAX+2*, EDCONFAX+5, EDADDNOT+2*, EDADDNOT+5 |
DA(2 | ADDDT+2*, ADDDT+4, EDADDDT+3*, EDADDDT+5, EDADDYS+3*, EDADDYS+5, EDADVIST+3*, EDADVIST+5, EDADDREF+3*, EDADDREF+5 , EDCONPER+3*, EDCONPER+5, EDCONPH+3*, EDCONPH+5, EDEMAIL+3*, EDEMAIL+5, EDCONFAX+3*, EDCONFAX+5, EDADDNOT+3*, EDADDNOT+5 |
DA(3 | EDADDNOT+4*, EDADDNOT+5 |
DD | ADDDT+6!, EDADDDT+1!, EDADDYS+1!, EDADVIST+1!, EDADDREF+1!, EDCONPER+1!, EDCONPH+1!, EDEMAIL+1!, EDCONFAX+1!, EDADDNOT+1! |
>> DFN | VAR+26, GETAW+58, NEWENTRY+6, NEWENTRY+7, NEWENTRY+9* |
DFOUT | VAR+16, END+1! |
DIC | END+1!, GETAW+7*, GETAW+24, GETAW+25, GETAW+30, GETAW+38, GETAW+42, NEWENTRY+2!, NEWENTRY+3*, ADDDT+1! , ADDDT+4*, EDADDDT+1!, EDADDDT+8!, EDADDYS+1!, EDADDYS+8!, EDADVIST+1!, EDADVIST+8!, EDADDREF+1!, EDADDREF+8!, EDCONPER+1! , EDCONPER+8!, EDCONPH+1!, EDCONPH+8!, EDEMAIL+1!, EDEMAIL+8!, EDCONFAX+1!, EDCONFAX+8!, EDADDNOT+1!, EDADDNOT+5*, EDADDNOT+7! |
DIC("S" | NEWENTRY+5* |
DIC(0 | NEWENTRY+4*, ADDDT+5* |
DIE | NEWENTRY+2!, ADDDT+1!, EDADDDT+1!, EDADDDT+5*, EDADDDT+8!, EDADDYS+1!, EDADDYS+5*, EDADDYS+8!, EDADVIST+1!, EDADVIST+5* , EDADVIST+8!, EDADDREF+1!, EDADDREF+5*, EDADDREF+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!, EDADDNOT+1!, EDADDNOT+7! |
DIK | CLEANZER+1!, CLEANZER+2* |
DIR | VAR+3!, VAR+8*, DISNOTES+9! |
DIR("A" | VAR+5*, VAR+7* |
DIR(0 | DISNOTES+9* |
>> DIWF | GETAW+45* |
>> DIWL | GETAW+44* |
>> DIWR | GETAW+44* |
DLOUT | VAR+15, END+1! |
DO | ADDDT+6!, EDADDDT+1!, EDADDYS+1!, EDADVIST+1!, EDADDREF+1!, EDCONPER+1!, EDCONPH+1!, EDEMAIL+1!, EDCONFAX+1!, EDADDNOT+1! |
DQOUT | VAR+17, END+1! |
DR | END+1!, GETAW+8*, GETAW+24, GETAW+25, GETAW+34, GETAW+35*, GETAW+38, NEWENTRY+2!, ADDDT+1!, EDADDDT+1! , EDADDDT+6*, EDADDDT+8!, EDADDYS+1!, EDADDYS+6*, EDADDYS+8!, EDADVIST+1!, EDADVIST+6*, EDADVIST+8!, EDADDREF+1!, EDADDREF+6* , EDADDREF+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!, EDADDNOT+1!, EDADDNOT+7! |
DTOUT | VAR+16, END+1! |
>> DUOUT | VAR+15 |
DUZ(2 | VAR+26, GETAW+58 |
>> EXEC | CAPPARSE+10*, CAPPARSE+11 |
>> EXECUTE | GETAW+16*, GETAW+37, GETAW+39 |
>> EXIT | EN+5*, EN+6, EN+7* |
>> FIELD | CAPPARSE+8*, CAPPARSE+9, CAPPARSE+10, CAPPARSE+11 |
>> FIELDS | CAPPARSE+5*, CAPPARSE+7 |
>> 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+56!, GETAW+57, GETAW+59 |
MYERRS("C" | VAR+13 |
MYVARS | GETAW+56!, GETAW+59 |
MYVARS("DFN" | GETAW+58* |
MYVARS("FINDCALL" | GETAW+58* |
MYVARS("SELECTION" | GETAW+58* |
MYVARS("SITE" | GETAW+58* |
NEWENTRY | EN~, EN+6*, END+1!, GETAW+28, NEWENTRY+12* |
>> NEWLINE | GETAW+12*, GETAW+21 |
PIECE | GETAW+33~, GETAW+35*, GETAW+36, GETAW+37, GETAW+39, GETAW+40, GETAW+41!, CAPPARSE+7*, CAPPARSE+8 |
>> POSTEXEC | GETAW+19*, GETAW+40 |
>> 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! |
>> ROUTID | DRAW+3* |
>> SKIPEXEC | GETAW+9*, GETAW+11 |
>> TAGCALL | GETAW+15*, GETAW+20 |
>> TEMPDFN | NEWENTRY+7*, NEWENTRY+9 |
U | EN+8, GETAW+5, GETAW+7, GETAW+8, GETAW+12, GETAW+13, GETAW+14, GETAW+15, GETAW+24, GETAW+25 |
>> VD0 | GETAW+46*, GETAW+50, GETAW+51 |
>> VD1 | GETAW+47*, GETAW+50, GETAW+51 |
>> VD2 | GETAW+48*, GETAW+50, GETAW+51 |
>> VD3 | GETAW+49*, GETAW+50*, GETAW+51 |
VDR | GETAW+34*, GETAW+35, GETAW+41! |
WDA | END+1! |
WDFN | END+1! |
WDT | END+1! |
X | GETAW+51*, CAPPARSE+11*, NEWENTRY+6*, DISNOTES+2~, DISNOTES+6* |
Y | EN+7, VAR+11, VAR+13, VAR+14, VAR+15, VAR+17, VAR+18, VAR+19, END+1!, NEWENTRY+10 , NEWENTRY+11, ADDDT+8 |
Name | Field # of Occurrence |
---|---|
$T( | DRAW+3 |
$T(@1+AG | GETAW+3 |