BPSNCPD3 ;BHAM ISC/LJE - Continuation of BPSNCPDP - DUR HANDLING ;06/16/2004
;;1.0;E CLAIMS MGMT ENGINE;**1,5,6,7,8,10,11,15,19,20,22,29,40**;JUN 2004;Build 25
;;Per VA Directive 6402, this routine should not be modified.
;
; DUR1 is called by PSO to get the reject information
;
; Function call for DUR INFORMATION
; Parameters: BRXIEN = Prescription IEN
; BFILL = fill number
; DUR = DUR info passed back
; ERROR = error passed back
; BPRXCOB = payer sequence
; Note:
; DUR("BILLED")=0 if ecme off for pharmacy or no transaction in ECME
; DUR(<Insurance counter>,"BILLED")=1 if billed through ecme
DUR1(BRXIEN,BFILL,DUR,ERROR,BPRXCOB) ;
N SITE,IEN59,DUR1,DURIEN
I '$G(BRXIEN) S DUR("BILLED")=0 Q
I $G(BFILL)="" S DUR("BILLED")=0 Q
S BPRXCOB=+$G(BPRXCOB)
I BPRXCOB=0 S BPRXCOB=1 ;default is Primary
;
; Get Site info and check is ECME is turned on
; If not, set DUR("BILLED")=0 and quit
I '$G(BFILL) S SITE=$$RXAPI1^BPSUTIL1(BRXIEN,20,"I")
I $G(BFILL) S SITE=$$RXSUBF1^BPSUTIL1(BRXIEN,52,52.1,BFILL,8,"I")
I '$$ECMEON^BPSUTIL(SITE) S DUR("BILLED")=0 Q
;
; Set up the Transaction IEN
S IEN59=$$IEN59^BPSOSRX(BRXIEN,BFILL,BPRXCOB)
I IEN59="" S DUR("BILLED")=0 Q
;
; If the transaction record does not exist, set DUR("BILLED")=0 and quit
I '$D(^BPST(IEN59)) S DUR("BILLED")=0 Q
I $$GET1^DIQ(9002313.59,IEN59,301)="NOT INSURED" S DUR("BILLED")=0 Q
;
S DUR(BPRXCOB,"BILLED")=1
;
S DUR(BPRXCOB,"ELIGBLT")=$P($G(^BPST(IEN59,9)),U,4)
; Get Insurance Info and set into DUR array
S DUR(BPRXCOB,"INSURANCE POINTER")=$$GET1^DIQ(9002313.59902,"1,"_IEN59_",",902.33,"I") ; Insurance Company IEN
D GETS^DIQ(9002313.59902,"1,"_IEN59_",","902.05;902.06;902.24;902.25;902.26","E","DUR1","ERROR")
S DUR(BPRXCOB,"INSURANCE NAME")=$G(DUR1(9002313.59902,"1,"_IEN59_",",902.24,"E")) ; Insurance Company Name
S DUR(BPRXCOB,"GROUP NUMBER")=$G(DUR1(9002313.59902,"1,"_IEN59_",",902.05,"E")) ; Insurance Group Number
S DUR(BPRXCOB,"GROUP NAME")=$G(DUR1(9002313.59902,"1,"_IEN59_",",902.25,"E")) ; Insurance Group Name
S DUR(BPRXCOB,"PLAN CONTACT")=$G(DUR1(9002313.59902,"1,"_IEN59_",",902.26,"E")) ; Insurance Contact Number
S DUR(BPRXCOB,"CARDHOLDER ID")=$G(DUR1(9002313.59902,"1,"_IEN59_",",902.06,"E")) ; Cardholder ID
;
; Get Response IEN and Data
S DURIEN="",DURIEN=$P(^BPST(IEN59,0),"^",5)
D DURRESP(DURIEN,.DUR,BPRXCOB) ; Note: In the future, we may need to get/store DURIEN for each COB
Q
;
DURRESP(DURIEN,DUR,BPRXCOB) ;
;Input Variables:
; DURIEN - Claim Response IEN. Pointer to the BPS RESPONSES File #9002313.03
; BPRXCOB - (Optional) The Payer Sequence:
; 1 - Primary (default)
; 2 - Secondary
;
;Output Variables:
; DUR - Array of DUR related information for a specific claim response in the
; BPS RESPONSES file in the following format (INSN is the Payer Sequence):
;
; DUR(INSN,"RESPONSE IEN") - Pointer to the RESPONSE file (#9002313.03) for
; the claim submission
; DUR(INSN,"PCN") - Processor Control Number
; DUR(INSN,"MESSAGE") - The Transmission level specific data, Message field 504
; DUR(INSN,"PAYER MESSAGE") - Message returned from the payer in the Transaction
; level
; DUR(INSN,"STATUS") - Status of the claim (i.e. REJECTED CLAIM, PAYABLE)
;
; The following four fields are redundant with the fields in the DUR PPS
; array but are provided for backwards compatibility.
; DUR(INSN,"REASON") - Reason for Service Code pointer to BPS NCPDP REASON FOR
; SERVICE CODE file (#9002313.23)
; DUR(INSN,"PREV FILL DATE") - Plan's Previous Fill Date
; DUR(INSN,"DUR FREE TEXT DESC") - Drug Utilization Review (DUR) description
; and/or claims rejection free text information from the payer
; DUR(INSN,"DUR ADD MSG TEXT") - Drug Utilization Review (DUR) additional free
; text information from the payer
;
; The following fields are from the DUR PPS RESPONSE multiple.
; DUR(INSN,"DUR PPS",SEQ,"DUR PPS RESPONSE") - Total number of DUR PPS
; responses from the payer
; DUR(INSN,"DUR PPS",SEQ,"REASON FOR SERVICE CODE") - Code identifying the
; type of utilization conflict detected or the reason for the pharmacist
; professional service
; DUR(INSN,"DUR PPS",SEQ,"CLINICAL SIGNIFICANCE CODE") - Code identifying
; the significance or severity level of a clinical event as contained
; in the originating data base
; DUR(INSN,"DUR PPS",SEQ,"OTHER PHARMACY INDICATOR") - Code for the type of
; pharmacy dispensing the conflicting drug
; DUR(INSN,"DUR PPS",SEQ,"PREVIOUS DATE OF FILL") - Date prescription was
; previously filled
; DUR(INSN,"DUR PPS",SEQ,"QUANTITY OF PREVIOUS FILL") - Amount expressed in
; metric decimal units of the conflicting agent that was previously filled
; DUR(INSN,"DUR PPS",SEQ,"DATABASE INDICATOR") - Code identifying the source
; of drug information used for DUR processing
; DUR(INSN,"DUR PPS",SEQ,"OTHER PRESCRIBER INDICATOR") - Code comparing the
; prescriber of the current prescription to the prescriber of the previously
; filled conflicting prescription
; DUR(INSN,"DUR PPS",SEQ,"DUR FREE TEXT MESSAGE") - Text that provides
; additional detail regarding a DUR conflict
; DUR(INSN,"DUR PPS",SEQ,"DUR ADDITIONAL TEXT") - Descriptive information that
; further defines the referenced DUR alert
; DUR(INSN,"REJ CODE LST") - List of rejection code(s) returned by the payer
; separated by commas (i.e. 79,14)
; DUR(INSN,"REJ CODES",SEQ,REJ CODE) - Array of rejection code descriptions
; where REJ CODE correlates to DUR(INSN,"REJ CODE LST") value(s) and SEQ
; equals a sequential number
;
I '$G(DURIEN) Q
S BPRXCOB=+$G(BPRXCOB)
I BPRXCOB=0 S BPRXCOB=1 ;default is Primary
N ADDMESS,I,DUR1,CLMIEN
S DUR(BPRXCOB,"RESPONSE IEN")=DURIEN
;
;Get BIN from claim
S CLMIEN=$$GET1^DIQ(9002313.03,DURIEN,.01,"I")
S DUR(BPRXCOB,"BIN")=$$GET1^DIQ(9002313.02,CLMIEN_",",101) ; BIN Number
;
;Get PCN from claim
S DUR(BPRXCOB,"PCN")=$$GET1^DIQ(9002313.02,CLMIEN_",",104) ; PCN Number
;
; Get the Transmission specific data (Message)
S DUR(BPRXCOB,"MESSAGE")=$$GET1^DIQ(9002313.03,DURIEN_",",504,"E")
;
; Get the Additional Message Information from the transaction
D ADDMESS^BPSSCRLG(DURIEN,1,.ADDMESS)
M DUR(BPRXCOB,"PAYER MESSAGE")=ADDMESS
;
; Get the other transaction level data
D GETS^DIQ(9002313.0301,"1,"_DURIEN_",","501;567.01*","E","DUR1","ERROR")
S DUR(BPRXCOB,"STATUS")=$G(DUR1(9002313.0301,"1,"_DURIEN_",",501,"E")) ;Status of Response
;
; The following four fields are redundant with the fields in the DUR PPS
; multiple but are needed for backwards compatibility with the OP code
S DUR(BPRXCOB,"REASON")=$G(DUR1(9002313.1101,"1,1,"_DURIEN_",",439,"E")) ;Reason for Service Code
S DUR(BPRXCOB,"PREV FILL DATE")=$G(DUR1(9002313.1101,"1,1,"_DURIEN_",",530,"E")) ;Previous Date of Fill
S DUR(BPRXCOB,"DUR FREE TEXT DESC")=$G(DUR1(9002313.1101,"1,1,"_DURIEN_",",544,"E")) ;DUR Free Text Message from Payer
S DUR(BPRXCOB,"DUR ADD MSG TEXT")=$G(DUR1(9002313.1101,"1,1,"_DURIEN_",",570,"E")) ;DUR Additional Message Text from Payer
;
; Get DUR PPS RESPONSE multiple values
S DUR(BPRXCOB,"DUR PPS RESPONSE")=""
F I=1:1 Q:'$D(DUR1(9002313.1101,I_",1,"_DURIEN_",",.01)) D
. S DUR(BPRXCOB,"DUR PPS RESPONSE")=I
. S DUR(BPRXCOB,"DUR PPS",I,"DUR PPS RESPONSE")=$G(DUR1(9002313.1101,I_",1,"_DURIEN_",",.01,"E"))
. S DUR(BPRXCOB,"DUR PPS",I,"REASON FOR SERVICE CODE")=$G(DUR1(9002313.1101,I_",1,"_DURIEN_",",439,"E"))
. S DUR(BPRXCOB,"DUR PPS",I,"CLINICAL SIGNIFICANCE CODE")=$G(DUR1(9002313.1101,I_",1,"_DURIEN_",",528,"E"))
. S DUR(BPRXCOB,"DUR PPS",I,"OTHER PHARMACY INDICATOR")=$G(DUR1(9002313.1101,I_",1,"_DURIEN_",",529,"E"))
. S DUR(BPRXCOB,"DUR PPS",I,"PREVIOUS DATE OF FILL")=$G(DUR1(9002313.1101,I_",1,"_DURIEN_",",530,"E"))
. S DUR(BPRXCOB,"DUR PPS",I,"QUANTITY OF PREVIOUS FILL")=$G(DUR1(9002313.1101,I_",1,"_DURIEN_",",531,"E"))
. S DUR(BPRXCOB,"DUR PPS",I,"DATABASE INDICATOR")=$G(DUR1(9002313.1101,I_",1,"_DURIEN_",",532,"E"))
. S DUR(BPRXCOB,"DUR PPS",I,"OTHER PRESCRIBER INDICATOR")=$G(DUR1(9002313.1101,I_",1,"_DURIEN_",",533,"E"))
. S DUR(BPRXCOB,"DUR PPS",I,"DUR FREE TEXT MESSAGE")=$G(DUR1(9002313.1101,I_",1,"_DURIEN_",",544,"E"))
. S DUR(BPRXCOB,"DUR PPS",I,"DUR ADDITIONAL TEXT")=$G(DUR1(9002313.1101,I_",1,"_DURIEN_",",570,"E"))
;
; Get DUR reject codes and description and store in DUR
D GETS^DIQ(9002313.0301,"1,"_DURIEN_",","511*","I","DUR1","ERROR") ;get DUR codes and descriptions
S DUR(BPRXCOB,"REJ CODE LST")=""
F I=1:1 Q:'$D(DUR1(9002313.03511,I_",1,"_DURIEN_",")) D
. N REJX,REJN
. S REJX=$G(DUR1(9002313.03511,I_",1,"_DURIEN_",",.01,"I")) Q:REJX="" ; external reject code
. S REJN=+$O(^BPSF(9002313.93,"B",REJX,0)) Q:'REJN ; internal reject code ien
. S DUR(BPRXCOB,"REJ CODES",I,REJX)=$P($G(^BPSF(9002313.93,REJN,0)),U,2) ; reject code description
. S DUR(BPRXCOB,"REJ CODE LST")=DUR(BPRXCOB,"REJ CODE LST")_","_REJX
S DUR(BPRXCOB,"REJ CODE LST")=$E(DUR(BPRXCOB,"REJ CODE LST"),2,9999)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HBPSNCPD3 9258 printed Sep 23, 2025@19:27:27 Page 2
BPSNCPD3 ;BHAM ISC/LJE - Continuation of BPSNCPDP - DUR HANDLING ;06/16/2004
+1 ;;1.0;E CLAIMS MGMT ENGINE;**1,5,6,7,8,10,11,15,19,20,22,29,40**;JUN 2004;Build 25
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ; DUR1 is called by PSO to get the reject information
+5 ;
+6 ; Function call for DUR INFORMATION
+7 ; Parameters: BRXIEN = Prescription IEN
+8 ; BFILL = fill number
+9 ; DUR = DUR info passed back
+10 ; ERROR = error passed back
+11 ; BPRXCOB = payer sequence
+12 ; Note:
+13 ; DUR("BILLED")=0 if ecme off for pharmacy or no transaction in ECME
+14 ; DUR(<Insurance counter>,"BILLED")=1 if billed through ecme
DUR1(BRXIEN,BFILL,DUR,ERROR,BPRXCOB) ;
+1 NEW SITE,IEN59,DUR1,DURIEN
+2 IF '$GET(BRXIEN)
SET DUR("BILLED")=0
QUIT
+3 IF $GET(BFILL)=""
SET DUR("BILLED")=0
QUIT
+4 SET BPRXCOB=+$GET(BPRXCOB)
+5 ;default is Primary
IF BPRXCOB=0
SET BPRXCOB=1
+6 ;
+7 ; Get Site info and check is ECME is turned on
+8 ; If not, set DUR("BILLED")=0 and quit
+9 IF '$GET(BFILL)
SET SITE=$$RXAPI1^BPSUTIL1(BRXIEN,20,"I")
+10 IF $GET(BFILL)
SET SITE=$$RXSUBF1^BPSUTIL1(BRXIEN,52,52.1,BFILL,8,"I")
+11 IF '$$ECMEON^BPSUTIL(SITE)
SET DUR("BILLED")=0
QUIT
+12 ;
+13 ; Set up the Transaction IEN
+14 SET IEN59=$$IEN59^BPSOSRX(BRXIEN,BFILL,BPRXCOB)
+15 IF IEN59=""
SET DUR("BILLED")=0
QUIT
+16 ;
+17 ; If the transaction record does not exist, set DUR("BILLED")=0 and quit
+18 IF '$DATA(^BPST(IEN59))
SET DUR("BILLED")=0
QUIT
+19 IF $$GET1^DIQ(9002313.59,IEN59,301)="NOT INSURED"
SET DUR("BILLED")=0
QUIT
+20 ;
+21 SET DUR(BPRXCOB,"BILLED")=1
+22 ;
+23 SET DUR(BPRXCOB,"ELIGBLT")=$PIECE($GET(^BPST(IEN59,9)),U,4)
+24 ; Get Insurance Info and set into DUR array
+25 ; Insurance Company IEN
SET DUR(BPRXCOB,"INSURANCE POINTER")=$$GET1^DIQ(9002313.59902,"1,"_IEN59_",",902.33,"I")
+26 DO GETS^DIQ(9002313.59902,"1,"_IEN59_",","902.05;902.06;902.24;902.25;902.26","E","DUR1","ERROR")
+27 ; Insurance Company Name
SET DUR(BPRXCOB,"INSURANCE NAME")=$GET(DUR1(9002313.59902,"1,"_IEN59_",",902.24,"E"))
+28 ; Insurance Group Number
SET DUR(BPRXCOB,"GROUP NUMBER")=$GET(DUR1(9002313.59902,"1,"_IEN59_",",902.05,"E"))
+29 ; Insurance Group Name
SET DUR(BPRXCOB,"GROUP NAME")=$GET(DUR1(9002313.59902,"1,"_IEN59_",",902.25,"E"))
+30 ; Insurance Contact Number
SET DUR(BPRXCOB,"PLAN CONTACT")=$GET(DUR1(9002313.59902,"1,"_IEN59_",",902.26,"E"))
+31 ; Cardholder ID
SET DUR(BPRXCOB,"CARDHOLDER ID")=$GET(DUR1(9002313.59902,"1,"_IEN59_",",902.06,"E"))
+32 ;
+33 ; Get Response IEN and Data
+34 SET DURIEN=""
SET DURIEN=$PIECE(^BPST(IEN59,0),"^",5)
+35 ; Note: In the future, we may need to get/store DURIEN for each COB
DO DURRESP(DURIEN,.DUR,BPRXCOB)
+36 QUIT
+37 ;
DURRESP(DURIEN,DUR,BPRXCOB) ;
+1 ;Input Variables:
+2 ; DURIEN - Claim Response IEN. Pointer to the BPS RESPONSES File #9002313.03
+3 ; BPRXCOB - (Optional) The Payer Sequence:
+4 ; 1 - Primary (default)
+5 ; 2 - Secondary
+6 ;
+7 ;Output Variables:
+8 ; DUR - Array of DUR related information for a specific claim response in the
+9 ; BPS RESPONSES file in the following format (INSN is the Payer Sequence):
+10 ;
+11 ; DUR(INSN,"RESPONSE IEN") - Pointer to the RESPONSE file (#9002313.03) for
+12 ; the claim submission
+13 ; DUR(INSN,"PCN") - Processor Control Number
+14 ; DUR(INSN,"MESSAGE") - The Transmission level specific data, Message field 504
+15 ; DUR(INSN,"PAYER MESSAGE") - Message returned from the payer in the Transaction
+16 ; level
+17 ; DUR(INSN,"STATUS") - Status of the claim (i.e. REJECTED CLAIM, PAYABLE)
+18 ;
+19 ; The following four fields are redundant with the fields in the DUR PPS
+20 ; array but are provided for backwards compatibility.
+21 ; DUR(INSN,"REASON") - Reason for Service Code pointer to BPS NCPDP REASON FOR
+22 ; SERVICE CODE file (#9002313.23)
+23 ; DUR(INSN,"PREV FILL DATE") - Plan's Previous Fill Date
+24 ; DUR(INSN,"DUR FREE TEXT DESC") - Drug Utilization Review (DUR) description
+25 ; and/or claims rejection free text information from the payer
+26 ; DUR(INSN,"DUR ADD MSG TEXT") - Drug Utilization Review (DUR) additional free
+27 ; text information from the payer
+28 ;
+29 ; The following fields are from the DUR PPS RESPONSE multiple.
+30 ; DUR(INSN,"DUR PPS",SEQ,"DUR PPS RESPONSE") - Total number of DUR PPS
+31 ; responses from the payer
+32 ; DUR(INSN,"DUR PPS",SEQ,"REASON FOR SERVICE CODE") - Code identifying the
+33 ; type of utilization conflict detected or the reason for the pharmacist
+34 ; professional service
+35 ; DUR(INSN,"DUR PPS",SEQ,"CLINICAL SIGNIFICANCE CODE") - Code identifying
+36 ; the significance or severity level of a clinical event as contained
+37 ; in the originating data base
+38 ; DUR(INSN,"DUR PPS",SEQ,"OTHER PHARMACY INDICATOR") - Code for the type of
+39 ; pharmacy dispensing the conflicting drug
+40 ; DUR(INSN,"DUR PPS",SEQ,"PREVIOUS DATE OF FILL") - Date prescription was
+41 ; previously filled
+42 ; DUR(INSN,"DUR PPS",SEQ,"QUANTITY OF PREVIOUS FILL") - Amount expressed in
+43 ; metric decimal units of the conflicting agent that was previously filled
+44 ; DUR(INSN,"DUR PPS",SEQ,"DATABASE INDICATOR") - Code identifying the source
+45 ; of drug information used for DUR processing
+46 ; DUR(INSN,"DUR PPS",SEQ,"OTHER PRESCRIBER INDICATOR") - Code comparing the
+47 ; prescriber of the current prescription to the prescriber of the previously
+48 ; filled conflicting prescription
+49 ; DUR(INSN,"DUR PPS",SEQ,"DUR FREE TEXT MESSAGE") - Text that provides
+50 ; additional detail regarding a DUR conflict
+51 ; DUR(INSN,"DUR PPS",SEQ,"DUR ADDITIONAL TEXT") - Descriptive information that
+52 ; further defines the referenced DUR alert
+53 ; DUR(INSN,"REJ CODE LST") - List of rejection code(s) returned by the payer
+54 ; separated by commas (i.e. 79,14)
+55 ; DUR(INSN,"REJ CODES",SEQ,REJ CODE) - Array of rejection code descriptions
+56 ; where REJ CODE correlates to DUR(INSN,"REJ CODE LST") value(s) and SEQ
+57 ; equals a sequential number
+58 ;
+59 IF '$GET(DURIEN)
QUIT
+60 SET BPRXCOB=+$GET(BPRXCOB)
+61 ;default is Primary
IF BPRXCOB=0
SET BPRXCOB=1
+62 NEW ADDMESS,I,DUR1,CLMIEN
+63 SET DUR(BPRXCOB,"RESPONSE IEN")=DURIEN
+64 ;
+65 ;Get BIN from claim
+66 SET CLMIEN=$$GET1^DIQ(9002313.03,DURIEN,.01,"I")
+67 ; BIN Number
SET DUR(BPRXCOB,"BIN")=$$GET1^DIQ(9002313.02,CLMIEN_",",101)
+68 ;
+69 ;Get PCN from claim
+70 ; PCN Number
SET DUR(BPRXCOB,"PCN")=$$GET1^DIQ(9002313.02,CLMIEN_",",104)
+71 ;
+72 ; Get the Transmission specific data (Message)
+73 SET DUR(BPRXCOB,"MESSAGE")=$$GET1^DIQ(9002313.03,DURIEN_",",504,"E")
+74 ;
+75 ; Get the Additional Message Information from the transaction
+76 DO ADDMESS^BPSSCRLG(DURIEN,1,.ADDMESS)
+77 MERGE DUR(BPRXCOB,"PAYER MESSAGE")=ADDMESS
+78 ;
+79 ; Get the other transaction level data
+80 DO GETS^DIQ(9002313.0301,"1,"_DURIEN_",","501;567.01*","E","DUR1","ERROR")
+81 ;Status of Response
SET DUR(BPRXCOB,"STATUS")=$GET(DUR1(9002313.0301,"1,"_DURIEN_",",501,"E"))
+82 ;
+83 ; The following four fields are redundant with the fields in the DUR PPS
+84 ; multiple but are needed for backwards compatibility with the OP code
+85 ;Reason for Service Code
SET DUR(BPRXCOB,"REASON")=$GET(DUR1(9002313.1101,"1,1,"_DURIEN_",",439,"E"))
+86 ;Previous Date of Fill
SET DUR(BPRXCOB,"PREV FILL DATE")=$GET(DUR1(9002313.1101,"1,1,"_DURIEN_",",530,"E"))
+87 ;DUR Free Text Message from Payer
SET DUR(BPRXCOB,"DUR FREE TEXT DESC")=$GET(DUR1(9002313.1101,"1,1,"_DURIEN_",",544,"E"))
+88 ;DUR Additional Message Text from Payer
SET DUR(BPRXCOB,"DUR ADD MSG TEXT")=$GET(DUR1(9002313.1101,"1,1,"_DURIEN_",",570,"E"))
+89 ;
+90 ; Get DUR PPS RESPONSE multiple values
+91 SET DUR(BPRXCOB,"DUR PPS RESPONSE")=""
+92 FOR I=1:1
if '$DATA(DUR1(9002313.1101,I_",1,"_DURIEN_",",.01))
QUIT
Begin DoDot:1
+93 SET DUR(BPRXCOB,"DUR PPS RESPONSE")=I
+94 SET DUR(BPRXCOB,"DUR PPS",I,"DUR PPS RESPONSE")=$GET(DUR1(9002313.1101,I_",1,"_DURIEN_",",.01,"E"))
+95 SET DUR(BPRXCOB,"DUR PPS",I,"REASON FOR SERVICE CODE")=$GET(DUR1(9002313.1101,I_",1,"_DURIEN_",",439,"E"))
+96 SET DUR(BPRXCOB,"DUR PPS",I,"CLINICAL SIGNIFICANCE CODE")=$GET(DUR1(9002313.1101,I_",1,"_DURIEN_",",528,"E"))
+97 SET DUR(BPRXCOB,"DUR PPS",I,"OTHER PHARMACY INDICATOR")=$GET(DUR1(9002313.1101,I_",1,"_DURIEN_",",529,"E"))
+98 SET DUR(BPRXCOB,"DUR PPS",I,"PREVIOUS DATE OF FILL")=$GET(DUR1(9002313.1101,I_",1,"_DURIEN_",",530,"E"))
+99 SET DUR(BPRXCOB,"DUR PPS",I,"QUANTITY OF PREVIOUS FILL")=$GET(DUR1(9002313.1101,I_",1,"_DURIEN_",",531,"E"))
+100 SET DUR(BPRXCOB,"DUR PPS",I,"DATABASE INDICATOR")=$GET(DUR1(9002313.1101,I_",1,"_DURIEN_",",532,"E"))
+101 SET DUR(BPRXCOB,"DUR PPS",I,"OTHER PRESCRIBER INDICATOR")=$GET(DUR1(9002313.1101,I_",1,"_DURIEN_",",533,"E"))
+102 SET DUR(BPRXCOB,"DUR PPS",I,"DUR FREE TEXT MESSAGE")=$GET(DUR1(9002313.1101,I_",1,"_DURIEN_",",544,"E"))
+103 SET DUR(BPRXCOB,"DUR PPS",I,"DUR ADDITIONAL TEXT")=$GET(DUR1(9002313.1101,I_",1,"_DURIEN_",",570,"E"))
End DoDot:1
+104 ;
+105 ; Get DUR reject codes and description and store in DUR
+106 ;get DUR codes and descriptions
DO GETS^DIQ(9002313.0301,"1,"_DURIEN_",","511*","I","DUR1","ERROR")
+107 SET DUR(BPRXCOB,"REJ CODE LST")=""
+108 FOR I=1:1
if '$DATA(DUR1(9002313.03511,I_",1,"_DURIEN_","))
QUIT
Begin DoDot:1
+109 NEW REJX,REJN
+110 ; external reject code
SET REJX=$GET(DUR1(9002313.03511,I_",1,"_DURIEN_",",.01,"I"))
if REJX=""
QUIT
+111 ; internal reject code ien
SET REJN=+$ORDER(^BPSF(9002313.93,"B",REJX,0))
if 'REJN
QUIT
+112 ; reject code description
SET DUR(BPRXCOB,"REJ CODES",I,REJX)=$PIECE($GET(^BPSF(9002313.93,REJN,0)),U,2)
+113 SET DUR(BPRXCOB,"REJ CODE LST")=DUR(BPRXCOB,"REJ CODE LST")_","_REJX
End DoDot:1
+114 SET DUR(BPRXCOB,"REJ CODE LST")=$EXTRACT(DUR(BPRXCOB,"REJ CODE LST"),2,9999)
+115 QUIT
