AGEDWC ; IHS/ASDS/EFG - WORKMAN'S COMP PAGE ;
Source file <AGEDWC.m>
Package | Total | Caller Graph |
---|---|---|
IHS Patient Registration | 2 | AGED4A AGED4A01 |
Name | Comments | DBIA/ICR reference |
---|---|---|
GROUP | ;GROUP NAME
|
|
EMPL | ;PATIENT'S EMPLOYER
|
|
ENTITY | ;WORKMAN'S COMP ENTITY
|
|
DSENDT | ;DISABILITY END DATE - AG*7.1*9
|
|
GETAW | ;DISPLAY
|
|
EXP | ;EXPIRE DATE
|
|
DTLWRK | ;DATE LAST WORKED - AG*7.1*9
|
|
NEWENTRY | ;NEW ENTRY
|
|
1 | ;
|
|
DSSTDT | ;DISABILITY START DATE - AG*7.1*9
|
|
TYPEACC | ;TYPE OF ACCIDENT
|
|
CONT | ;CONTACT INFO - AG*7.1*9
|
|
DTAWRK | ;DATE AUTHORIZED RETURN TO WORK - AG*7.1*9
|
|
WPATATTY | ;NAME OF PATIENT'S ATTORNEY FOR WORKMAN'S COMP
|
|
ADTWC | ;ADD NEW DT RECORD
|
|
NOTES | ;NOTES
|
|
DRAW | ;EP
|
|
CLEANZER(WD0) | ;EP - CLEAN ZERO NODE WITH NO DATES
|
|
END | ||
GOODDT(AD0,AD1) | ;EP
|
|
EN(WD0,WD1,NEWENTRY,AGSELECT) | ;EP -
|
|
CLMFIL | ;WAS CLAIM FILED
|
|
CLMNO | ;CLAIM #
|
|
CLMSTAT | ;CLAIM STATUS
|
|
VAR | ||
DTWC | ;WORKMAN'S COMP INJURY DATE
|
|
DESCWI | ;DESCRIPTION OF INJURY
|
|
EFF | ;EFF COV DATE
|
|
WMSG | ;DISP THIS MSG IF THERE IS NO ENTRY IN THE WORKMAN'S
|
|
DTCLOSE | ;DATE CASE CLOSED
|
|
GDDDT(AD0,AD1) | ;CHECK DISABILITY START/END DATES - AG*7.1*9
|
|
CLEAN(WD0) | ;CLEAN EMPTY RECORD. IF NO GUARANTOR HAS BEEN ENTERED THEN
|
Name | Field # of Occurrence |
---|---|
^AGED | DRAW+3 |
UPDATE1^AGED | VAR+23 |
READ^AGED1 | VAR+5 |
EDITCHEK^AGEDERR | GETAW+28 |
FETCHERR^AGEDERR | GETAW+26 |
$$UPDTSEL^AGUTILS | EN+29, VAR+22 |
VERIF^AGUTILS | GETAW+30 |
^DIC | NEWENTRY+7, ADTWC+8 |
^DIE | DTWC+6, DESCWI+6, CLMFIL+6, CLMNO+6, WPATATTY+6, EMPL+6, DTCLOSE+6, TYPEACC+7, CLMSTAT+7, ENTITY+7 , GROUP+7, EFF+7, EXP+7, DTLWRK+7, DSSTDT+7, DSENDT+7, DTAWRK+7, CONT+7, NOTES+7 |
^DIK | CLEANZER+2 |
$$GET1^DIQ | GETAW+21, GETAW+22, GDDDT+2, GDDDT+3 |
^DIR | GETAW+31 |
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 |
|
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 |
|
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 |
---|---|
^AUPNWC - [#9000042] | Classic Fileman Calls |
9000042.11 | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNWC - [#9000042] | VAR+9, CLEAN+5, GOODDT+2, GOODDT+3 |
^AUTNEGRP - [#9999999.77] | GETAW+22 |
^DD( | GETAW+14 |
^DD(9000042 | ADTWC+5 |
^UTILITY("DIQ1" | DRAW+4! |
Name | Line Occurrences |
---|---|
$$GDDDT | DSSTDT+10, DSENDT+10 |
$$GOODDT | EFF+10, EXP+10 |
@( | VAR+12, VAR+19 |
ADTWC | EN+10 |
CLEAN | VAR+9 |
CLEANZER | EN+8, EN+10, CLEAN+7 |
CLMFIL | EN+18 |
CLMNO | EN+20 |
CLMSTAT | EN+19 |
CONT | EN+25 |
DESCWI | EN+12 |
DRAW | EN+8, VAR |
DSENDT | EN+23, DSENDT+10 |
DSSTDT | EN+22, DSSTDT+10 |
DTAWRK | EN+24 |
DTLWRK | EN+21 |
EFF | EN+16, EFF+10 |
EMPL | EN+13 |
END | EN+8, EN+10, VAR+9, VAR+13 |
EXP | EN+17, EXP+10 |
GETAW | DRAW+7 |
GROUP | EN+15 |
NEWENTRY | EN+8 |
NOTES | EN+26 |
TYPEACC | EN+11 |
VAR | VAR+10, VAR+13, VAR+15, VAR+25 |
WMSG | EN+8 |
WPATATTY | EN+14 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
AD0 | GDDDT~, GDDDT+2, GDDDT+3, GOODDT~ |
AD1 | GDDDT~, GDDDT+2, GDDDT+3, GOODDT~ |
ADA | END! |
ADFN | END! |
ADT | END! |
>> AG | GETAW+1*, GETAW+4, GETAW+5, GETAW+6, GETAW+7, GETAW+8, GETAW+14, GETAW+22, GETAW+23 |
>> AG("C" | VAR+17*, VAR+19 |
>> AG("ED" | VAR+12 |
>> AG("ERR" | VAR+13 |
>> AG("N" | VAR+4, VAR+15, VAR+19, GETAW+23* |
>> AG("PG" | DRAW+1*, GETAW+26 |
>> AG("SEL" | VAR+19* |
>> AGELP("INS" | EN+29 |
AGI | VAR+19*, VAR+24! |
>> AGINS | EN+29, VAR+22 |
>> AGLINE("-" | DRAW+6, GETAW+4, GETAW+5, GETAW+6, GETAW+7, GETAW+8, GETAW+24, GETAW+29 |
>> AGLINE("EQ" | VAR+2 |
>> AGOPT("ESCAPE" | VAR+10, VAR+11 |
AGSCRN | END!, GETAW+1, GETAW+2*, GETAW+3, GETAW+9, GETAW+10, GETAW+11, GETAW+12, GETAW+13 |
>> AGSEENLY | VAR+1, GETAW+31 |
AGSELECT | EN~, EN+29*, VAR+22*, GETAW+27 |
>> AGXTERN | VAR+12 |
AGY | VAR+18*, VAR+19, VAR+24! |
BDT | GDDDT+1~, GDDDT+2*, GDDDT+4, GDDDT+5, GDDDT+6, GOODDT+1~, GOODDT+2*, GOODDT+4, GOODDT+5, GOODDT+6 |
>> CAPDENT | GETAW+13*, GETAW+14 |
>> CAPTION | GETAW+9*, GETAW+14 |
>> COMPIEN | EN+27*, EN+31* |
>> D0 | GETAW+18*, GETAW+19*, GETAW+20*, GETAW+21, GETAW+22 |
DA | CLEANZER+1!, CLEANZER+2*, END!, NEWENTRY+2!, ADTWC+1!, ADTWC+11!, DTWC+3*, DTWC+7, DESCWI+1!, DESCWI+2* , DESCWI+7!, CLMFIL+1!, CLMFIL+2*, CLMFIL+7!, CLMNO+1!, CLMNO+2*, CLMNO+7!, WPATATTY+1!, WPATATTY+2*, WPATATTY+7! , EMPL+1!, EMPL+2*, EMPL+7!, DTCLOSE+1!, DTCLOSE+2*, DTCLOSE+7!, TYPEACC+2!, TYPEACC+3*, TYPEACC+8!, CLMSTAT+2! , CLMSTAT+3*, CLMSTAT+8!, ENTITY+2!, ENTITY+3*, ENTITY+8!, GROUP+2!, GROUP+3*, GROUP+8!, EFF+2!, EFF+3* , EFF+8!, EXP+2!, EXP+3*, EXP+8!, DTLWRK+2!, DTLWRK+3*, DTLWRK+8!, DSSTDT+2!, DSSTDT+3*, DSSTDT+8! , DSENDT+2!, DSENDT+3*, DSENDT+8!, DTAWRK+2!, DTAWRK+3*, DTAWRK+8!, CONT+2!, CONT+3*, CONT+8!, NOTES+2! , NOTES+3*, NOTES+8! |
DA(1 | ADTWC+2*, DTWC+2*, DTWC+4, DESCWI+3*, DESCWI+4, CLMFIL+3*, CLMFIL+4, CLMNO+3*, CLMNO+4, WPATATTY+3* , WPATATTY+4, EMPL+3*, EMPL+4, DTCLOSE+3*, DTCLOSE+4, TYPEACC+4*, TYPEACC+5, CLMSTAT+4*, CLMSTAT+5, ENTITY+4* , ENTITY+5, GROUP+4*, GROUP+5, EFF+4*, EFF+5, EXP+4*, EXP+5, DTLWRK+4*, DTLWRK+5, DSSTDT+4* , DSSTDT+5, DSENDT+4*, DSENDT+5, DTAWRK+4*, DTAWRK+5, CONT+4*, CONT+5, NOTES+4*, NOTES+5 |
DD | NEWENTRY+6!, ADTWC+7!, DESCWI+1!, CLMFIL+1!, CLMNO+1!, WPATATTY+1!, EMPL+1!, DTCLOSE+1!, TYPEACC+2!, CLMSTAT+2! , ENTITY+2!, GROUP+2!, EFF+2!, EXP+2!, DTLWRK+2!, DSSTDT+2!, DSENDT+2!, DTAWRK+2!, CONT+2!, NOTES+2! |
>> DFN | VAR+23, GETAW+27, NEWENTRY+5 |
DFOUT | VAR+14, END! |
DIC | END!, GETAW+10*, GETAW+14, GETAW+19, GETAW+21, GETAW+22, NEWENTRY+2!, NEWENTRY+3*, ADTWC+1!, ADTWC+3* , ADTWC+11!, DTWC+1!, DTWC+8!, DESCWI+1!, DESCWI+7!, CLMFIL+1!, CLMFIL+7!, CLMNO+1!, CLMNO+7!, WPATATTY+1! , WPATATTY+7!, EMPL+1!, EMPL+7!, DTCLOSE+1!, DTCLOSE+7!, TYPEACC+2!, TYPEACC+8!, CLMSTAT+2!, CLMSTAT+8!, ENTITY+2! , ENTITY+8!, GROUP+2!, GROUP+8!, EFF+2!, EFF+8!, EXP+2!, EXP+8!, DTLWRK+2!, DTLWRK+8!, DSSTDT+2! , DSSTDT+8!, DSENDT+2!, DSENDT+8!, DTAWRK+2!, DTAWRK+8!, CONT+2!, CONT+8!, NOTES+2!, NOTES+8! |
DIC("DR" | ADTWC+6* |
DIC("P" | ADTWC+5* |
DIC(0 | NEWENTRY+4*, ADTWC+4* |
DIE | NEWENTRY+2!, ADTWC+1!, ADTWC+11!, DTWC+1!, DTWC+4*, DTWC+8!, DESCWI+1!, DESCWI+4*, DESCWI+7!, CLMFIL+1! , CLMFIL+4*, CLMFIL+7!, CLMNO+1!, CLMNO+4*, CLMNO+7!, WPATATTY+1!, WPATATTY+4*, WPATATTY+7!, EMPL+1!, EMPL+4* , EMPL+7!, DTCLOSE+1!, DTCLOSE+4*, DTCLOSE+7!, TYPEACC+2!, TYPEACC+5*, TYPEACC+8!, CLMSTAT+2!, CLMSTAT+5*, CLMSTAT+8! , ENTITY+2!, ENTITY+5*, ENTITY+8!, GROUP+2!, GROUP+5*, GROUP+8!, EFF+2!, EFF+5*, EFF+8!, EXP+2! , EXP+5*, EXP+8!, DTLWRK+2!, DTLWRK+5*, DTLWRK+8!, DSSTDT+2!, DSSTDT+5*, DSSTDT+8!, DSENDT+2!, DSENDT+5* , DSENDT+8!, DTAWRK+2!, DTAWRK+5*, DTAWRK+8!, CONT+2!, CONT+5*, CONT+8!, NOTES+2!, NOTES+5*, NOTES+8! |
DIK | CLEANZER+1!, CLEANZER+2* |
DIR | VAR+3! |
DIR("A" | VAR+4*, GETAW+31* |
DIR(0 | GETAW+31* |
DLOUT | VAR+13, END! |
DO | NEWENTRY+6!, ADTWC+7!, DESCWI+1!, CLMFIL+1!, CLMNO+1!, WPATATTY+1!, EMPL+1!, DTCLOSE+1!, TYPEACC+2!, CLMSTAT+2! , ENTITY+2!, GROUP+2!, EFF+2!, EXP+2!, DTLWRK+2!, DSSTDT+2!, DSENDT+2!, DTAWRK+2!, CONT+2!, NOTES+2! |
DQOUT | VAR+15, END! |
DR | END!, GETAW+11*, GETAW+14, GETAW+21, GETAW+22, NEWENTRY+2!, ADTWC+1!, ADTWC+11!, DTWC+1!, DTWC+5* , DTWC+8!, DESCWI+1!, DESCWI+5*, DESCWI+7!, CLMFIL+1!, CLMFIL+5*, CLMFIL+7!, CLMNO+1!, CLMNO+5*, CLMNO+7! , WPATATTY+1!, WPATATTY+5*, WPATATTY+7!, EMPL+1!, EMPL+5*, EMPL+7!, DTCLOSE+1!, DTCLOSE+5*, DTCLOSE+7!, TYPEACC+2! , TYPEACC+6*, TYPEACC+8!, CLMSTAT+2!, CLMSTAT+6*, CLMSTAT+8!, ENTITY+2!, ENTITY+6*, ENTITY+8!, GROUP+2!, GROUP+6* , GROUP+8!, EFF+2!, EFF+6*, EFF+8!, EXP+2!, EXP+6*, EXP+8!, DTLWRK+2!, DTLWRK+6*, DTLWRK+8! , DSSTDT+2!, DSSTDT+6*, DSSTDT+8!, DSENDT+2!, DSENDT+6*, DSENDT+8!, DTAWRK+2!, DTAWRK+6*, DTAWRK+8!, CONT+2! , CONT+6*, CONT+8!, NOTES+2!, NOTES+6*, NOTES+8! |
DTOUT | VAR+14, END! |
>> DUOUT | VAR+13 |
DUZ(2 | VAR+23, GETAW+27 |
EDT | GDDDT+1~, GDDDT+3*, GDDDT+4, GDDDT+5, GDDDT+6, GOODDT+1~, GOODDT+3*, GOODDT+4, GOODDT+5, GOODDT+6 |
>> EXIT | EN+4, EN+5*, EN+8*, EN+10*, VAR+20, DTWC+7* |
MYERRS | GETAW+25!, GETAW+26, GETAW+28 |
MYERRS("C" | VAR+10 |
MYVARS | GETAW+25!, GETAW+28 |
MYVARS("DFN" | GETAW+27* |
MYVARS("FINDCALL" | GETAW+27* |
MYVARS("SELECTION" | GETAW+27* |
MYVARS("SITE" | GETAW+27* |
NEWENTRY | EN~, EN+4, EN+30*, VAR+22, GETAW+17, GETAW+28, NEWENTRY+10* |
>> NEWLINE | GETAW+12*, GETAW+14 |
REC | END! |
ROUTID | END!, DRAW+2* |
U | VAR+22, GETAW+9, GETAW+10, GETAW+11, GETAW+12, GETAW+13, GETAW+14, GETAW+22, ADTWC+5, GOODDT+2 , GOODDT+3 |
WD0 | EN~, EN+8, EN+10, EN+27, EN+29, EN+31, VAR+9, VAR+22, CLEAN~, CLEAN+5 , CLEAN+7, CLEANZER~, CLEANZER+2, GETAW+18, NEWENTRY+9*, ADTWC+2, ADTWC+3, DTWC+2, DESCWI+3, CLMFIL+3 , CLMNO+3, WPATATTY+3, EMPL+3, DTCLOSE+3, TYPEACC+4, CLMSTAT+4, ENTITY+4, GROUP+4, EFF+4, EFF+10 , EXP+4, EXP+10, DTLWRK+4, DSSTDT+4, DSSTDT+10, DSENDT+4, DSENDT+10, DTAWRK+4, CONT+4, GOODDT+2 , GOODDT+3, NOTES+4 |
WD1 | EN~, EN+27, EN+29, EN+31, VAR+22, GETAW+20, ADTWC+10*, DTWC+3, DESCWI+2, CLMFIL+2 , CLMNO+2, WPATATTY+2, EMPL+2, DTCLOSE+2, TYPEACC+3, CLMSTAT+3, ENTITY+3, GROUP+3, EFF+3, EFF+10 , EXP+3, EXP+10, DTLWRK+3, DSSTDT+3, DSSTDT+10, DSENDT+3, DSENDT+10, DTAWRK+3, CONT+3, GOODDT+2 , GOODDT+3, NOTES+3 |
WDA | END! |
WDFN | END! |
WDT | END! |
>> X | NEWENTRY+5* |
Y | EN+8, EN+10, VAR+9, VAR+10, VAR+11, VAR+13, VAR+15, VAR+18, END!, NEWENTRY+8 , NEWENTRY+9, ADTWC+9, ADTWC+10 |
Name | Field # of Occurrence |
---|---|
$T( | DRAW+2 |
$T(@1+AG | GETAW+2 |