Routine: ABSPOSC2

ABSPOSC2 ; IHS/FCS/DRS - certification testing ;     [ 06/22/2001  2:14 PM ]

 ;;1.0;PHARMACY POINT OF SALE;**42**;JUN 21, 2001;Build 38

 ; see remarks in ABSPOSC1 too

 ; ^ABSP(9002313.31, has data for test claims

 ; Now construct packets

ALL ; Construct packets for all entries in 9002313.31

 D IMPOSS^ABSPOSUE("P","TI","Development utility - incomplete",,"ALL",$T(+0))

TEST(ENTRY)       ;

 W "Testing in ",$T(+0),!

 I '$P(^ABSP(9002313.31,ENTRY,0),U,4) D  Q

 . W "Field .04 in 9002313.31 needs to have pointer to insurer.",!

 N DIALOUT S DIALOUT=$$DIALOUT

 N X S X=$$PACKET(ENTRY,DIALOUT,2) ; ^TMP($J gets copy of ABSP() data

 W "Input: 9002313.31 entry `",ENTRY,!

 W "Output: 9002313.02 entry `",X,!

 W !,"To send this claim, DO SEND^ABSPOSC2(",ENTRY,")",!

 ;M X=^ABSPC(X)

 ;ZW X

 ;K X M X=^TMP($J,$T(+0)) ZW X

REVERSAL(ENTRY,N)    ; construct the reversal packet for this 9002313.31 entry

 D LOG^ABSPOSL("Reversal claim `"_REV_" "_$P(^ABSPC(REV,0),U))

 ; for the N'th prescription therein - N defaults to 1

 ; First construct the original version.

 D TEST(ENTRY)

 N ORIG S ORIG=$P(^ABSP(9002313.31,ENTRY,0),U,3)

 I 'ORIG D  Q

 . D IMPOSS^ABSPOSUE("DB,P","TRI","Error constructing original claim",,"REVERSAL - 1",$T(+0))

 N REVERSAL S REVERSAL=$$REVERSE^ABSPECA8(ORIG,$S($G(N):N,1:1))

 W "Reversal: 9002313.02 entry `",REVERSAL,!

 I 'REVERSAL D  Q  ; error during construction of reversal

 . D IMPOSS^ABSPOSUE("DB,P","TRI","Error constructing reversal claim",,"REVERSAL - 2",$T(+0))

 ; Now construct the data packet

 N COUNT,DIALOUT,CLAIMIEN S COUNT=0

 S DIALOUT=$$DIALOUT,CLAIMIEN=REVERSAL D PASCII1^ABSPOSQH

 ; ORIG is obsolete, orphaned

 ; Overwrite the pointer to 9002313.02 with the Reversal packet

 N DIE S DIE=9002313.31,DA=ENTRY,DR=".03////"_REVERSAL D ^DIE

 ; Now SEND^ABSPOSC2(ENTRY) will send the reversal

DIALOUT()          Q $O(^ABSP(9002313.55,"B","RESERVED - DO NOT USE",0))

SEND(ENTRY)        ;

 N IEN02 S IEN02=$P(^ABSP(9002313.31,ENTRY,0),U,3)

 D RUNTEST^ABSPOSC3($$DIALOUT,IEN02)

 W "The log file can be viewed by DO LOG^",$T(+0),!

LOG ;EP -

 W !,"At the prompt, just type RES to get the RESERVED - DO NOT USE",!

 D COMMSLOG^ABSPOSU6

PRINT(IEN31,FLAG) ;

 W "IEN31=",IEN31,!

 N CLAIM S CLAIM=$P(^ABSP(9002313.31,IEN31,0),U,3)

 I 'CLAIM W "No claim for IEN31=",IEN31,! Q

 I $G(FLAG)=0 G P12

 D PRINT02^ABSPOSAY(CLAIM)

P12 N RESP S RESP=$O(^ABSPR("B",CLAIM,""),-1)  ; get the most recent resp.

 I 'RESP W "No response for CLAIM=",CLAIM,! Q

 D PRINT03^ABSPOSAY(RESP)

PRINTR(IEN31) ;

 D PRINT(IEN31,0)

SAVEABSP K ^TMP($J,$T(+0))

 N % S %="ABSP"

 F  S %=$Q(@%) Q:%=""  S ^TMP($J,$T(+0),%)=@%

PACKET(ENTRY,DIALOUT,DUMPABSP)      ; EP - from ABSPOSC4

 N ABSP

 D SETABSP(ENTRY) ; construct the ABSP(*) array

 I $G(DUMPABSP)[1 D ZWRITE^ABSPOS("ABSP") ;ZW ABSP

 I $G(DUMPABSP)[2 D SAVEABSP

 N N S N=$P(^ABSP(9002313.31,ENTRY,2,0),U,3)

 D NEWCLAIM^ABSPOSCE(1,N,N) ; builds a 9002313.02 record

 N CLAIMIEN S CLAIMIEN=$P(^ABSPC(0),U,3)

 N COUNT S COUNT=0 ; this variable is used by PASCII1^ABSPOSQH

 D PASCII1^ABSPOSQH ; construct the data packet

 N DA,DIE,DR S DIE=9002313.31,DA=ENTRY,DR=".03////"_CLAIMIEN D ^DIE

 Q CLAIMIEN

SETABSP(ENTRY) ; Construct packet for just one entry in 9002313.31

 W "Create 9002313.02 claim for "

 W $P(^ABSP(9002313.31,ENTRY,0),U),!

 S ABSP("Insurer","IEN")=$P(^ABSP(9002313.31,ENTRY,0),U,4)

 S ABSP("Site","Switch Type")=$P(^ABSP(9002313.31,ENTRY,0),U,5)

 I ABSP("Site","Switch Type")=""  S ABSP("Site","Switch Type")="ENVOY"

 S ABSP("NCPDP","IEN")=$P(^ABSPEI(ABSP("Insurer","IEN"),100),U)

 ;IHS/OIT/CASSEVERN/RAN - 02/09/2011 - Patch 42 -New code for working without formats - START

 I $G(^ABSP(9002313.99,1,"ABSPICNV"))=1 D

 . N DO,VERSION

 . S DO=ABSP("NCPDP","IEN")_","

 . S VERSION=$$GET1^DIQ(9002313.4,DO,100.15) ;NEW PLACE TO STORE NCPDP VERSION

 . I $G(VERSION)="D.0" S ABSP("NCPDP","Version")="D0"

 . I $G(VERSION)="5.1" S ABSP("NCPDP","Version")="51"

 . S ABSP("NCPDP","BIN Number")=$$GET1^DIQ(9002313.4,DO,100.16)

 ELSE  D

 . ;IHS/OIT/CASSEVERN/RAN - 02/09/2011 - Patch 42 -New code for D.0 - END (Below 4 entries moved out one dot level)

 . S ABSP("NCPDP","BIN Number")=$P(^ABSPF(9002313.92,ABSP("NCPDP","IEN"),1),U)

 . S ABSP("NCPDP","Envoy Plan Number")=$P(^ABSPF(9002313.92,ABSP("NCPDP","IEN"),1),U,4)

 . S ABSP("NCPDP","Version")=$P(^ABSPF(9002313.92,ABSP("NCPDP","IEN"),1),U,2)

 . S ABSP("Envoy Terminal ID")=$P(^ABSP(9002313.56,1,0),U,6)

 N A,N S A=0 ; Loop through claim header fields

 F  S A=$O(^ABSP(9002313.31,ENTRY,1,A)) Q:'A  D

 . ; Set the Claim Header fields

 . N X S X=^ABSP(9002313.31,ENTRY,1,A,0)

 . N FIELD S FIELD=$P(^ABSPF(9002313.91,$P(X,U),0),U)

 . D SETABSP1(FIELD,$P(X,U,2))

 S N=0 ; Loop through prescription fields

 F  S N=$O(^ABSP(9002313.31,ENTRY,2,N)) Q:'N  D

 . N A S A=0

 . F  S A=$O(^ABSP(9002313.31,ENTRY,2,N,1,A)) Q:'A  D

 . . S X=^ABSP(9002313.31,ENTRY,2,N,1,A,0)

 . . N FIELD S FIELD=$P(^ABSPF(9002313.91,$P(X,U),0),U)

 . . D SETABSP1(FIELD,$P(X,U,2),N)

 . ; Construct a few other fields that weren't already set

 . I '$D(ABSP("Site","Dispensing Fee")) S ABSP("Site","Dispensing Fee")=4.5

 . ; Need this IEN59 for logging some stuff.

 . ; call it 9999991.00001, 9999992.00001, etc.

 . S ABSP("RX",N,"IEN59")=$$MYIEN59(N)

 . D INIT^ABSPOSL(ABSP("RX",N,"IEN59"))

 ; Construct a few other fields that weren't already set.

 S ABSP("Patient","Name")=$G(ABSP("Patient","Last Name"))_","_$G(ABSP("Patient","First Name"))

PRINTLOG(N) ; print the log file for test claim number N

 D PRINTLOG^ABSPOSL($$MYIEN59(N)) Q

MYIEN59(N) ; a fake number

 Q "999999"_N_".00001"

SETABSP1(FIELD,VALUE,N)         ; store values in Claim Header's ABSP(*)

 N OK S OK=0

 N I F I=1:1 Q:$T(TABLE+I)=" ;*"  D  Q:OK

 . N X S X=$T(TABLE+I)

 . I $P(X,";",2)'=FIELD Q

 . S @("ABSP("_$P(X,";",3)_")=VALUE")

 . S OK=1

 I 'OK W !,"Failed to find field ",FIELD," in TABLE^",$T(+0),!

TABLE ;

 ;101;"NCPDP","Envoy Plan Number"

 ;102;"NCPDP","Version"

 ;103;"Transaction Code"

 ;104;"Envoy Terminal ID"

 ;201;"Site","Pharmacy #"

 ;301;"Insurer","Group #"

 ;302;"Insurer","Policy #"

 ;303;"Insurer","Person Code"

 ;304;"Patient","DOB"

 ;305;"Patient","Sex"

 ;306;"Insurer","Relationship"

 ;308;"Patient","Other Coverage Code"

 ;307;"Customer Location"

 ;309;"Eligibility Clarification Code"

 ;310;"Patient","First Name"

 ;311;"Patient","Last Name"

 ;312;"Cardholder","First Name"

 ;313;"Cardholder","Last Name"

 ;322;"Patient","Street Address"

 ;323;"Patient","City"

 ;324;"Patient","State"

 ;325;"Patient","Zip"

 ;401;"RX","Date Filled"

 ;402;"RX",N,"RX Number"

 ;403;"RX",N,"Refill #"

 ;404;"RX",N,"Quantity"

 ;405;"RX",N,"Days Supply"

 ;406;"RX",N,"Compound Code"

 ;407;"RX",N,"NDC"

 ;408;"RX",N,"DAW"

 ;409;"RX",N,"Ingredient Cost"

 ;410;"RX",N,"Sales Tax"

 ;411;"RX",N,"Prescriber ID"

 ;412;"RX",N,"Dispensing Fee"

 ;414;"RX",N,"Date Written"

 ;415;"RX",N,"# Refills"

 ;416;"RX",N,"Preauth #"

 ;418;"RX",N,"Level of Service"

 ;419;"RX",N,"Origin Code"

 ;420;"RX",N,"Clarification"

 ;421;"RX",N,"Primary Prescriber"

 ;422;"RX",N,"Clinic ID"

 ;423;"RX",N,"Basis of Cost Determination"

 ;424;"RX",N,"Diagnosis Code"

 ;426;"RX",N,"Usual & Customary"

 ;429;"RX",N,"Unit Dose Indicator"

 ;430;"RX",N,"Gross Amount Due"

 ;431;"RX",N,"Other Payor Amount"

 ;433;"RX",N,"Patient Paid Amount"

 ;438;"RX",N,"Incentive Amount"

 ;439;"RX",N,"DUR Conflict Code"

 ;440;"RX",N,"DUR Intervention Code"

 ;441;"RX",N,"DUR Outcome Code"

 ;442;"RX",N,"Metric Decimal Quantity"

 ;443;"RX",N,"Primary Payor Denial Date"

;*

ABSPOSC2  ; IHS/FCS/DRS - certification testing ;     [ 06/22/2001  2:14 PM ]

 +1       ;;1.0;PHARMACY POINT OF SALE;**42**;JUN 21, 2001;Build 38

 +2       ; see remarks in ABSPOSC1 too

 +3        QUIT

 +4       ; ^ABSP(9002313.31, has data for test claims

 +5       ; Now construct packets

ALL       ; Construct packets for all entries in 9002313.31

 +1        DO IMPOSS^ABSPOSUE("P","TI","Development utility - incomplete",,"ALL",$TEXT(+0))

 +2        QUIT

 +3       ;

TEST(ENTRY) ;

 +1        WRITE "Testing in ",$TEXT(+0),!

 +2        IF '$PIECE(^ABSP(9002313.31,ENTRY,0),U,4)

               Begin DoDot:1

 +3                WRITE "Field .04 in 9002313.31 needs to have pointer to insurer.",!

               End DoDot:1

               QUIT

 +4        NEW DIALOUT

           SET DIALOUT=$$DIALOUT

 +5       ; ^TMP($J gets copy of ABSP() data

           NEW X

           SET X=$$PACKET(ENTRY,DIALOUT,2)

 +6        WRITE "Input: 9002313.31 entry `",ENTRY,!

 +7        WRITE "Output: 9002313.02 entry `",X,!

 +8        WRITE !,"To send this claim, DO SEND^ABSPOSC2(",ENTRY,")",!

 +9       ;M X=^ABSPC(X)

 +10      ;ZW X

 +11      ;K X M X=^TMP($J,$T(+0)) ZW X

 +12       QUIT

REVERSAL(ENTRY,N) ; construct the reversal packet for this 9002313.31 entry

 +1        DO LOG^ABSPOSL("Reversal claim `"_REV_" "_$PIECE(^ABSPC(REV,0),U))

 +2       ; for the N'th prescription therein - N defaults to 1

 +3       ; First construct the original version.

 +4        DO TEST(ENTRY)

 +5        NEW ORIG

           SET ORIG=$PIECE(^ABSP(9002313.31,ENTRY,0),U,3)

 +6        IF 'ORIG

               Begin DoDot:1

 +7                DO IMPOSS^ABSPOSUE("DB,P","TRI","Error constructing original claim",,"REVERSAL - 1",$TEXT(+0))

               End DoDot:1

               QUIT

 +8        NEW REVERSAL

           SET REVERSAL=$$REVERSE^ABSPECA8(ORIG,$SELECT($GET(N):N,1:1))

 +9        WRITE "Reversal: 9002313.02 entry `",REVERSAL,!

 +10      ; error during construction of reversal

           IF 'REVERSAL

               Begin DoDot:1

 +11               DO IMPOSS^ABSPOSUE("DB,P","TRI","Error constructing reversal claim",,"REVERSAL - 2",$TEXT(+0))

               End DoDot:1

               QUIT

 +12      ; Now construct the data packet

 +13       NEW COUNT,DIALOUT,CLAIMIEN

           SET COUNT=0

 +14       SET DIALOUT=$$DIALOUT

           SET CLAIMIEN=REVERSAL

           DO PASCII1^ABSPOSQH

 +15      ; ORIG is obsolete, orphaned

 +16      ; Overwrite the pointer to 9002313.02 with the Reversal packet

 +17       NEW DIE

           SET DIE=9002313.31

           SET DA=ENTRY

           SET DR=".03////"_REVERSAL

           DO ^DIE

 +18      ; Now SEND^ABSPOSC2(ENTRY) will send the reversal

 +19       QUIT

DIALOUT()  QUIT $ORDER(^ABSP(9002313.55,"B","RESERVED - DO NOT USE",0))

SEND(ENTRY) ;

 +1        NEW IEN02

           SET IEN02=$PIECE(^ABSP(9002313.31,ENTRY,0),U,3)

 +2        DO RUNTEST^ABSPOSC3($$DIALOUT,IEN02)

 +3        WRITE "The log file can be viewed by DO LOG^",$TEXT(+0),!

 +4        QUIT

LOG       ;EP -

 +1        WRITE !,"At the prompt, just type RES to get the RESERVED - DO NOT USE",!

 +2        DO COMMSLOG^ABSPOSU6

 +3        QUIT

PRINT(IEN31,FLAG) ;

 +1        WRITE "IEN31=",IEN31,!

 +2        NEW CLAIM

           SET CLAIM=$PIECE(^ABSP(9002313.31,IEN31,0),U,3)

 +3        IF 'CLAIM

               WRITE "No claim for IEN31=",IEN31,!

               QUIT

 +4        IF $GET(FLAG)=0

               GOTO P12

 +5        DO PRINT02^ABSPOSAY(CLAIM)

P12       ; get the most recent resp.

           NEW RESP

           SET RESP=$ORDER(^ABSPR("B",CLAIM,""),-1)

 +1        IF 'RESP

               WRITE "No response for CLAIM=",CLAIM,!

               QUIT

 +2        DO PRINT03^ABSPOSAY(RESP)

 +3        QUIT

PRINTR(IEN31) ;

 +1        DO PRINT(IEN31,0)

 +2        QUIT

SAVEABSP   KILL ^TMP($JOB,$TEXT(+0))

 +1        NEW %

           SET %="ABSP"

 +2        FOR

               SET %=$QUERY(@%)

               IF %=""

                   QUIT

               SET ^TMP($JOB,$TEXT(+0),%)=@%

 +3        QUIT

PACKET(ENTRY,DIALOUT,DUMPABSP) ; EP - from ABSPOSC4

 +1        NEW ABSP

 +2       ; construct the ABSP(*) array

           DO SETABSP(ENTRY)

 +3       ;ZW ABSP

           IF $GET(DUMPABSP)[1

               DO ZWRITE^ABSPOS("ABSP")

 +4        IF $GET(DUMPABSP)[2

               DO SAVEABSP

 +5        NEW N

           SET N=$PIECE(^ABSP(9002313.31,ENTRY,2,0),U,3)

 +6       ; builds a 9002313.02 record

           DO NEWCLAIM^ABSPOSCE(1,N,N)

 +7        NEW CLAIMIEN

           SET CLAIMIEN=$PIECE(^ABSPC(0),U,3)

 +8       ; this variable is used by PASCII1^ABSPOSQH

           NEW COUNT

           SET COUNT=0

 +9       ; construct the data packet

           DO PASCII1^ABSPOSQH

 +10       NEW DA,DIE,DR

           SET DIE=9002313.31

           SET DA=ENTRY

           SET DR=".03////"_CLAIMIEN

           DO ^DIE

 +11       QUIT CLAIMIEN

SETABSP(ENTRY) ; Construct packet for just one entry in 9002313.31

 +1        WRITE "Create 9002313.02 claim for "

 +2        WRITE $PIECE(^ABSP(9002313.31,ENTRY,0),U),!

 +3        SET ABSP("Insurer","IEN")=$PIECE(^ABSP(9002313.31,ENTRY,0),U,4)

 +4        SET ABSP("Site","Switch Type")=$PIECE(^ABSP(9002313.31,ENTRY,0),U,5)

 +5        IF ABSP("Site","Switch Type")=""

               SET ABSP("Site","Switch Type")="ENVOY"

 +6        SET ABSP("NCPDP","IEN")=$PIECE(^ABSPEI(ABSP("Insurer","IEN"),100),U)

 +7       ;IHS/OIT/CASSEVERN/RAN - 02/09/2011 - Patch 42 -New code for working without formats - START

 +8        IF $GET(^ABSP(9002313.99,1,"ABSPICNV"))=1

               Begin DoDot:1

 +9                NEW DO,VERSION

 +10               SET DO=ABSP("NCPDP","IEN")_","

 +11      ;NEW PLACE TO STORE NCPDP VERSION

                   SET VERSION=$$GET1^DIQ(9002313.4,DO,100.15)

 +12               IF $GET(VERSION)="D.0"

                       SET ABSP("NCPDP","Version")="D0"

 +13               IF $GET(VERSION)="5.1"

                       SET ABSP("NCPDP","Version")="51"

 +14               SET ABSP("NCPDP","BIN Number")=$$GET1^DIQ(9002313.4,DO,100.16)

               End DoDot:1

 +15      IF '$TEST

               Begin DoDot:1

 +16      ;IHS/OIT/CASSEVERN/RAN - 02/09/2011 - Patch 42 -New code for D.0 - END (Below 4 entries moved out one dot level)

 +17               SET ABSP("NCPDP","BIN Number")=$PIECE(^ABSPF(9002313.92,ABSP("NCPDP","IEN"),1),U)

 +18               SET ABSP("NCPDP","Envoy Plan Number")=$PIECE(^ABSPF(9002313.92,ABSP("NCPDP","IEN"),1),U,4)

 +19               SET ABSP("NCPDP","Version")=$PIECE(^ABSPF(9002313.92,ABSP("NCPDP","IEN"),1),U,2)

 +20               SET ABSP("Envoy Terminal ID")=$PIECE(^ABSP(9002313.56,1,0),U,6)

               End DoDot:1

 +21      ; Loop through claim header fields

           NEW A,N

           SET A=0

 +22       FOR

               SET A=$ORDER(^ABSP(9002313.31,ENTRY,1,A))

               IF 'A

                   QUIT

               Begin DoDot:1

 +23      ; Set the Claim Header fields

 +24               NEW X

                   SET X=^ABSP(9002313.31,ENTRY,1,A,0)

 +25               NEW FIELD

                   SET FIELD=$PIECE(^ABSPF(9002313.91,$PIECE(X,U),0),U)

 +26               DO SETABSP1(FIELD,$PIECE(X,U,2))

               End DoDot:1

 +27      ; Loop through prescription fields

           SET N=0

 +28       FOR

               SET N=$ORDER(^ABSP(9002313.31,ENTRY,2,N))

               IF 'N

                   QUIT

               Begin DoDot:1

 +29               NEW A

                   SET A=0

 +30               FOR

                       SET A=$ORDER(^ABSP(9002313.31,ENTRY,2,N,1,A))

                       IF 'A

                           QUIT

                       Begin DoDot:2

 +31                       SET X=^ABSP(9002313.31,ENTRY,2,N,1,A,0)

 +32                       NEW FIELD

                           SET FIELD=$PIECE(^ABSPF(9002313.91,$PIECE(X,U),0),U)

 +33                       DO SETABSP1(FIELD,$PIECE(X,U,2),N)

                       End DoDot:2

 +34      ; Construct a few other fields that weren't already set

 +35               IF '$DATA(ABSP("Site","Dispensing Fee"))

                       SET ABSP("Site","Dispensing Fee")=4.5

 +36      ; Need this IEN59 for logging some stuff.

 +37      ; call it 9999991.00001, 9999992.00001, etc.

 +38               SET ABSP("RX",N,"IEN59")=$$MYIEN59(N)

 +39               DO INIT^ABSPOSL(ABSP("RX",N,"IEN59"))

               End DoDot:1

 +40      ; Construct a few other fields that weren't already set.

 +41       SET ABSP("Patient","Name")=$GET(ABSP("Patient","Last Name"))_","_$GET(ABSP("Patient","First Name"))

 +42       QUIT

PRINTLOG(N) ; print the log file for test claim number N

 +1        DO PRINTLOG^ABSPOSL($$MYIEN59(N))

           QUIT

MYIEN59(N) ; a fake number

 +1        QUIT "999999"_N_".00001"

SETABSP1(FIELD,VALUE,N) ; store values in Claim Header's ABSP(*)

 +1        NEW OK

           SET OK=0

 +2        NEW I

           FOR I=1:1

               IF $TEXT(TABLE+I)=" ;*"

                   QUIT

               Begin DoDot:1

 +3                NEW X

                   SET X=$TEXT(TABLE+I)

 +4                IF $PIECE(X,";",2)'=FIELD

                       QUIT

 +5                SET @("ABSP("_$PIECE(X,";",3)_")=VALUE")

 +6                SET OK=1

               End DoDot:1

               IF OK

                   QUIT

 +7        IF 'OK

               WRITE !,"Failed to find field ",FIELD," in TABLE^",$TEXT(+0),!

 +8        QUIT

TABLE     ;

 +1       ;101;"NCPDP","Envoy Plan Number"

 +2       ;102;"NCPDP","Version"

 +3       ;103;"Transaction Code"

 +4       ;104;"Envoy Terminal ID"

 +5       ;201;"Site","Pharmacy #"

 +6       ;301;"Insurer","Group #"

 +7       ;302;"Insurer","Policy #"

 +8       ;303;"Insurer","Person Code"

 +9       ;304;"Patient","DOB"

 +10      ;305;"Patient","Sex"

 +11      ;306;"Insurer","Relationship"

 +12      ;308;"Patient","Other Coverage Code"

 +13      ;307;"Customer Location"

 +14      ;309;"Eligibility Clarification Code"

 +15      ;310;"Patient","First Name"

 +16      ;311;"Patient","Last Name"

 +17      ;312;"Cardholder","First Name"

 +18      ;313;"Cardholder","Last Name"

 +19      ;322;"Patient","Street Address"

 +20      ;323;"Patient","City"

 +21      ;324;"Patient","State"

 +22      ;325;"Patient","Zip"

 +23      ;401;"RX","Date Filled"

 +24      ;402;"RX",N,"RX Number"

 +25      ;403;"RX",N,"Refill #"

 +26      ;404;"RX",N,"Quantity"

 +27      ;405;"RX",N,"Days Supply"

 +28      ;406;"RX",N,"Compound Code"

 +29      ;407;"RX",N,"NDC"

 +30      ;408;"RX",N,"DAW"

 +31      ;409;"RX",N,"Ingredient Cost"

 +32      ;410;"RX",N,"Sales Tax"

 +33      ;411;"RX",N,"Prescriber ID"

 +34      ;412;"RX",N,"Dispensing Fee"

 +35      ;414;"RX",N,"Date Written"

 +36      ;415;"RX",N,"# Refills"

 +37      ;416;"RX",N,"Preauth #"

 +38      ;418;"RX",N,"Level of Service"

 +39      ;419;"RX",N,"Origin Code"

 +40      ;420;"RX",N,"Clarification"

 +41      ;421;"RX",N,"Primary Prescriber"

 +42      ;422;"RX",N,"Clinic ID"

 +43      ;423;"RX",N,"Basis of Cost Determination"

 +44      ;424;"RX",N,"Diagnosis Code"

 +45      ;426;"RX",N,"Usual & Customary"

 +46      ;429;"RX",N,"Unit Dose Indicator"

 +47      ;430;"RX",N,"Gross Amount Due"

 +48      ;431;"RX",N,"Other Payor Amount"

 +49      ;433;"RX",N,"Patient Paid Amount"

 +50      ;438;"RX",N,"Incentive Amount"

 +51      ;439;"RX",N,"DUR Conflict Code"

 +52      ;440;"RX",N,"DUR Intervention Code"

 +53      ;441;"RX",N,"DUR Outcome Code"

 +54      ;442;"RX",N,"Metric Decimal Quantity"

 +55      ;443;"RX",N,"Primary Payor Denial Date"

 +56      ;*

ABSPOSC2.m