©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
AGEDPRVI ;IHS/ASDS/TPF - EDIT PRIVATE INSURANCE ELIGIBLE FIELDS ;
Source file <AGEDPRVI.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | ^DIE $$GET1^DIQ |
| IHS Patient Registration | 1 | UPDTERM^AGEDPRVP |
| Package | Total | Caller Graph |
|---|---|---|
| IHS Patient Registration | 4 | AGED4PD AGED6PD AGEDPRV AGEDPRVP |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADDOPT(PATPTR,INSPTR,POLHPTR,POLMEMBS) | ;EP - ADD MEMBER FORM PRVT PAGE A
|
|
| EDITPOL2 | ;EP -
|
|
| EDITMNUM(PATPTR,INSPTR) | ;EP - EDIT MEMBER NUMBER
|
|
| EDITNAME(PATPTR,INSPTR,POLHPTR,TYPE) | ;EP - STUFF POLICY HOLDER NAME
|
|
| EDITPOLN(PATPTR,INSPTR,POLHPTR) | ;EP - STUFF POLICY NUMBER
|
|
| EDITREL(PATPTR,INSPTR,SAME) | ;EP - EDIT/STUFF RELATIONSHIP PTR
|
|
| EDITCON(PATPTR,INSPTR,POLHPTR) | ;EP - STUFF COVERAGE PTR
|
|
| EDITBDT(PATPTR,INSPTR,POLHPTR,TYPE) | ;EP - STUFF ELIG BEGIN DATE
|
|
| REL | ;EP - EDIT RELATIONSHIP TO INSURER
|
|
| EDITEDT(PATPTR,INSPTR,POLHPTR,TYPE) | ;EP - STUFF ELIG END DATE
|
|
| EDITPCP(PATPTR,INSPTR,CALLER) | ;EP - EDIT PRIMARY CARE PROVIDER
|
|
| EDITPOLM(POLMEMBS,CHOICES) | ;EP - EDIT POLICY MEMBER INSURANCE INFORMATION
|
|
| EDITCC(PATPTR,INSPTR,CALLER) | ;EP - EDIT CARD COPY ON FILE/ DATE RECEIVED
|
|
| EDITPH(PATPTR,INSPTR,POLHPTR) | ;EP - STUFF POLICY HOLDER PTR
|
|
| EDITCCDT(PATPTR,INSPTR) | ;EP - EDIT CARD COPY DATE
|
|
| EDITPCD(PATPTR,INSPTR) | ;EP - EDIT PERSON CODE
|
| Name | Field # of Occurrence |
|---|---|
| UPDTERM^AGEDPRVP | EDITPOL2+24 |
| ^DIE | EDITPOL2+14, EDITPOL2+30, ADDOPT+6, ADDOPT+15, ADDOPT+23, REL+6, EDITPCD+6, EDITMNUM+6, EDITPOLN+7, EDITCON+7 , EDITBDT+7, EDITEDT+7, EDITPH+7, EDITNAME+8, EDITREL+8, EDITPCP+7, EDITCC+7, EDITCCDT+7 |
| $$GET1^DIQ | EDITPOL2+10, EDITPOL2+16, EDITPOL2+18 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^AUPN3PPH - [#9000003.1] | Classic Fileman Calls |
| 9000006.11 | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPN3PPH - [#9000003.1] | EDITPOLN+2, EDITCON+2, EDITBDT+2, EDITEDT+2, EDITNAME+2 |
| ^AUPNPRVT - [#9000006] | ADDOPT+8, ADDOPT+17, REL+7, REL+9*, EDITCC+8 |
| ^DPT - [#2] | EDITPOL2+6 |
| Name | Line Occurrences |
|---|---|
| EDITBDT | REL+14 |
| EDITCCDT | EDITCC+8 |
| EDITCON | REL+13 |
| EDITEDT | REL+15 |
| EDITNAME | REL+17 |
| EDITPH | REL+16 |
| EDITPOL2 | EDITPOL2+16 |
| EDITPOLN | REL+12 |
| REL | REL+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> AGELP("PH" | EDITPOL2+24, EDITPOL2+29 |
| AGNEWDT | EDITPOL2+2~, EDITPOL2+18*, EDITPOL2+21, EDITPOL2+24, EDITPOL2+26 |
| AGOLDDT | EDITPOL2+2~, EDITPOL2+10*, EDITPOL2+21, EDITPOL2+24 |
| CALLER | EDITPCP~, EDITPCP+2, EDITCC~, EDITCC+2 |
| CHOICES | EDITPOLM~, EDITPOL2+3 |
| DA | EDITPOL2+7!, EDITPOL2+11*, EDITPOL2+19!, EDITPOL2+25!, EDITPOL2+29*, EDITPOL2+31!, ADDOPT+1!, ADDOPT+3*, ADDOPT+7!, ADDOPT+9! , ADDOPT+12*, ADDOPT+16!, ADDOPT+18!, ADDOPT+20*, REL+1!, REL+3*, REL+10!, EDITPCD+1!, EDITPCD+3*, EDITPCD+7! , EDITMNUM+1!, EDITMNUM+3*, EDITMNUM+7!, EDITPOLN+1!, EDITPOLN+4*, EDITPOLN+8!, EDITCON+1!, EDITCON+4*, EDITCON+8!, EDITBDT+1! , EDITBDT+4*, EDITBDT+8!, EDITEDT+1!, EDITEDT+4*, EDITEDT+8!, EDITPH+1!, EDITPH+4*, EDITPH+8!, EDITNAME+1!, EDITNAME+5* , EDITNAME+9!, EDITREL+1!, EDITREL+5*, EDITREL+9!, EDITPCP+1!, EDITPCP+4*, EDITPCP+8!, EDITCC+1!, EDITCC+4*, EDITCC+9! , EDITCCDT+1!, EDITCCDT+4*, EDITCCDT+8! |
| DA(1 | EDITPOL2+12*, EDITPOL2+13, ADDOPT+4*, ADDOPT+5, ADDOPT+13*, ADDOPT+14, ADDOPT+21*, ADDOPT+22, REL+4*, REL+5 , EDITPCD+4*, EDITPCD+5, EDITMNUM+4*, EDITMNUM+5, EDITPOLN+5*, EDITPOLN+6, EDITCON+5*, EDITCON+6, EDITBDT+5*, EDITBDT+6 , EDITEDT+5*, EDITEDT+6, EDITPH+5*, EDITPH+6, EDITNAME+6*, EDITNAME+7, EDITREL+6*, EDITREL+7, EDITPCP+3*, EDITPCP+5 , EDITCC+3*, EDITCC+5, EDITCCDT+5*, EDITCCDT+6 |
| DIC | EDITPOL2+7!, EDITPOL2+19!, EDITPOL2+25!, EDITPOL2+31!, ADDOPT+1!, ADDOPT+7!, ADDOPT+9!, ADDOPT+16!, ADDOPT+18!, REL+1! , REL+10!, EDITPCD+1!, EDITPCD+7!, EDITMNUM+1!, EDITMNUM+7!, EDITPOLN+1!, EDITPOLN+8!, EDITCON+1!, EDITCON+8!, EDITBDT+1! , EDITBDT+8!, EDITEDT+1!, EDITEDT+8!, EDITPH+1!, EDITPH+8!, EDITNAME+1!, EDITNAME+9!, EDITREL+1!, EDITREL+9!, EDITPCP+1! , EDITPCP+8!, EDITCC+1!, EDITCC+9!, EDITCCDT+1!, EDITCCDT+8! |
| DIE | EDITPOL2+7!, EDITPOL2+13*, EDITPOL2+19!, EDITPOL2+25!, EDITPOL2+28*, EDITPOL2+31!, ADDOPT+1!, ADDOPT+5*, ADDOPT+7!, ADDOPT+9! , ADDOPT+14*, ADDOPT+16!, ADDOPT+18!, ADDOPT+22*, REL+1!, REL+5*, REL+10!, EDITPCD+1!, EDITPCD+5*, EDITPCD+7! , EDITMNUM+1!, EDITMNUM+5*, EDITMNUM+7!, EDITPOLN+1!, EDITPOLN+6*, EDITPOLN+8!, EDITCON+1!, EDITCON+6*, EDITCON+8!, EDITBDT+1! , EDITBDT+6*, EDITBDT+8!, EDITEDT+1!, EDITEDT+6*, EDITEDT+8!, EDITPH+1!, EDITPH+6*, EDITPH+8!, EDITNAME+1!, EDITNAME+7* , EDITNAME+9!, EDITREL+1!, EDITREL+7*, EDITREL+9!, EDITPCP+1!, EDITPCP+5*, EDITPCP+8!, EDITCC+1!, EDITCC+5*, EDITCC+9! , EDITCCDT+1!, EDITCCDT+6*, EDITCCDT+8! |
| DIE("NO^" | ADDOPT+10*, EDITCCDT+2* |
| DIR | EDITPOL2+7!, EDITPOL2+19!, EDITPOL2+25!, EDITPOL2+31!, ADDOPT+1!, ADDOPT+7!, ADDOPT+9!, ADDOPT+16!, ADDOPT+18!, REL+1! , REL+10!, EDITPCD+1!, EDITPCD+7!, EDITMNUM+1!, EDITMNUM+7!, EDITPOLN+1!, EDITPOLN+8!, EDITCON+1!, EDITCON+8!, EDITBDT+1! , EDITBDT+8!, EDITEDT+1!, EDITEDT+8!, EDITPH+1!, EDITPH+8!, EDITNAME+1!, EDITNAME+9!, EDITREL+1!, EDITREL+9!, EDITPCP+1! , EDITPCP+8!, EDITCC+1!, EDITCC+9!, EDITCCDT+1!, EDITCCDT+8! |
| DR | EDITPOL2+7!, EDITPOL2+9*, EDITPOL2+19!, EDITPOL2+25!, EDITPOL2+26*, EDITPOL2+27*, EDITPOL2+31!, ADDOPT+1!, ADDOPT+2*, ADDOPT+7! , ADDOPT+9!, ADDOPT+11*, ADDOPT+16!, ADDOPT+18!, ADDOPT+19*, REL+1!, REL+2*, REL+10!, EDITPCD+1!, EDITPCD+2* , EDITPCD+7!, EDITMNUM+1!, EDITMNUM+2*, EDITMNUM+7!, EDITPOLN+1!, EDITPOLN+2*, EDITPOLN+3*, EDITPOLN+8!, EDITCON+1!, EDITCON+2* , EDITCON+3*, EDITCON+8!, EDITBDT+1!, EDITBDT+2*, EDITBDT+3*, EDITBDT+8!, EDITEDT+1!, EDITEDT+2*, EDITEDT+3*, EDITEDT+8! , EDITPH+1!, EDITPH+2*, EDITPH+3*, EDITPH+8!, EDITNAME+1!, EDITNAME+2*, EDITNAME+3*, EDITNAME+4*, EDITNAME+9!, EDITREL+1! , EDITREL+3*, EDITREL+4*, EDITREL+9!, EDITPCP+1!, EDITPCP+6*, EDITPCP+8!, EDITCC+1!, EDITCC+6*, EDITCC+9!, EDITCCDT+1! , EDITCCDT+3*, EDITCCDT+8! |
| INSPTR | EDITPOL2+1~, EDITPOL2+5*, EDITPOL2+10, EDITPOL2+11, EDITPOL2+16, EDITPOL2+18, ADDOPT~, ADDOPT+3, ADDOPT+8, ADDOPT+12 , ADDOPT+17, ADDOPT+20, REL+3, REL+7, REL+9, REL+12, REL+13, REL+14, REL+15, REL+16 , REL+17, EDITPCD~, EDITPCD+3, EDITMNUM~, EDITMNUM+3, EDITPOLN~, EDITPOLN+4, EDITCON~, EDITCON+4, EDITBDT~ , EDITBDT+4, EDITEDT~, EDITEDT+4, EDITPH~, EDITPH+4, EDITNAME~, EDITNAME+5, EDITREL~, EDITREL+5, EDITPCP~ , EDITPCP+4, EDITCC~, EDITCC+4, EDITCC+8, EDITCCDT~, EDITCCDT+4 |
| ITEM | EDITPOL2+1~, EDITPOL2+3*, EDITPOL2+4, EDITPOL2+5 |
| PATPTR | ADDOPT~, ADDOPT+4, ADDOPT+8, ADDOPT+13, ADDOPT+17, ADDOPT+21, REL+4, REL+7, REL+9, REL+12 , REL+13, REL+14, REL+15, REL+16, REL+17, EDITPCD~, EDITPCD+4, EDITMNUM~, EDITMNUM+4, EDITPOLN~ , EDITPOLN+5, EDITCON~, EDITCON+5, EDITBDT~, EDITBDT+5, EDITEDT~, EDITEDT+5, EDITPH~, EDITPH+5, EDITNAME~ , EDITNAME+6, EDITREL~, EDITREL+6, EDITPCP~, EDITPCP+3, EDITCC~, EDITCC+3, EDITCC+8, EDITCCDT~, EDITCCDT+5 |
| PIECE | EDITPOL2+1~, EDITPOL2+3* |
| POLHPTR | ADDOPT~, REL+12, REL+13, REL+14, REL+15, REL+16, REL+17, EDITPOLN~, EDITPOLN+2, EDITCON~ , EDITCON+2, EDITBDT~, EDITBDT+2, EDITEDT~, EDITEDT+2, EDITPH~, EDITPH+2, EDITNAME~, EDITNAME+2 |
| POLMEMBS | EDITPOLM~, ADDOPT~ |
| POLMEMBS( | EDITPOL2+4, EDITPOL2+5 |
| POLMEMBS("SELF" | EDITPOL2+22, EDITPOL2+23, REL+7 |
| >> POLMPTR | EDITPOL2+4*, EDITPOL2+5, EDITPOL2+6, EDITPOL2+10, EDITPOL2+12, EDITPOL2+16, EDITPOL2+18, EDITPOL2+23 |
| RECORD | EDITPOL2+1~ |
| SAME | EDITREL~, EDITREL+3 |
| TYPE | EDITBDT~, EDITBDT+2, EDITEDT~, EDITEDT+2, EDITNAME~, EDITNAME+2, EDITNAME+3 |
| U | EDITPOL2+6, ADDOPT+8, ADDOPT+17, REL+7, REL+9, EDITPOLN+2, EDITCON+2, EDITBDT+2, EDITEDT+2, EDITNAME+2 , EDITCC+8 |