Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BPSSCRLG

BPSSCRLG.m

Go to the documentation of this file.
  1. BPSSCRLG ;BHAM ISC/SS - ECME LOGINFO ;05-APR-05
  1. ;;1.0;E CLAIMS MGMT ENGINE;**1,5,7,8,10,11,15,18,20,22,24,28**;JUN 2004;Build 22
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. ;
  1. Q
  1. ;
  1. EN ; -- main entry point for BPS LSTMN LOG
  1. D EN^VALM("BPS LSTMN LOG")
  1. Q
  1. ;
  1. HDR ; -- header code
  1. S VALMHDR(1)="Claim Log information"
  1. S VALMHDR(2)=""
  1. Q
  1. ;
  1. INIT ; -- init variables and list array
  1. N BPSELCLM,LINE
  1. S BPSELCLM=$G(@VALMAR@("SELLN"))
  1. ; piece 2: patient ien #2
  1. ; piece 3: insurance ien #36
  1. ; piece 4: ptr to #9002313.59
  1. S LINE=1
  1. S VALMCNT=$$PREPINFO(.LINE,$P(BPSELCLM,U,2),$P(BPSELCLM,U,3),$P(BPSELCLM,U,4))
  1. S:VALMCNT>1 VALMCNT=VALMCNT-1
  1. Q
  1. ;
  1. HELP ; -- help code
  1. S X="?" D DISP^XQORM1 W !!
  1. K X
  1. Q
  1. ;
  1. EXIT ; -- exit code
  1. Q
  1. ;
  1. EXPND ; -- expand code
  1. Q
  1. ;
  1. ;
  1. LOG ;entry point for LOG menu option
  1. N BPRET,BPSEL,BP59,BPVLM
  1. I '$D(@(VALMAR)) Q
  1. D FULL^VALM1
  1. W !,"Enter the line number for which you wish to print claim logs."
  1. S BPSEL=$$ASKLINE^BPSSCRU4("Select item","C","Please select SINGLE Rx Line.")
  1. I BPSEL<1 S VALMBCK="R" Q
  1. ;
  1. S BP59=$P(BPSEL,U,4)
  1. S BPVLM=+$P(BPSEL,U,5) ; 1st line for indexes in the LM display array
  1. ;
  1. ; check for non-billable entry for claim LOG display
  1. I $$NB^BPSSCR03(BP59) D S VALMBCK="R" Q
  1. . W !!,$G(@VALMAR@(BPVLM,0)) ; LM display array
  1. . W !?6,$$EREJTXT^BPSSCR03(BP59) ; eT/eC non-billable reason line
  1. . W !,"Entry is NON BILLABLE. There is no Claim Log to display."
  1. . D PAUSE^VALM1
  1. . Q
  1. ;
  1. D SAVESEL(BPSEL,VALMAR)
  1. D EN
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. ;save for ListManager
  1. ;BPSEL - selected line
  1. ;BPVALMR - parent VALMAR
  1. SAVESEL(BPSEL,BPVALMR) ;
  1. D CLEANIT
  1. S ^TMP("BPSLOG",$J,"VALM","SELLN")=BPSEL
  1. S ^TMP("BPSLOG",$J,"VALM","PARENT")=BPVALMR
  1. M ^TMP("BPSLOG",$J,"VALM","VIEWPARAMS")=@BPVALMR@("VIEWPARAMS")
  1. Q
  1. ;
  1. CLEANIT ;
  1. K ^TMP("BPSLOG",$J,"VALM")
  1. Q
  1. ;
  1. PREPINFO(BPLN,BPDFN,BP36,BP59) ;
  1. ;input:
  1. ; BPDFN: patient ien #2
  1. ; BP36: insurance ien #36
  1. ; BP59: ptr to #9002313.59
  1. ; returns # of lines
  1. ;
  1. ; Moved to ^BPSSCRL1 for sake of space
  1. ;
  1. Q $$PREPINFO^BPSSCRL1(BPLN,BPDFN,BP36,BP59)
  1. ;
  1. ;increments BPLINE
  1. SETLINE(BPLINE,BPSTR) ;
  1. D SET^VALM10(BPLINE,BPSTR)
  1. S BPLINE=BPLINE+1
  1. Q
  1. ;
  1. ;display claim record
  1. DISPCLM(BPLN,BP59,BPIEN02,BP57,BPSTYPE,BPSDTALT) ;
  1. ;
  1. ; Moved to ^BPSSCRL1 for sake of space
  1. ;
  1. D DISPCLM^BPSSCRL1
  1. Q
  1. ;
  1. ;Submitted By User
  1. SUBMTBY(BP57) ;
  1. N BPIEN,BPUSR
  1. S BPIEN=$P($G(^BPSTL(BP57,0)),U,10)
  1. S BPUSR=$$GETUSRNM^BPSSCRU1(BPIEN)
  1. Q $S(BPUSR']"":"UNKNOWN",1:BPUSR)
  1. ;
  1. ;Date of service
  1. DOSCLM(BPIEN02) ;
  1. N BPDT
  1. S BPDT=$P($G(^BPSC(BPIEN02,401)),U,1)\1
  1. Q $E(BPDT,5,6)_"/"_$E(BPDT,7,8)_"/"_$E(BPDT,1,4)
  1. ;
  1. ;Create date
  1. CREATEDT(BPIEN02,BPSDTALT) ;
  1. N BPSDT
  1. S BPSDT=+$P($G(^BPSC(BPIEN02,0)),U,6)
  1. Q $$DATETIME^BPSSCRU5($S(BPSDT>0:BPSDT,1:BPSDTALT))
  1. ;
  1. ;Plan ID
  1. PLANID(BP57) ;
  1. Q $P($G(^BPSTL(BP57,10,+$G(^BPSTL(BP57,9)),0)),U,1)
  1. ;
  1. CERTMOD(BP57) ;
  1. Q $P($G(^BPSTL(BP57,10,+$G(^BPSTL(BP57,9)),0)),U,5)
  1. ;
  1. ;Software Vendor/Cert ID
  1. CERTIEN(BP57) ;
  1. Q $P($G(^BPSTL(BP57,10,+$G(^BPSTL(BP57,9)),0)),U,6)
  1. ;
  1. ;Division
  1. DIV(BP57) ;
  1. Q $$GET1^DIQ(9002313.57,BP57_",",11)
  1. ;
  1. ;NPI
  1. NPI(BPIEN02) ;
  1. Q $$GET1^DIQ(9002313.02,BPIEN02_",",201)
  1. ;
  1. ;Group ID
  1. GRPID(BPIEN02) ;
  1. Q $E($P($G(^BPSC(BPIEN02,300)),U,1),3,99)
  1. ;
  1. ;Group Name
  1. GRPNM(BPSIEN02) ;
  1. N BPSGPN
  1. S BPSGPN=$P($G(^BPSTL(BP57,10,+$G(^BPSTL(BP57,9)),3)),U,1)
  1. Q BPSGPN
  1. ;
  1. ;Cardholder ID
  1. CRDHLDID(BPIEN02) ;
  1. Q $E($P($G(^BPSC(BPIEN02,300)),U,2),3,99)
  1. ;
  1. ;Cardholder First name
  1. CRDHLDFN(BPIEN02,BP57) ;
  1. N Y
  1. S Y=$E($P($G(^BPSC(BPIEN02,300)),U,12),3,99)
  1. I $L(Y)=0 S Y=$P($G(^BPSTL(BP57,10,+$G(^BPSTL(BP57,9)),1)),U,6)
  1. Q Y
  1. ;
  1. ;Cardholder Last Name
  1. CRDHLDLN(BPIEN02,BP57) ;
  1. N Y
  1. S Y=$E($P($G(^BPSC(BPIEN02,300)),U,13),3,99)
  1. I $L(Y)=0 S Y=$P($G(^BPSTL(BP57,10,+$G(^BPSTL(BP57,9)),1)),U,7)
  1. Q Y
  1. ;
  1. ;Facility ID Qualifier - BPS*1*22
  1. FACIDQ(BPEIN02) ;
  1. Q $P($G(^BPSC(BPIEN02,400,1,"B90")),U,5)
  1. ;
  1. ;Patient Relationship Code
  1. PATRELSH(BPIEN02) ;
  1. N Y
  1. S Y=$E($P($G(^BPSC(BPIEN02,300)),U,6),3,99)
  1. Q $S(Y=0:"NOT SPECIFIED",Y=1:"CARDHOLDER",Y=2:"SPOUSE",Y=3:"CHILD",Y=4:"OTHER",1:Y)
  1. ;
  1. PCN(BPIEN02) ;
  1. Q $P($G(^BPSC(BPIEN02,100)),U,4)
  1. ;
  1. ; Get the Payer Sheet Version Number.
  1. GETVER(BPIEN02) ;
  1. N BPSVER
  1. S BPSVER=$P($G(^BPSC(BPIEN02,100)),U,2)
  1. I $G(BPSVER)]"" S BPSVER=$E(BPSVER,1)_"."_$E(BPSVER,2,99)
  1. Q BPSVER
  1. ;
  1. BIN(BPIEN02) ;
  1. Q $P($G(^BPSC(BPIEN02,100)),U,1)
  1. ;
  1. ;Prescriber DEA Number
  1. PDEA(BPIEN02) ;
  1. Q $E($P($G(^BPSC(BPIEN02,400,1,"D00")),U,1),3,18)
  1. ;
  1. ;Total Prescribed Quantity Remaining
  1. TOTPQR(BPIEN02) ;
  1. N X
  1. S X=$E($P($G(^BPSC(BPIEN02,400,1,"D00")),U,2),3,99)
  1. Q +X
  1. ;
  1. ;insurance name by 9002313.57 pointer
  1. INSUR57(BPIEN57) ;
  1. N BPINSN
  1. S BPINSN=+$G(^BPSTL(BPIEN57,9))
  1. Q $P($G(^BPSTL(BPIEN57,10,BPINSN,0)),U,7)
  1. ;
  1. PHPLANID(BPIEN57) ; Get the Pharmacy Plan ID from the BPS Log of Transactions file
  1. ; Input - BPSIEN57: IEN from the BPS Log of Transactions file.
  1. I '$G(BPIEN57) Q ""
  1. N BPINSN
  1. S BPINSN=+$G(^BPSTL(BPIEN57,9))
  1. Q $P($G(^BPSTL(BPIEN57,10,BPINSN,3)),U,3)
  1. ;
  1. QTY(BPIEN02) ;
  1. Q $E($P($G(^BPSC(BPIEN02,400,1,440)),U,2),3,99)/1000
  1. ;
  1. ;NCPDP Units
  1. UNITS(BPIEN02) ;
  1. I $G(BPIEN02)="" Q "( )"
  1. N X
  1. S X=$E($P($G(^BPSC(BPIEN02,400,1,600)),U,1),3,99)
  1. Q $S(X="":"( )",1:"("_X_")")
  1. ;
  1. UNTPRICE(BPIEN57) ;
  1. I $G(BPIEN57)="" Q ""
  1. Q +$P($G(^BPSTL(BPIEN57,5)),U,2)
  1. ;
  1. TOTPRICE(BPIEN02) ;
  1. I $G(BPIEN02)="" Q ""
  1. N X
  1. S X=$E($P($G(^BPSC(BPIEN02,400,1,400)),U,30),3,99)
  1. Q $S(X="":X,1:$$DFF2EXT^BPSECFM(X))
  1. ;
  1. BILLQTY(BPIEN57) ;
  1. Q $P($G(^BPSTL(BPIEN57,5)),U,9)
  1. ;
  1. BILLUNT(BPIEN57) ;
  1. I $G(BPIEN57)="" Q "( )"
  1. N X
  1. S X=$P($G(^BPSTL(BPIEN57,5)),U,10)
  1. Q $S(X="":"( )",1:"("_X_")")
  1. ;
  1. ;Ingredient Cost
  1. INGRCST(BPIEN02) ;
  1. I $G(BPIEN02)="" Q ""
  1. N X
  1. S X=$E($P($G(^BPSC(BPIEN02,400,1,400)),U,9),3,99)
  1. Q $S(X="":X,1:$$DFF2EXT^BPSECFM(X))
  1. ;
  1. ;Dispensing Fee Submitted
  1. DISPFEE(BPIEN02) ;
  1. I $G(BPIEN02)="" Q ""
  1. N X
  1. S X=$E($P($G(^BPSC(BPIEN02,400,1,400)),U,12),3,99)
  1. Q $S(X="":X,1:$$DFF2EXT^BPSECFM(X))
  1. ;
  1. ;U&C Charge
  1. UCCHRG(BPIEN02) ;
  1. I $G(BPIEN02)="" Q ""
  1. N X
  1. S X=$E($P($G(^BPSC(BPIEN02,400,1,400)),U,26),3,99)
  1. Q $S(X="":X,1:$$DFF2EXT^BPSECFM(X))
  1. ;
  1. ;Admin Fee
  1. ADMNFEE(BPIEN02) ;
  1. I $G(BPIEN02)="" Q ""
  1. N CNT,X,AF
  1. S AF="",CNT=0 F S CNT=$O(^BPSC(BPIEN02,400,1,478.01,CNT)) Q:'CNT D
  1. . S X=$G(^BPSC(BPIEN02,400,1,478.01,CNT,0))
  1. . I +$E($P(X,U,2),3,4)=4 S AF=AF+$$DFF2EXT^BPSECFM($E($P(X,U,3),3,10))
  1. Q $S(AF="":AF,1:$J(AF,0,2))
  1. ;
  1. ;get ECME pharmacy division ptr for LOG
  1. LDIV(BPIEN57) ;
  1. Q +$P($G(^BPSTL(BPIEN57,1)),U,7)
  1. ;
  1. ;transaction code
  1. TRCODE(BPIEN02) ;
  1. Q $P($G(^BPSC(BPIEN02,100)),U,3)
  1. ;
  1. ;days supply
  1. DAYSSUPL(BPIEN02) ;
  1. ;format D5NNN -> NNN
  1. Q +$E($P($G(^BPSC(BPIEN02,400,1,400)),U,5),3,99)
  1. ;
  1. ;display response record
  1. DISPRSP(BPLN,BP59,BPIEN03,BP57,BPSTYPE,BPSDTALT) ;
  1. ;
  1. ; Moved to ^BPSSCRL1 for sake of space
  1. ;
  1. D DISPRSP^BPSSCRL1
  1. Q
  1. ;
  1. RESPREC(BPIEN03,BPSDTALT) ;
  1. N BPSDT
  1. S BPSDT=+$P($G(^BPSR(BPIEN03,0)),U,2)
  1. Q $$DATETIME^BPSSCRU5($S(BPSDT>0:BPSDT,1:BPSDTALT))
  1. ;
  1. DOSRSP(BPIEN03) ;
  1. N BPDT
  1. S BPDT=$P($G(^BPSR(BPIEN03,400)),U,1)\1
  1. Q $E(BPDT,5,6)_"/"_$E(BPDT,7,8)_"/"_$E(BPDT,1,4)
  1. ;
  1. TOTAMNT(BPIEN03) ;
  1. I $G(BPIEN03)="" Q ""
  1. N X
  1. S X=$P($G(^BPSR(BPIEN03,1000,1,500)),U,9)
  1. Q $S(X="":X,1:$$DFF2EXT^BPSECFM(X))
  1. ;
  1. ICPAID(BPIEN03) ;Ingredient Cost Paid
  1. I $G(BPIEN03)="" Q ""
  1. N X
  1. S X=$P($G(^BPSR(BPIEN03,1000,1,500)),U,6)
  1. Q $S(X="":X,1:$$DFF2EXT^BPSECFM(X))
  1. ;
  1. ; BPS*1*22 - Reconciliation ID
  1. RECONID(BPEIN03) ;
  1. Q $P($G(^BPSR(BPIEN03,1000,1,"B98")),U,1)
  1. ;
  1. DFPAID(BPIEN03) ;Dispensing Fee Paid
  1. I $G(BPIEN03)="" Q ""
  1. N X
  1. S X=$P($G(^BPSR(BPIEN03,1000,1,500)),U,7)
  1. Q $S(X="":X,1:$$DFF2EXT^BPSECFM(X))
  1. ;
  1. PTRESP(BPIEN03) ;Patient Responsibility
  1. I $G(BPIEN03)="" Q ""
  1. N X
  1. S X=$P($G(^BPSR(BPIEN03,1000,1,500)),U,5)
  1. Q $S(X="":X,1:$$DFF2EXT^BPSECFM(X))
  1. ;
  1. MESSAGE(BPIEN03) ;
  1. Q $P($G(^BPSR(BPIEN03,504)),U)
  1. ;
  1. ADDMESS(BPIEN03,POS,BPADDMSG) ;
  1. N ADM,X,QUA,TXT,CON,BPMTMP,L,NEXT
  1. K BPMTMP,BPADDMSG
  1. I '$G(BPIEN03) Q
  1. I '$G(POS) S POS=1
  1. S (ADM,L)=0 F S ADM=$O(^BPSR(BPIEN03,1000,POS,130.01,ADM)) Q:'ADM D
  1. . S X=$G(^BPSR(BPIEN03,1000,POS,130.01,ADM,0))
  1. . S TXT=$P($G(^BPSR(BPIEN03,1000,POS,130.01,ADM,1)),U,1)
  1. . S QUA=$P(X,U,3),CON=$P(X,U,2)
  1. . ; This should not happen, but if the qualifier is null, set it
  1. . ; to "Z"_concatenated with a unique number so that it follows the
  1. . ; other qualifiers. Per the D0 standard, qualifiers can be 1-9 and
  1. . ; A-Z. ECL limits this to 1-9 but an future ECL may extend this.
  1. . I QUA="" S L=L+1,QUA="Z"_L
  1. . S BPMTMP(QUA)=CON_U_TXT
  1. I '$D(BPMTMP) Q
  1. S L=0,(QUA,NEXT)="" F S QUA=$O(BPMTMP(QUA)) Q:QUA="" D
  1. . S CON=$P(BPMTMP(QUA),U,1),TXT=$P(BPMTMP(QUA),U,2)
  1. . I NEXT="+" S BPADDMSG(L)=BPADDMSG(L)_TXT,NEXT=CON Q
  1. . S L=L+1,BPADDMSG(L)=TXT,NEXT=CON
  1. Q
  1. ;
  1. DURTEXT(BPIEN03) ;
  1. ; DUR FREE TEXT MESSAGE from first instance of DUR PPS RESPONSE
  1. Q $P($G(^BPSR(BPIEN03,1000,1,567.01,1,0)),U,9)
  1. ;
  1. DURREAS(BPIEN03) ;
  1. ; REASON FOR SERVICE CODE from first instance of DUR PPS RESPONSE
  1. Q $$GET1^DIQ(9002313.1101,"1,1,"_BPIEN03_",",439)
  1. ;
  1. DURADD(BPIEN03) ;
  1. ; DUR ADDITIONAL TEXT from first instance of DUR PPS RESPONSE
  1. Q $P($G(^BPSR(BPIEN03,1000,1,567.01,1,1)),U)
  1. ;
  1. ;Payer HPID from response ***BPS*1*18 IB ICR #6061
  1. HPID(BPIEN03,BP57) ;
  1. N BPHPD
  1. Q:$P($G(^BPSR(BPIEN03,560)),U,8)'="01" ""
  1. S BPHPD=$P($G(^BPSR(BPIEN03,560)),U,9)
  1. ; 6/25/14 no validation of HPID for this screen
  1. ;S:BPHPD'="" BPHPD=BPHPD_$P($$HOD^IBCNHUT1(BPHPD,BP57),U,3)
  1. Q BPHPD
  1. ;
  1. RXCOB57(BPIEN57) ;
  1. N BPCOB
  1. S BPCOB=+$P($G(^BPSTL(BPIEN57,0)),U,14)
  1. Q $S(BPCOB=2:"SECONDARY",BPCOB=3:"TERTIARY",1:"PRIMARY")
  1. ;
  1. ;Display other payer(s)
  1. DISPPYR(BPLN,BPIEN03) ;
  1. N PYR,PYRDATA,BPSTR1
  1. S PYR=0 F S PYR=$O(^BPSR(BPIEN03,1000,1,355.01,PYR)) Q:'PYR D
  1. . S PYRDATA=^BPSR(BPIEN03,1000,1,355.01,PYR,1)
  1. . S BPSTR1="Other Payer Information ("_PYR_")(#"_BPIEN03_")"
  1. . D SETLINE(.BPLN,BPSTR1_$$LINE^BPSSCRU3(79-$L(BPSTR1),"-"))
  1. . D SETLINE(.BPLN,"Other Payer ID Count: "_$$PYRIDCNT(BPIEN03,PYR))
  1. . D SETLINE(.BPLN,"Other Payer ID: "_$P(PYRDATA,U,3))
  1. . D SETLINE(.BPLN,"Other Payer Coverage Type: "_$P(PYRDATA,U,1))
  1. . D SETLINE(.BPLN,"Other Payer ID Qualifier: "_$P(PYRDATA,U,2))
  1. . D SETLINE(.BPLN,"Other Payer Help Desk Phone Number: "_$P(PYRDATA,U,8))
  1. . D SETLINE(.BPLN,"Other Payer Processor Control Number: "_$P(PYRDATA,U,4))
  1. . D SETLINE(.BPLN,"Other Payer Effective Date: "_$P(PYRDATA,U,10))
  1. . D SETLINE(.BPLN,"Other Payer Termination Date: "_$P(PYRDATA,U,11))
  1. . D SETLINE(.BPLN,"Other Payer Person Code: "_$P(PYRDATA,U,7))
  1. . D SETLINE(.BPLN,"Other Payer Patient Relationship Code: "_$P(PYRDATA,U,9))
  1. . D SETLINE(.BPLN,"Other Payer Cardholder ID: "_$P(PYRDATA,U,5))
  1. . D SETLINE(.BPLN,"Other Payer Group ID: "_$P(PYRDATA,U,6))
  1. Q
  1. ;
  1. PYRIDCNT(BPIEN03,PYR) ;
  1. Q $P($G(^BPSR(BPIEN03,1000,1,355.01,PYR,0)),U)
  1. ;
  1. ; Invalid Provider Data Source
  1. INVPROV(BPIEN03) ;
  1. Q $$GET1^DIQ(9002313.0301,"1,"_BPIEN03,2387,"E")
  1. ;
  1. ; Formulary Alternative Effective Date
  1. FAEDT(BPIEN03) ;
  1. N BPDT
  1. S BPDT=$$GET1^DIQ(9002313.0301,"1,"_BPIEN03,2389,"I")
  1. I BPDT'="" S BPDT=$E(BPDT,5,6)_"/"_$E(BPDT,7,8)_"/"_$E(BPDT,1,4)
  1. Q BPDT
  1. ;
  1. ; DUR/DUE Co-Agent Description
  1. DCADES(BPIEN03) ;
  1. Q $$GET1^DIQ(9002313.0301,"1,"_BPIEN03,2393,"E")
  1. ;
  1. ; Unit of Prior Dispensed Qty
  1. UPDQ(BPIEN03) ;
  1. Q $$GET1^DIQ(9002313.0301,"1,"_BPIEN03,2394,"I")
  1. ;
  1. ; Other Pharmacy ID Qualifier
  1. OPIDQ(BPIEN03) ;
  1. Q $$GET1^DIQ(9002313.0301,"1,"_BPIEN03,2395,"E")
  1. ;
  1. ; Other Pharmacy Name
  1. OPNAM(BPIEN03) ;
  1. Q $$GET1^DIQ(9002313.0301,"1,"_BPIEN03,2397,"E")
  1. ;
  1. ; Other Pharmacy Telephone
  1. OPTELE(BPIEN03) ;
  1. Q $$GET1^DIQ(9002313.0301,"1,"_BPIEN03,2398,"E")
  1. ;
  1. ; Other Prescriber Last Name
  1. OPLNAM(BPIEN03) ;
  1. Q $$GET1^DIQ(9002313.0301,"1,"_BPIEN03,2399,"E")
  1. ;
  1. ; Other Prescriber ID Qualifier
  1. OPRIDQ(BPIEN03) ;
  1. Q $$GET1^DIQ(9002313.0301,"1,"_BPIEN03,2401,"E")
  1. ;
  1. ; Other Prescriber ID
  1. OPRID(BPIEN03) ;
  1. Q $$GET1^DIQ(9002313.0301,"1,"_BPIEN03,2402,"E")
  1. ;
  1. ; Other Prescriber ID Phone Number
  1. OPRPH(BPIEN03) ;
  1. Q $$GET1^DIQ(9002313.0301,"1,"_BPIEN03,2403,"E")
  1. ;
  1. ; DUR/DUE Compound Product ID
  1. CMPPID(BPIEN03) ;
  1. Q $$GET1^DIQ(9002313.0301,"1,"_BPIEN03,2404,"E")
  1. ;
  1. ; DUR/DUE Compound Product ID Qualifier
  1. CMPPIDQ(BPIEN03) ;
  1. Q $$GET1^DIQ(9002313.0301,"1,"_BPIEN03,2405,"E")
  1. ;
  1. ; DUR/DUE Maximum Daily Dose Qty
  1. MAXDDQ(BPIEN03) ;
  1. Q $$GET1^DIQ(9002313.0301,"1,"_BPIEN03,2406,"E")
  1. ;
  1. ; DUR/DUE Maximum Daily Dose - Unit
  1. MAXDDU(BPIEN03) ;
  1. Q $$GET1^DIQ(9002313.0301,"1,"_BPIEN03,2407,"I")
  1. ;
  1. ; DUR/DUE Minimum Daily Dose Qty
  1. MINDDQ(BPIEN03) ;
  1. Q $$GET1^DIQ(9002313.0301,"1,"_BPIEN03,2408,"E")
  1. ;
  1. ; DUR/DUE Minimum Daily Dose - Unit
  1. MINDDU(BPIEN03) ;
  1. Q $$GET1^DIQ(9002313.0301,"1,"_BPIEN03,2409,"I")