PSOSULB2 ;AITC/MRD - Print suspended labels cont. ;12/8/20
;;7.0;OUTPATIENT PHARMACY;**561**;DEC 1997;Build 41
;Reference to $$INSUR^IBBAPI supported by IA 4419
;Reference to $$BILLABLE^IBNCPDP supported by IA 6243
;
EBILLABLE(PSORX,PSOFILL) ; Determine if this Rx is e-billable.
;
; This function will return '1' if the given Rx/Fill is
; e-billable. Otherwise, it returns '0'.
;
N PSODFN,PSODRUG,PSOELIG,PSOIBSTAT
;
; If this is not the original fill, and the previous fill was not
; billable, Quit with 0.
;
I PSOFILL>0,$$STATUS^BPSOSRX(PSORX,PSOFILL-1)="" Q 0
;
; If one of the environmental indicators is set, Quit with 0.
;
I $P($G(^PSRX(PSORX,"ICD",1,0)),U,2,10)[1 Q 0
;
; If the drug is not billable, Quit with 0.
;
S PSODRUG=$$GET1^DIQ(52,PSORX,6,"I")
I PSOFILL S PSOELIG=$$GET1^DIQ(52.1,PSOFILL_","_PSORX,85,"I")
E S PSOELIG=$$GET1^DIQ(52,PSORX,85,"I")
I '$$BILLABLE^IBNCPDP(PSODRUG,PSOELIG) Q 0 ; IA# 6243
;
; If there is no insurance on file, Quit with 0.
;
S PSODFN=$$GET1^DIQ(52,PSORX,2,"I")
S PSOIBSTAT=$$INSUR^IBBAPI(PSODFN,,"E",,1)
I 'PSOIBSTAT!(PSOIBSTAT=-1) Q 0
;
Q 1
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOSULB2 1162 printed Nov 22, 2024@17:45:27 Page 2
PSOSULB2 ;AITC/MRD - Print suspended labels cont. ;12/8/20
+1 ;;7.0;OUTPATIENT PHARMACY;**561**;DEC 1997;Build 41
+2 ;Reference to $$INSUR^IBBAPI supported by IA 4419
+3 ;Reference to $$BILLABLE^IBNCPDP supported by IA 6243
+4 ;
EBILLABLE(PSORX,PSOFILL) ; Determine if this Rx is e-billable.
+1 ;
+2 ; This function will return '1' if the given Rx/Fill is
+3 ; e-billable. Otherwise, it returns '0'.
+4 ;
+5 NEW PSODFN,PSODRUG,PSOELIG,PSOIBSTAT
+6 ;
+7 ; If this is not the original fill, and the previous fill was not
+8 ; billable, Quit with 0.
+9 ;
+10 IF PSOFILL>0
IF $$STATUS^BPSOSRX(PSORX,PSOFILL-1)=""
QUIT 0
+11 ;
+12 ; If one of the environmental indicators is set, Quit with 0.
+13 ;
+14 IF $PIECE($GET(^PSRX(PSORX,"ICD",1,0)),U,2,10)[1
QUIT 0
+15 ;
+16 ; If the drug is not billable, Quit with 0.
+17 ;
+18 SET PSODRUG=$$GET1^DIQ(52,PSORX,6,"I")
+19 IF PSOFILL
SET PSOELIG=$$GET1^DIQ(52.1,PSOFILL_","_PSORX,85,"I")
+20 IF '$TEST
SET PSOELIG=$$GET1^DIQ(52,PSORX,85,"I")
+21 ; IA# 6243
IF '$$BILLABLE^IBNCPDP(PSODRUG,PSOELIG)
QUIT 0
+22 ;
+23 ; If there is no insurance on file, Quit with 0.
+24 ;
+25 SET PSODFN=$$GET1^DIQ(52,PSORX,2,"I")
+26 SET PSOIBSTAT=$$INSUR^IBBAPI(PSODFN,,"E",,1)
+27 IF 'PSOIBSTAT!(PSOIBSTAT=-1)
QUIT 0
+28 ;
+29 QUIT 1
+30 ;
