©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
ABSPOSSG ; IHS/SD/lwj - Special gets for formats ; [ 12/23/2002 8:10 AM ]
Source file <ABSPOSSG.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FLD318 | ;Employer State/Prov Address
|
|
| FLD319 | ;Employer Zip/Postal Zip
|
|
| FLD473 | ;DUR/PPS code counter - called from set logic in ABSP NCPDP Field Defs
; repeating field on the DUR/PPS 5.1 segment - ; Since this is the .01 field - we also need to set the cross ref ; here as well |
|
| FLD475 | ;DUR Co-agent ID Qualifier - called from set logic in ABSP NCPDP Field
; Defs repeating field on the DUR/PPS 5.1 segment |
|
| FLD320 | ;Employer Phone Number
|
|
| COLSTATE() | ||
| FLD474 | ;DUR/PPS level of effort - called from set logic in ABSP NCPDP Field
; Defs repeating field on the DUR/PPS 5.1 segment |
|
| FLD327 | ;Carrier ID
|
|
| FMT416() | ;----------------------------------------------------------------
|
|
| FLD440 | ;Professional Service Code
|
|
| FLD315 | ;Employer Name
; 3.2/5.1 Set Code - called by set command in ABSP NCPDP Field Defs |
|
| FLD316 | ;Employer Street Address
; 3.2/5.1 Set Code - called by set command in ABSP NCPDP Field DEfs |
|
| STATE(STATE) | ;EP IHS/SD/lwj 10/28/02 retrieve the state license number
; This code will replace the COLSTATE code. ; Incoming - the two character state abbreviation for the state ; license we need ; Outgoing - the licence number if found, or the default Medicaid # |
|
| FLD476 | ;DUR Co-agent ID - called from set logic in ABSP NCPDP Field
; Defs repeating field on the DUR/PPS 5.1 segment |
|
| FLD439 | ;Reason for service code
|
|
| FLD441 | ;Result of Service Code
|
|
| NEW416() | ; IHS/SD/lwj 8/30/02 NCPDP 5.1
; Field 416 is obsolete in version 5.1 - BUT - the logic that ; is used in 5.1 is similiar for populating 3.2 claims that ; use field 416. So - we will use this routine only until ; 3.2 is obsolete. |
|
| FLD317 | ;Employer City Address
|
|
| FLD308 | ;Other Coverage Code
; 3.2/5.1 Set code - called by set command in ABSP NCPDP Field Defs |
| Name | Field # of Occurrence |
|---|---|
| $$NFF^ABSPECFM | NEW416+10, FMT416+18, FMT416+24 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABSPC - [#9002313.02] | FLD308+4*, FLD308+10*, FLD315+4*, FLD315+10*, FLD316+4*, FLD316+10*, FLD317+4*, FLD317+10*, FLD318+4*, FLD318+10* , FLD319+4*, FLD319+10*, FLD320+4*, FLD320+10*, FLD327+4*, FLD327+10*, FLD439+6*, FLD440+6*, FLD441+6*, FLD473+5* , FLD473+6*, FLD474+3*, FLD475+3*, FLD476+3* |
| ^DIC(5 - [#5] | COLSTATE+21, STATE+8 |
| ^DIC(6 - [#6] | COLSTATE+20, COLSTATE+22 |
| ^VA(200 - [#200] | COLSTATE+17, STATE+15, STATE+16 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ABSP( | COLSTATE+16, STATE+12, FLD308+4, FLD308+9, FLD308+10, FLD315+4, FLD315+9, FLD315+10, FLD316+4, FLD316+9 , FLD316+10, FLD317+4, FLD317+9, FLD317+10, FLD318+4, FLD318+9, FLD318+10, FLD319+4, FLD319+9, FLD319+10 , FLD320+4, FLD320+9, FLD320+10, FLD327+4, FLD327+9, FLD327+10, FLD439+6, FLD440+6, FLD441+6, FLD473+5 , FLD473+6, FLD474+3, FLD475+3, FLD476+3 |
| >> ABSP("RX" | COLSTATE+16, STATE+12 |
| >> ABSP("Site" | COLSTATE+26, STATE+18 |
| >> ABSP("X" | NEW416+8, NEW416+9, FMT416+12, FMT416+17, FMT416+23, FMT416+24, FLD308+4, FLD308+10, FLD315+4, FLD315+10 , FLD316+4, FLD316+10, FLD317+4, FLD317+10, FLD318+4, FLD318+10, FLD319+4, FLD319+10, FLD320+4, FLD320+10 , FLD327+4, FLD327+10, FLD439+6, FLD440+6, FLD441+6, FLD473+5, FLD473+6, FLD474+3, FLD475+3, FLD476+3 |
| ABSPCD | FMT416+7~, FMT416+12*, FMT416+26 |
| ABSPFND | COLSTATE+5~, COLSTATE+6*, COLSTATE+23*, COLSTATE+26 |
| ABSPLIC | COLSTATE+5~, COLSTATE+6*, COLSTATE+22*, COLSTATE+26*, COLSTATE+28 |
| ABSPPA | FMT416+7~, FMT416+18*, FMT416+24*, FMT416+26 |
| ABSPPC | FMT416+7~, FMT416+26*, FMT416+28 |
| ABSPPRO | COLSTATE+5~, COLSTATE+6*, COLSTATE+16*, COLSTATE+17*, COLSTATE+19, COLSTATE+20, COLSTATE+22 |
| ABSPST | COLSTATE+5~, COLSTATE+6*, COLSTATE+20*, COLSTATE+21, COLSTATE+22, COLSTATE+24* |
| DRPOINT | STATE+6~, STATE+7*, STATE+12*, STATE+15, STATE+16 |
| >> DUR | FLD439+6, FLD440+6, FLD441+6, FLD473+5, FLD473+6, FLD474+3, FLD475+3, FLD476+3 |
| LICENSE | STATE+6~, STATE+7*, STATE+16*, STATE+18*, STATE+20 |
| LIPOINT | STATE+6~, STATE+7*, STATE+15*, STATE+16 |
| PA | NEW416+6~, NEW416+10*, NEW416+12 |
| PANUM | NEW416+6~, NEW416+9*, NEW416+10 |
| PATYPE | NEW416+6~, NEW416+8*, NEW416+10 |
| STATE | STATE~, STATE+8 |
| STPOINT | STATE+6~, STATE+7*, STATE+8*, STATE+15 |
| U | COLSTATE+17, COLSTATE+21, COLSTATE+22, STATE+16, FLD308+4, FLD308+10, FLD315+4, FLD315+10, FLD316+4, FLD316+10 , FLD317+4, FLD317+10, FLD318+4, FLD318+10, FLD319+4, FLD319+10, FLD320+4, FLD320+10, FLD327+4, FLD327+10 , FLD439+6, FLD440+6, FLD441+6, FLD473+5, FLD474+3, FLD475+3, FLD476+3 |