AGEDTPL ; IHS/ASDS/TPF - THIRD PARTY LIABILITY ;
Source file <AGEDTPL.m>
Package | Total | Caller Graph |
---|---|---|
IHS Patient Registration | 2 | AGED4A AGED4A01 |
Name | Comments | DBIA/ICR reference |
---|---|---|
CONT | ;DATE OF INJURY; DESC OF INJURY; CAUSE OF INJURY; RESPONSIBLE
|
|
DTRWRK | ;DATE AUTHORIZED TO WORK - AG*7.1*9
|
|
NOTES | ;NOTES
|
|
RESPNAM | ;RESPONSIBLE PARTY NAME
|
|
DTACC | ;DATE OF INJURY
|
|
GETAW | ;DISPLAY
|
|
DTLWRK | ;DATE LAST WORKED - AG*7.1*9
|
|
NEWENTRY | ;TOTALLY NEW ENTRY
|
|
RESPINS | ;RESPONSIBLE PARTY INSURANCE COMPANY
|
|
GRPNAME | ;GROUP NAME AND #
|
|
AMSG | ;DISP THIS MSG IF THERE NO ENTRY IN THE THIRD PARTY LIABILITY
|
|
1 | ;
|
|
DTSDIS | ;DISABILITY START DATE - AG*7.1*9
|
|
DTEDIS | ;DISABILITY END DATE - AG*7.1*9
|
|
CLM | ;CLAIM # - AG*7.1*9
|
|
DRAW | ;EP
|
|
END | ||
GOODDT(AD0,AD1) | ;EP - CHECK IF EFF AND END DATES MAKE SENSE
|
|
GRPNUM | ;GROUP #
|
|
POLEFF | ;EFF DATE
|
|
APATATTY | ;NAME OF PATIENT'S ATTORNEY
|
|
VAR | ||
CAUSE | ;CAUSE OF INJURY
|
|
POLNO | ;INSURANCE POLICY #
|
|
EN(AD0,AD1,NEWENTRY,AGSELECT,AGELPINS) | ;EP
|
|
RESPSSN | ;RESPONSIBLE PARTY SSN
|
|
POLEND | ;END DATE
|
|
CNTINF | ;CONTACT INFO - AG*7.1*9
|
|
CLEAN(AD0) | ;EP - CHECK HERE TO SEE IF ENTRIES HAVE ACTUALLY BEEN
|
|
ADDDT | ;
|
|
CLEANZER(AD0) | ;EP - CLEAN ZERO NODE WITH NO DATES
|
|
GDDDT(AD0,AD1) | ;CHECK DISABILITY START/END DATES - AG*7.1*9
|
|
DESCAI | ;DESC OF INJURY
|
Name | Field # of Occurrence |
---|---|
^AGED | DRAW+4 |
UPDATE1^AGED | CONT+12 |
READ^AGED1 | VAR+5 |
EDITCHEK^AGEDERR | GETAW+28 |
FETCHERR^AGEDERR | GETAW+26 |
$$ISREQ^AGFLDREQ | POLNO+6 |
$$NOTELINE^AGUTILS | NOTES+7 |
$$UPDTSEL^AGUTILS | EN+26, CONT+11 |
VERIF^AGUTILS | GETAW+30 |
^DIC | NEWENTRY+7, ADDDT+6 |
^DIE | ADDDT+14, DTACC+8, DESCAI+7, CAUSE+7, RESPNAM+7, RESPSSN+7, RESPINS+7, POLEFF+7, POLEND+7, CLM+7 , DTLWRK+7, DTSDIS+7, DTEDIS+7, DTRWRK+7, CNTINF+7, GRPNAME+7, POLNO+8, APATATTY+7, NOTES+8 |
^DIK | CLEANZER+2 |
$$GET1^DIQ | GETAW+20, 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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^AUPNTPL - [#9000041] | Classic Fileman Calls |
9000041.0101 | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNTPL - [#9000041] | VAR+9, CLEAN+3, DTACC+1, GOODDT+2, GOODDT+3 |
^AUTNEGRP - [#9999999.77] | GETAW+22 |
^DD( | GETAW+13 |
^UTILITY("DIQ1" | DRAW+5! |
Name | Line Occurrences |
---|---|
$$GDDDT | DTSDIS+9, DTEDIS+9 |
$$GOODDT | POLEFF+10, POLEND+10 |
@( | CONT+6 |
AMSG | EN+6 |
APATATTY | EN+16 |
CAUSE | EN+8 |
CLEAN | EN+6, VAR+9 |
CLEANZER | CLEAN+3 |
CLM | EN+17 |
CNTINF | EN+22 |
CONT | VAR+10 |
DESCAI | EN+7 |
DRAW | EN+6, VAR |
DTEDIS | EN+20, DTEDIS+9 |
DTLWRK | EN+18 |
DTRWRK | EN+21 |
DTSDIS | EN+19, DTSDIS+9 |
END | EN+6, VAR+13 |
GETAW | DRAW+8 |
GRPNAME | EN+14 |
NEWENTRY | EN+6, DTACC+1 |
NOTES | EN+23 |
POLEFF | EN+12, POLEFF+10 |
POLEND | EN+13, POLEND+10 |
POLNO | EN+15 |
RESPINS | EN+11 |
RESPNAM | EN+9 |
RESPSSN | EN+10 |
VAR | VAR+11, VAR+13, VAR+15, CONT+14 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
AD0 | EN~, EN+6, EN+24, EN+28, VAR+9, CLEAN~, CLEAN+3, CLEANZER~, CLEANZER+2, GETAW+17 , NEWENTRY+9*, ADDDT+2, ADDDT+11, DTACC+1, DTACC+4, DESCAI+4, CAUSE+4, RESPNAM+4, RESPSSN+4, RESPINS+4 , POLEFF+4, POLEFF+10, POLEND+4, POLEND+10, GOODDT~, GOODDT+2, GOODDT+3, GDDDT~, GDDDT+2, GDDDT+3 , CLM+4, DTLWRK+4, DTSDIS+4, DTSDIS+9, DTEDIS+4, DTEDIS+9, DTRWRK+4, CNTINF+4, GRPNAME+4, POLNO+4 , APATATTY+4, NOTES+4, NOTES+7 |
AD1 | EN~, EN+24, EN+28, GETAW+19, ADDDT+8*, ADDDT+13, DTACC+5, DTACC+10*, DESCAI+3, CAUSE+3 , RESPNAM+3, RESPSSN+3, RESPINS+3, POLEFF+3, POLEFF+10, POLEND+3, POLEND+10, GOODDT~, GOODDT+2, GOODDT+3 , GDDDT~, GDDDT+2, GDDDT+3, CLM+3, DTLWRK+3, DTSDIS+3, DTSDIS+9, DTEDIS+3, DTEDIS+9, DTRWRK+3 , CNTINF+3, GRPNAME+3, POLNO+3, APATATTY+3, NOTES+3, NOTES+7 |
ADA | END! |
ADFN | END+1! |
ADT | END! |
AG | END!, GETAW+1*, GETAW+4, GETAW+5, GETAW+6, GETAW+7, GETAW+13, GETAW+22, GETAW+23 |
AG("C" | CONT+4*, CONT+6 |
AG("ERR" | VAR+13 |
AG("N" | VAR+4, VAR+15, CONT+6, GETAW+23* |
AG("PG" | DRAW+1*, GETAW+26 |
AG("SEL" | CONT+6* |
>> AGELP("INS" | EN+26 |
AGELPINS | EN~, ADDDT+9 |
AGI | CONT+6*, CONT+13! |
>> AGINS | EN+26, CONT+11 |
>> AGLINE("-" | DRAW+7, GETAW+7, GETAW+24, GETAW+29 |
>> AGLINE("EQ" | VAR+2 |
>> AGOPT("ESCAPE" | VAR+11, VAR+12 |
AGSCRN | END!, GETAW+1, GETAW+2*, GETAW+3, GETAW+8, GETAW+9, GETAW+10, GETAW+11, GETAW+12 |
>> AGSEENLY | VAR+1, GETAW+31 |
AGSELECT | EN~, EN+26*, CONT+11*, GETAW+27 |
AGY | CONT+5*, CONT+6, CONT+13! |
BDT | GOODDT+1~, GOODDT+2*, GOODDT+4, GOODDT+5, GOODDT+6, GDDDT+1~, GDDDT+2*, GDDDT+4, GDDDT+5, GDDDT+6 |
>> CAPDENT | GETAW+12*, GETAW+13 |
>> CAPTION | GETAW+8*, GETAW+13 |
COMPIEN | EN+24*, EN+26, EN+28*, CONT+11, END+1! |
D0 | GETAW+17*, GETAW+18*, GETAW+19*, GETAW+20, GETAW+22, DTACC+2! |
>> D1 | DTACC+10 |
DA | CLEANZER+1!, CLEANZER+2*, END!, NEWENTRY+2!, ADDDT+1!, ADDDT+13*, DTACC+2!, DTACC+5*, DTACC+9, DESCAI+2! , DESCAI+3*, DESCAI+8!, CAUSE+2!, CAUSE+3*, CAUSE+8!, RESPNAM+2!, RESPNAM+3*, RESPNAM+8!, RESPSSN+2!, RESPSSN+3* , RESPSSN+8!, RESPINS+2!, RESPINS+3*, RESPINS+8!, POLEFF+2!, POLEFF+3*, POLEFF+8!, POLEND+2!, POLEND+3*, POLEND+8! , CLM+2!, CLM+3*, CLM+8!, DTLWRK+2!, DTLWRK+3*, DTLWRK+8!, DTSDIS+2!, DTSDIS+3*, DTSDIS+8!, DTEDIS+2! , DTEDIS+3*, DTEDIS+8!, DTRWRK+2!, DTRWRK+3*, DTRWRK+8!, CNTINF+2!, CNTINF+3*, CNTINF+8!, GRPNAME+2!, GRPNAME+3* , GRPNAME+8!, POLNO+2!, POLNO+3*, POLNO+9!, APATATTY+2!, APATATTY+3*, APATATTY+8!, NOTES+2!, NOTES+3*, NOTES+9! |
DA(1 | ADDDT+2*, ADDDT+3, ADDDT+10, ADDDT+11*, DTACC+4*, DTACC+6, DESCAI+4*, DESCAI+5, CAUSE+4*, CAUSE+5 , RESPNAM+4*, RESPNAM+5, RESPSSN+4*, RESPSSN+5, RESPINS+4*, RESPINS+5, POLEFF+4*, POLEFF+5, POLEND+4*, POLEND+5 , CLM+4*, CLM+5, DTLWRK+4*, DTLWRK+5, DTSDIS+4*, DTSDIS+5, DTEDIS+4*, DTEDIS+5, DTRWRK+4*, DTRWRK+5 , CNTINF+4*, CNTINF+5, GRPNAME+4*, GRPNAME+5, POLNO+4*, POLNO+5, APATATTY+4*, APATATTY+5, NOTES+4*, NOTES+5 |
DD | NEWENTRY+6!, ADDDT+5!, DTACC+2!, DESCAI+2!, CAUSE+2!, RESPNAM+2!, RESPSSN+2!, RESPINS+2!, POLEFF+2!, POLEND+2! , CLM+2!, DTLWRK+2!, DTSDIS+2!, DTEDIS+2!, DTRWRK+2!, CNTINF+2!, GRPNAME+2!, POLNO+2!, APATATTY+2!, NOTES+2! |
>> DFN | CONT+12, GETAW+27, NEWENTRY+5 |
DFOUT | VAR+14, END! |
DIC | END!, GETAW+9*, GETAW+13, GETAW+18, GETAW+20, GETAW+22, NEWENTRY+2!, NEWENTRY+3*, ADDDT+1!, ADDDT+3* , DTACC+2!, DTACC+11!, DESCAI+2!, DESCAI+8!, CAUSE+2!, CAUSE+8!, RESPNAM+2!, RESPNAM+8!, RESPSSN+2!, RESPSSN+8! , RESPINS+2!, RESPINS+8!, POLEFF+2!, POLEFF+8!, POLEND+2!, POLEND+8!, CLM+2!, CLM+8!, DTLWRK+2!, DTLWRK+8! , DTSDIS+2!, DTSDIS+8!, DTEDIS+2!, DTEDIS+8!, DTRWRK+2!, DTRWRK+8!, CNTINF+2!, CNTINF+8!, GRPNAME+2!, GRPNAME+8! , POLNO+2!, POLNO+9!, APATATTY+2!, APATATTY+8!, NOTES+2!, NOTES+9! |
DIC(0 | NEWENTRY+4*, ADDDT+4* |
DIE | NEWENTRY+2!, ADDDT+1!, ADDDT+10*, DTACC+2!, DTACC+6*, DTACC+11!, DESCAI+2!, DESCAI+5*, DESCAI+8!, CAUSE+2! , CAUSE+5*, CAUSE+8!, RESPNAM+2!, RESPNAM+5*, RESPNAM+8!, RESPSSN+2!, RESPSSN+5*, RESPSSN+8!, RESPINS+2!, RESPINS+5* , RESPINS+8!, POLEFF+2!, POLEFF+5*, POLEFF+8!, POLEND+2!, POLEND+5*, POLEND+8!, CLM+2!, CLM+5*, CLM+8! , DTLWRK+2!, DTLWRK+5*, DTLWRK+8!, DTSDIS+2!, DTSDIS+5*, DTSDIS+8!, DTEDIS+2!, DTEDIS+5*, DTEDIS+8!, DTRWRK+2! , DTRWRK+5*, DTRWRK+8!, CNTINF+2!, CNTINF+5*, CNTINF+8!, GRPNAME+2!, GRPNAME+5*, GRPNAME+8!, POLNO+2!, POLNO+5* , POLNO+9!, APATATTY+2!, APATATTY+5*, APATATTY+8!, NOTES+2!, NOTES+5*, NOTES+9! |
DIE("NO^" | POLNO+6* |
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!, ADDDT+5!, DESCAI+2!, CAUSE+2!, RESPNAM+2!, RESPSSN+2!, RESPINS+2!, POLEFF+2!, POLEND+2!, CLM+2! , DTLWRK+2!, DTSDIS+2!, DTEDIS+2!, DTRWRK+2!, CNTINF+2!, GRPNAME+2!, POLNO+2!, APATATTY+2!, NOTES+2! |
DQOUT | VAR+15, END! |
DR | END!, GETAW+10*, GETAW+13, GETAW+20, GETAW+22, NEWENTRY+2!, ADDDT+1!, ADDDT+12*, DTACC+2!, DTACC+7* , DTACC+11!, DESCAI+2!, DESCAI+6*, DESCAI+8!, CAUSE+2!, CAUSE+6*, CAUSE+8!, RESPNAM+2!, RESPNAM+6*, RESPNAM+8! , RESPSSN+2!, RESPSSN+6*, RESPSSN+8!, RESPINS+2!, RESPINS+6*, RESPINS+8!, POLEFF+2!, POLEFF+6*, POLEFF+8!, POLEND+2! , POLEND+6*, POLEND+8!, CLM+2!, CLM+6*, CLM+8!, DTLWRK+2!, DTLWRK+6*, DTLWRK+8!, DTSDIS+2!, DTSDIS+6* , DTSDIS+8!, DTEDIS+2!, DTEDIS+6*, DTEDIS+8!, DTRWRK+2!, DTRWRK+6*, DTRWRK+8!, CNTINF+2!, CNTINF+6*, CNTINF+8! , GRPNAME+2!, GRPNAME+6*, GRPNAME+8!, POLNO+2!, POLNO+6*, POLNO+7*, POLNO+9!, APATATTY+2!, APATATTY+6*, APATATTY+8! , NOTES+2!, NOTES+6*, NOTES+7, NOTES+9! |
DTOUT | VAR+14, END! |
>> DUOUT | VAR+13 |
DUZ(2 | CONT+12, GETAW+27 |
EDT | GOODDT+1~, GOODDT+3*, GOODDT+4, GOODDT+5, GOODDT+6, GDDDT+1~, GDDDT+3*, GDDDT+4, GDDDT+5, GDDDT+6 |
>> EXIT | EN+4, EN+5*, EN+6* |
MYERRS | GETAW+25!, GETAW+26, GETAW+28 |
MYERRS("C" | VAR+11 |
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+27*, GETAW+16, GETAW+28, NEWENTRY+10* |
>> NEWLINE | GETAW+11*, GETAW+13 |
REC | END+1! |
ROUTID | END+1!, DRAW+2* |
>> SEQHD | DRAW+3* |
TPLDEL | EN+3!, CONT+9, END+1!, DTACC+3*, DTACC+9* |
U | CONT+11, GETAW+8, GETAW+9, GETAW+10, GETAW+11, GETAW+12, GETAW+13, GETAW+22, GOODDT+2, GOODDT+3 |
WDA | END! |
WDFN | END+1! |
WDT | END! |
>> X | NEWENTRY+5* |
Y | EN+6, VAR+9, VAR+10, VAR+11, VAR+12, VAR+13, VAR+15, CONT+5, END!, NEWENTRY+8 , NEWENTRY+9, ADDDT+7, ADDDT+8 |
Name | Field # of Occurrence |
---|---|
$T( | DRAW+2 |
$T(@1+AG | GETAW+2 |