©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
ABSPOS26 ; IHS/FCS/DRS - put insurance in order ;
Source file <ABSPOS26.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Patient Registration | 1 | $$INSTYP^AGUTL |
| Pharmacy Point of Sale | 1 | IMPOSS^ABSPOSUE |
| Package | Total | Caller Graph |
|---|---|---|
| Pharmacy Point of Sale | 2 | ABSPOS28 ABSPOSPE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RULESET(N,RULE) | ||
| PHOLDDOB(N) | ||
| WORKREL() | ||
| SEARHC0(ARRAY,ABSBPATI,ABSBVISI,PTSPLUS,PTSMINUS) | ||
| WORKCOMP(ARRAY,ABSBPATI,ABSBVISI,PTSPLUS,PTSMINUS) | ||
| PTSSET(N,POINTS) | ||
| INSIEN(N) | ||
| PTSADD(N,DELTA) | ||
| THRUEMPL(N) | ||
| PHOLDER(N) | ||
| NULL(A,B,C,D,E) | ; ABSP*1.0T7*10
; This rule does nothing. |
|
| WCINS(N) | ||
| PTS(N) | ||
| EMPLOY1(ARRAY,ABSBPATI,ABSBVISI,PTSPLUS,PTSMINUS) | ;
; Insurance through employment takes precedence over ; insurance through private purchase ; Give it a plus, in the neighborhood of 10 points |
|
| ISBEN() | ; Is ABSBPATI a "Beneficiary" according to local definition?
|
|
| INSTYPE(N) | ||
| EMPLOY2(ARRAY,ABSBPATI,ABSBVISI,PTSPLUS,PTSMINUS) | ||
| AUTTBEN(PATDFN) | ;EP - return beneficiary code, from ^AUPNPAT
|
|
| RELATION(N) | ||
| ISCHILD(N) | ||
| ISSELF(N) | ||
| ISSPOUSE(N) | ||
| BIRTHDAY(ARRAY,ABSBPATI,ABSBVISI,PTSPLUS,PTSMINUS) | ||
| COMBREC(N) | ||
| SELFRULE(ARRAY,%1,%2,%3,%4) | ; new with ABSP*1.0T7*9
|
|
| FINDTYPE(TYPE) | ||
| PTSSUB(N,DELTA) |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABSP(9002313.99 - [#9002313.99] | ISBEN+1 |
| ^ABSPCOMB - [#9002313.1] | COMBREC |
| ^ABSPEI - [#9002313.4] | WCINS+2 |
| ^AUPN3PPH - [#9000003.1] | THRUEMPL+1, PHOLDDOB+1 |
| ^AUPNPAT - [#9000001] | AUTTBEN+2 |
| ^AUPNPAT("B" | AUTTBEN+1 |
| ^AUPNVPOV - [#9000010.07] | WORKREL+5 |
| ^AUPNVPOV("AD" | WORKREL+4 |
| ^AUTTRLSH - [#9999999.36] | RELATION+2 |
| Name | Line Occurrences |
|---|---|
| $$AUTTBEN | ISBEN+1 |
| $$COMBREC | PHOLDER, RELATION+1 |
| $$FINDTYPE | SEARHC0+1, SEARHC0+2, SEARHC0+3, SEARHC0+5 |
| $$INSIEN | WCINS+2, WCINS+4 |
| $$INSTYPE | FINDTYPE+4, EMPLOY1+5, EMPLOY2+2, SELFRULE+2, BIRTHDAY+9 |
| $$ISBEN | SEARHC0+4 |
| $$ISCHILD | BIRTHDAY+11 |
| $$PHOLDDOB | BIRTHDAY+15 |
| $$PHOLDER | THRUEMPL, PHOLDDOB |
| $$PTS | PTSADD |
| $$RELATION | ISSPOUSE, ISCHILD, ISSELF, EMPLOY2+3, SELFRULE+3 |
| $$THRUEMPL | EMPLOY1+6, EMPLOY2+3, BIRTHDAY+10 |
| $$WCINS | WORKCOMP+4 |
| $$WORKREL | WORKCOMP+1 |
| PTSADD | PTSSUB, EMPLOY1+7, EMPLOY2+4, SELFRULE+3, BIRTHDAY+16 |
| PTSSET | PTSADD, SEARHC0+7, WORKCOMP+7, WORKCOMP+11 |
| PTSSUB | EMPLOY1+9 |
| RULESET | SEARHC0+7, WORKCOMP+7, WORKCOMP+11, EMPLOY1+7, EMPLOY1+9, EMPLOY2+4, SELFRULE+3, BIRTHDAY+17 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %1 | SELFRULE~ |
| %2 | SELFRULE~ |
| %3 | SELFRULE~ |
| %4 | SELFRULE~ |
| A | WORKREL+3~*, WORKREL+4*, WORKREL+5, NULL~ |
| ABSBPATI | COMBREC, ISBEN+1, SEARHC0~, WORKCOMP~, EMPLOY1~, EMPLOY2~, BIRTHDAY~ |
| ABSBVISI | WORKREL+4, SEARHC0~, WORKCOMP~, EMPLOY1~, EMPLOY2~, BIRTHDAY~ |
| ARRAY | SEARHC0~, WORKCOMP~, EMPLOY1~, EMPLOY2~, SELFRULE~, BIRTHDAY~ |
| ARRAY( | INSIEN, INSTYPE, COMBREC, PTS, PTSSET*, RULESET, RULESET+1* |
| ARRAY(0 | FINDTYPE+3, WORKCOMP+3, EMPLOY1+4, EMPLOY2+1, SELFRULE+1, BIRTHDAY+8 |
| AUPNPAT | AUTTBEN+1~*, AUTTBEN+2 |
| B | NULL~ |
| C | NULL~ |
| D | NULL~ |
| DELTA | PTSADD~, PTSSUB~ |
| E | NULL~ |
| I | FINDTYPE+2~*, FINDTYPE+3*, FINDTYPE+4, WORKCOMP+3~*, WORKCOMP+4, WORKCOMP+7, WORKCOMP+11, EMPLOY1+4~*, EMPLOY1+5, EMPLOY1+6 , EMPLOY1+7, EMPLOY1+9, EMPLOY2+1~*, EMPLOY2+2, EMPLOY2+3, EMPLOY2+4, SELFRULE+1~*, SELFRULE+2, SELFRULE+3, BIRTHDAY+8~* , BIRTHDAY+9, BIRTHDAY+10, BIRTHDAY+11, BIRTHDAY+15, BIRTHDAY+16, BIRTHDAY+17 |
| N | INSIEN~, INSTYPE~, COMBREC~, FINDTYPE+2~, WCINS~, WCINS+2, WCINS+4, PHOLDER~, THRUEMPL~, PHOLDDOB~ , RELATION~, RELATION+1, ISSPOUSE~, ISCHILD~, ISSELF~, PTS~, PTSSET~, PTSADD~, PTSSUB~, RULESET~ , RULESET+1 |
| PATDFN | AUTTBEN~, AUTTBEN+1 |
| POINTS | PTSSET~ |
| PTSMINUS | SEARHC0~, WORKCOMP~, EMPLOY1~, EMPLOY1+9, EMPLOY2~, BIRTHDAY~ |
| PTSPLUS | SEARHC0~, WORKCOMP~, EMPLOY1~, EMPLOY1+7, EMPLOY2~, EMPLOY2+4, SELFRULE+3, BIRTHDAY~, BIRTHDAY+16 |
| RET | FINDTYPE+2~*, FINDTYPE+3, FINDTYPE+4*, FINDTYPE+5, WORKREL+3~*, WORKREL+4, WORKREL+5*, WORKREL+6 |
| RULE | RULESET~, RULESET+1 |
| TYPE | FINDTYPE~, FINDTYPE+1*, FINDTYPE+4 |
| U | INSIEN, INSTYPE, COMBREC, WCINS+2, PHOLDER, THRUEMPL+1, PHOLDDOB+1, RELATION+1, RELATION+2, PTS , PTSSET, RULESET, RULESET+1, AUTTBEN+2, WORKREL+5 |
| WCINS | WORKCOMP+2~, WORKCOMP+4*, WORKCOMP+5, WORKCOMP+8, WORKCOMP+9, WORKCOMP+13 |
| WCVISIT | WORKCOMP+1~*, WORKCOMP+7, WORKCOMP+11 |
| X | WCINS+2~*, WCINS+4*, WCINS+5*, WCINS+6, THRUEMPL~*, THRUEMPL+1, PHOLDDOB~*, PHOLDDOB+1, RELATION+1~*, RELATION+2* , RELATION+3, ISSPOUSE~*, ISSPOUSE+1, ISCHILD~*, ISCHILD+1, ISCHILD+2, RULESET~*, RULESET+1*, AUTTBEN+2~*, AUTTBEN+4* , AUTTBEN+5, SEARHC0+5~*, SEARHC0+7, BIRTHDAY+15~*, BIRTHDAY+16 |
| Name | Field # of Occurrence |
|---|---|
| $T( | SEARHC0+6, WORKCOMP+13 |