©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
ABSPOSH2 ; IHS/SD/lwj - Assemble frmted claim for 5.1 ;[ 08/22/2002 2:05 PM ]
Source file <ABSPOSH2.m>
| Package | Total | Call Graph |
|---|---|---|
| Pharmacy Point of Sale | 2 | $$NFF^ABSPECFM GETFLDS^ABSPOSHF |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PROCDIAG | ;NCPDP 5.1 - DIAGNOSIS CODE in CLINICAL Segment
|
|
| PROCDUR | ;NCPDP 5.1 - The DUR/PPS segment can repeat itself for any given
; transaction within a claim. This means we have to have special ; programming to handle the repeating fields. |
|
| SEGID(ND) | ; Field 111 is the Segment Identifier - for each segment, other than
; the header, a pre-defined, unique value must be sent in this field ; to identify which segment is being sent. This value is not stored ; in the claim - as it changes with each of the 13 segments. The ; field does appear as part of the NCPCP Format, put is simply not ; stored. ; 01 = Patient 02 = Pharmacy Provider 03 = Prescriber ; 04 = Insurance 05 = COB/Other Payment 06 = Workers Comp ; 07 = Claim 08 = DUR/PPS 09 = Coupon ; 10 = Compound 11 = Pricing 12 = Prior Auth ; 13 = Clinical |
|
| XLOOP(NODES,IEN,ABSP,REC) | ;EP - from ABSPECA1
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ABSPF(9002313.91 - [#9002313.91] | XLOOP+36, XLOOP+41, PROCDUR+26, PROCDIAG+23 |
| ^ABSPF(9002313.92 - [#9002313.92] | XLOOP+11, XLOOP+24, XLOOP+27, XLOOP+30 |
| Name | Line Occurrences |
|---|---|
| $$SEGID | XLOOP+54, PROCDUR+10, PROCDIAG+8 |
| PROCDIAG | XLOOP+17 |
| PROCDUR | XLOOP+16 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ABSP | XLOOP~ |
| ABSP( | XLOOP+45, XLOOP+48, PROCDUR+7, PROCDUR+20, PROCDUR+30, PROCDIAG+2, PROCDIAG+12, PROCDIAG+18, PROCDIAG+27 |
| DATAFND | XLOOP+4~, XLOOP+13*, XLOOP+50*, XLOOP+60, XLOOP+61, PROCDUR+38*, PROCDIAG+3* |
| DIAG | PROCDIAG+5~, PROCDIAG+17*, PROCDIAG+18*, PROCDIAG+27 |
| DUR | PROCDUR+4~, PROCDUR+19*, PROCDUR+20*, PROCDUR+30 |
| FDATA | XLOOP+2~, XLOOP+36*, XLOOP+37, XLOOP+38 |
| FDATA5 | XLOOP+4~, XLOOP+41*, XLOOP+42, PROCDUR+26*, PROCDUR+27, PROCDIAG+23*, PROCDIAG+24 |
| FIELD | PROCDUR+4~, PROCDUR+15, PROCDIAG+5~, PROCDIAG+15 |
| FIELD( | PROCDUR+22, PROCDUR+23, PROCDUR+24, PROCDIAG+20, PROCDIAG+21, PROCDIAG+22 |
| FLAG | XLOOP+2~ |
| FLD | SEGID+12~, SEGID+14*, SEGID+15*, SEGID+17, PROCDUR+4~, PROCDUR+24*, PROCDUR+25*, PROCDUR+30, PROCDIAG+5~, PROCDIAG+22* , PROCDIAG+27 |
| FLDDATA | XLOOP+2~, XLOOP+45*, XLOOP+48*, XLOOP+50, XLOOP+54*, XLOOP+56, XLOOP+57, PROCDUR+10*, PROCDUR+11, PROCDUR+30* , PROCDUR+37, PROCDUR+39, PROCDIAG+8*, PROCDIAG+9, PROCDIAG+12*, PROCDIAG+13, PROCDIAG+27*, PROCDIAG+28 |
| FLDID | XLOOP+3~, XLOOP+42*, XLOOP+50, PROCDUR+27*, PROCDUR+37, PROCDIAG+24* |
| FLDIEN | XLOOP+2~, XLOOP+33*, XLOOP+34, XLOOP+36, XLOOP+41, PROCDUR+23*, PROCDUR+26, PROCDIAG+21*, PROCDIAG+23 |
| FLDNUM | XLOOP+2~, XLOOP+38*, XLOOP+39, XLOOP+45, XLOOP+48, XLOOP+54 |
| IEN | XLOOP~ |
| IEN( | XLOOP+11, XLOOP+24, XLOOP+27, XLOOP+30, XLOOP+45, XLOOP+48, PROCDUR+15, PROCDIAG+15 |
| INDEX | XLOOP+3~, XLOOP+8*, XLOOP+9 |
| MDATA | XLOOP+2~, XLOOP+30*, XLOOP+31, XLOOP+33 |
| ND | SEGID~, SEGID+14 |
| NODE | XLOOP+2~, XLOOP+9*, XLOOP+10, XLOOP+11, XLOOP+16, XLOOP+17, XLOOP+22, XLOOP+23, XLOOP+24, XLOOP+27 , XLOOP+30, XLOOP+45, XLOOP+48, XLOOP+54, XLOOP+56, XLOOP+57, XLOOP+60, XLOOP+61, PROCDUR+10, PROCDUR+15 , PROCDIAG+8, PROCDIAG+15 |
| NODES | XLOOP~, XLOOP+8, XLOOP+9 |
| >> ORD | PROCDUR+21*, PROCDUR+22*, PROCDUR+23, PROCDUR+24, PROCDIAG+19*, PROCDIAG+20*, PROCDIAG+21, PROCDIAG+22 |
| ORDER | XLOOP+2~, XLOOP+19*, XLOOP+20, XLOOP+24*, XLOOP+25, XLOOP+27 |
| PMODE | XLOOP+2~ |
| REC | XLOOP~, XLOOP+60*, XLOOP+61* |
| RECMIEN | XLOOP+2~, XLOOP+26*, XLOOP+27*, XLOOP+28, XLOOP+30 |
| SEGREC | XLOOP+4~, XLOOP+14*, XLOOP+56*, XLOOP+57*, XLOOP+60, XLOOP+61, PROCDUR+11*, PROCDUR+39*, PROCDIAG+9*, PROCDIAG+13* , PROCDIAG+28* |
| U | XLOOP+8, XLOOP+9, XLOOP+33, XLOOP+38, XLOOP+42, PROCDUR+23, PROCDUR+24, PROCDUR+27, PROCDIAG+21, PROCDIAG+22 , PROCDIAG+24 |