©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
Select the objects that you wish to see in the downloaded PDF
InfoABSPOSFC ; IHS/FCS/DRS - Set up ABSP() ; [ 09/12/2002 10:09 AM ]
Source file <ABSPOSFC.m>
| Package | Total | Call Graph |
|---|---|---|
| IHS Patient Registration | 1 | ($$GETMCR,$$GETRRE)^AGUTL |
| Pharmacy Point of Sale | 1 | IMPOSS^ABSPOSUE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INSGRP() | ; Insurer Group #
|
|
| GETMDIEN() | ||
| INSPOL() | ; /IHS/OIT/RAM ; 15 DEC 17 - IT APPEARS THAT THIS ROUTINE HAS NOT BEEN KEPT UP
; I WONDER IF IT'S EVEN IN USE... |
|
| CARENAME() | ||
| PERSON() | ; Person Code
; For now, it's a simple translation from relationship code: ; 1->"01", 2->"02", etc. |
|
| GETMDPOL() | ;EP ; /IHS/OIT/RAM ; 15 DEC 2017 ; Total rewrite to account for Medicare Bendficiary Identifier, or MBI.
; /IHS/OIT/RAM ; 21 MAR 18 ; update to # logic - scan for Medicare Part D first, return that from the original area if it exists. ; Does the individual have a new MBI? If so, get it and return.... Do we care? This isn't date specific, so everything is 'Today'... just get the info... |
|
| INSREL() | ; a single digit, 1, 2, 3, 4 = self,spouse,child,other
|
|
| INSMBRNM() | ||
| WORKREL() | ; this is copied from ABSPOS26+/- ; changed ABSBVISI to VSTIEN
; is VSTIEN a worker's comp visit? ; If so, return value is true = pointer to ^AUPNVPOV which has ; the CAUSE OF DX listed as EMPLOYMENT RELATED |
|
| INSDNAME(N) | ; Insured's name
|
|
| INSIEN() | ; get pointer to ^AUTNINS
; (But shouldn't we directly get this from the IEN59?) |
|
| CAIDNAME() | ||
| INS3PPH() | ||
| ELGCLAR() | ||
| OLDGETMDPOL() | ||
| INSWORK | ; get worker's comp-related info
|
|
| AUTTRLSH() | ||
| GETINFO(DIALOUT,PATIEN,VSTIEN,PINS,INSIEN) | ;EP
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABSP(9002313.56 - [#9002313.56] | GETINFO+23, GETINFO+29, GETINFO+32, GETINFO+35, GETINFO+46, GETINFO+88, GETINFO+89, GETINFO+90 |
| ^ABSP(9002313.99 - [#9002313.99] | GETINFO+114 |
| ^ABSPEI - [#9002313.4] | GETINFO+97 |
| ^ABSPF(9002313.81 - [#9002313.81] | INSREL+4, INSREL+5 |
| ^ABSPF(9002313.92 - [#9002313.92] | GETINFO+100 |
| ^ABSPTL - [#9002313.57] | GETINFO+22 |
| ^AUPN3PPH - [#9000003.1] | INSGRP+10, INSDNAME+8, INSWORK+3, INSPOL+12 |
| ^AUPNMCD - [#9000004] | INSIEN+2, INSPOL+2, CAIDNAME |
| ^AUPNMCR - [#9000003] | INSIEN+4, INSGRP+5, OLDGETMDPOL+3, OLDGETMDPOL+5, GETMDPOL+5, GETMDPOL+13, CARENAME+4, CARENAME+6, GETMDIEN+6, GETMDIEN+7 |
| ^AUPNPRVT - [#9000006] | INSIEN+3, AUTTRLSH+1, INS3PPH, INSPOL+13, INSMBRNM+4 |
| ^AUPNRRE - [#9000005] | INSIEN+5 |
| ^AUPNVPOV - [#9000010.07] | GETINFO+111, WORKREL+6 |
| ^AUPNVPOV("AD" | WORKREL+5 |
| ^AUTNEGRP - [#9999999.77] | INSGRP+6, INSGRP+11, INSGRP+12 |
| ^AUTNEMPL - [#9999999.75] | INSWORK+4 |
| ^AUTTRLSH - [#9999999.36] | INSREL+3 |
| ^AUTTRLSH("B" | AUTTRLSH+2 |
| ^DIC(5 - [#5] | INSWORK+10 |
| ^DPT - [#2] | GETINFO+53 |
| Name | Line Occurrences |
|---|---|
| $$AUTTRLSH | INSREL+1 |
| $$CAIDNAME | GETINFO+57, INSDNAME+2 |
| $$CARENAME | GETINFO+59, INSDNAME+3 |
| $$GETMDIEN | GETINFO+13 |
| $$GETMDPOL | INSPOL+5 |
| $$INS3PPH | INSGRP+9, INSDNAME+6, INSWORK+2, INSPOL+11 |
| $$INSDNAME | GETINFO+75, GETINFO+76 |
| $$INSGRP | GETINFO+80 |
| $$INSMBRNM | GETINFO+83 |
| $$INSPOL | GETINFO+81 |
| $$INSREL | GETINFO+77, PERSON+3 |
| $$PERSON | GETINFO+78 |
| $$WORKREL | GETINFO+109, GETINFO+111 |
| INSWORK | GETINFO+110 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | GETINFO+56~, GETINFO+57*, GETINFO+59*, GETINFO+60*, GETINFO+61*, GETINFO+62 |
| A | WORKREL+4~*, WORKREL+5*, WORKREL+6, WORKREL+7 |
| >> ABSP("Cardholder" | GETINFO+75*, GETINFO+76* |
| >> ABSP("Date of | Injury" , GETINFO+111* |
| >> ABSP("Employer" | INSWORK+5*, INSWORK+6*, INSWORK+7*, INSWORK+10*, INSWORK+11*, INSWORK+12* |
| >> ABSP("Envoy T | erminal ID" , GETINFO+26* |
| >> ABSP("Insurer" | GETINFO+74*, GETINFO+77*, GETINFO+78*, GETINFO+80*, GETINFO+81*, GETINFO+83* |
| >> ABSP("NCPDP" | GETINFO+99*, GETINFO+103*, GETINFO+104*, GETINFO+105*, GETINFO+106*, GETINFO+108* |
| >> ABSP("Patient" | GETINFO+54*, GETINFO+62*, GETINFO+63*, GETINFO+64*, GETINFO+65*, INSDNAME+4, INSDNAME+10 |
| >> ABSP("SPECIAL" | GETINFO+114* |
| >> ABSP("Site" | GETINFO+24*, GETINFO+25*, GETINFO+27*, GETINFO+28*, GETINFO+30*, GETINFO+31*, GETINFO+33*, GETINFO+36*, GETINFO+37*, GETINFO+38* , GETINFO+39*, GETINFO+40*, GETINFO+41*, GETINFO+42*, GETINFO+43*, GETINFO+50*, GETINFO+51*, GETINFO+87*, GETINFO+90*, GETINFO+94 , GETINFO+95* |
| >> ABSP("VisitIEN" | GETINFO+6* |
| ABSPMNUM | INSMBRNM+2~, INSMBRNM+3*, INSMBRNM+4*, INSMBRNM+5 |
| ADDR | GETINFO+35~*, GETINFO+36, GETINFO+37, GETINFO+38, GETINFO+39, GETINFO+40, GETINFO+41, GETINFO+42 |
| D1 | GETMDIEN+3~, GETMDIEN+5*, GETMDIEN+6*, GETMDIEN+7, GETMDIEN+9 |
| DIALOUT | GETINFO~ |
| GRPIEN | INSGRP+3~, INSGRP+4*, INSGRP+5*, INSGRP+6 |
| IEN57 | GETINFO+21~*, GETINFO+22 |
| INSIEN | GETINFO~, GETINFO+74*, GETINFO+88, GETINFO+89, GETINFO+97 |
| >> MDFLG | GETMDPOL+5 |
| MDFND | GETMDIEN+3~, GETMDIEN+4*, GETMDIEN+6, GETMDIEN+8*, GETMDIEN+10 |
| MDIEN | GETINFO+11~, GETINFO+12*, GETINFO+13*, INSGRP+5, OLDGETMDPOL+5, GETMDPOL+5, CARENAME+6, GETMDIEN+9*, GETMDIEN+11 |
| MDNAME | CARENAME+3~, CARENAME+5*, CARENAME+6*, CARENAME+7 |
| MDPOL | OLDGETMDPOL+2~, OLDGETMDPOL+4*, OLDGETMDPOL+5*, OLDGETMDPOL+6, GETMDPOL+3~*, GETMDPOL+5*, GETMDPOL+7 |
| N | GETINFO+48~*, GETINFO+49*, GETINFO+50, GETINFO+51, INSDNAME~, INSDNAME+11, INSDNAME+12 |
| NAME | CARENAME+3~, CARENAME+4*, CARENAME+7*, CARENAME+8 |
| NRECIEN | GETINFO+1~, GETINFO+97*, GETINFO+99, GETINFO+100 |
| P | INSWORK+2~*, INSWORK+3 |
| PATIEN | GETINFO~, GETINFO+53, GETINFO+54 |
| PHARMACY | GETINFO+19~, GETINFO+22*, GETINFO+23, GETINFO+29, GETINFO+32, GETINFO+35, GETINFO+46, GETINFO+88, GETINFO+89, GETINFO+90 |
| PINS | GETINFO~, GETINFO+4, GETINFO+5 |
| PINSDA | GETINFO+4~*, INSIEN+2, INSIEN+3, INSIEN+4, INSIEN+5, AUTTRLSH+1, INSGRP+5, INS3PPH, INSPOL+2, INSPOL+8 , INSPOL+13, INSMBRNM+4, OLDGETMDPOL+3, OLDGETMDPOL+5, GETMDPOL+5, GETMDPOL+9, GETMDPOL+13, CAIDNAME, CARENAME+4, CARENAME+6 , GETMDIEN+6, GETMDIEN+7 |
| PINSDA1 | GETINFO+4~, GETINFO+5*, INSIEN+3, AUTTRLSH+1, INS3PPH, INSPOL+13, INSMBRNM+4 |
| PINSTYPE | GETINFO+4~*, GETINFO+5, GETINFO+13, GETINFO+56, GETINFO+58, GETINFO+94, INSIEN+2, INSIEN+3, INSIEN+4, INSIEN+5 , INSIEN+6, INSIEN+7, AUTTRLSH+1, INSGRP+5, INSGRP+8, INSDNAME+2, INSDNAME+3, INSDNAME+4, INSDNAME+5, INSDNAME+9 , INSWORK+1, INSPOL+2, INSPOL+5, INSPOL+8, INSPOL+9, INSPOL+10, INSMBRNM+4 |
| POL | OLDGETMDPOL+2~, OLDGETMDPOL+3*, OLDGETMDPOL+6*, OLDGETMDPOL+7, GETMDPOL+3~*, GETMDPOL+9*, GETMDPOL+11, GETMDPOL+13*, GETMDPOL+15 |
| RET | WORKREL+4~*, WORKREL+5, WORKREL+7*, WORKREL+8 |
| ST | INSWORK+9~, INSWORK+10 |
| T | INSDNAME+6~*, INSDNAME+7, INSDNAME+8 |
| >> TRANSACT("" | GETINFO+21 |
| U | GETINFO+22, GETINFO+24, GETINFO+25, GETINFO+26, GETINFO+27, GETINFO+28, GETINFO+30, GETINFO+31, GETINFO+33, GETINFO+36 , GETINFO+37, GETINFO+38, GETINFO+39, GETINFO+40, GETINFO+41, GETINFO+42, GETINFO+47, GETINFO+48, GETINFO+50, GETINFO+51 , GETINFO+61, GETINFO+63, GETINFO+64, GETINFO+65, GETINFO+90, GETINFO+97, GETINFO+102, GETINFO+103, GETINFO+104, GETINFO+105 , GETINFO+106, GETINFO+107, GETINFO+108, GETINFO+111, GETINFO+114, WORKREL+6, INSIEN+2, INSIEN+3, INSIEN+4, INSIEN+5 , INSREL+3, INSREL+5, AUTTRLSH+1, INSGRP+5, INSGRP+6, INSGRP+10, INSGRP+11, INSGRP+12, INSDNAME+8, INSWORK+3 , INSWORK+5, INSWORK+6, INSWORK+7, INSWORK+10, INSWORK+11, INSWORK+12, INS3PPH, INSPOL+2, INSPOL+12, INSPOL+13 , OLDGETMDPOL+3, OLDGETMDPOL+5, GETMDPOL+5, GETMDPOL+13, CAIDNAME, CARENAME+4, CARENAME+6, GETMDIEN+7 |
| VSTIEN | GETINFO~, GETINFO+6, WORKREL+5 |
| X | GETINFO+46~*, GETINFO+47, GETINFO+48, GETINFO+50, GETINFO+51, GETINFO+89~*, GETINFO+90, INSREL+1~*, INSREL+3*, INSREL+4* , INSREL+5*, INSREL+6, AUTTRLSH+2~*, INSGRP+9~*, INSGRP+10, INSDNAME+1~, INSDNAME+2*, INSDNAME+3*, INSDNAME+4*, INSDNAME+7* , INSDNAME+8*, INSDNAME+10*, INSDNAME+11, INSDNAME+12, INSDNAME+13, INSWORK+3~*, INSWORK+4*, INSWORK+5, INSWORK+6, INSWORK+7 , INSWORK+11, INSWORK+12, INSPOL+11~*, INSPOL+12 |
| XDATA | GETINFO+1~, GETINFO+23*, GETINFO+24, GETINFO+25, GETINFO+26, GETINFO+27, GETINFO+28, GETINFO+29*, GETINFO+30, GETINFO+31 , GETINFO+32*, GETINFO+33, GETINFO+53*, GETINFO+61, GETINFO+63, GETINFO+64, GETINFO+65, GETINFO+100*, GETINFO+101*, GETINFO+102* , GETINFO+103, GETINFO+104, GETINFO+105, GETINFO+106, GETINFO+107*, GETINFO+108 |
| Y | INSGRP+10~*, INSGRP+11, INSGRP+12, INSPOL+12~* |
| Z | INSGRP+11~*, INSGRP+12*, INSGRP+13 |
| Name | Field # of Occurrence |
|---|---|
| $T( | INSIEN+7, AUTTRLSH+2, INSDNAME+9, INSPOL+10 |