- IBEFURF ;ALB/ARH - UTILITY: FIND RELATED FIRST PARTY BILLS ;3/7/00
- ;;2.0;INTEGRATED BILLING;**130,347,459,604,618,728,748,716**;21-MAR-94;Build 19
- ;;Per VA Directive 6402, this routine should not be modified.
- ;
- ; the following procedures search for First Party charges for specific events, matchs are returned in TMP
- ; only a single record of a charge event is returned, defining the charges current status, although there may
- ; have been cancellations or updates to the original charge
- ; o Inpatient Events may have multiple charge events (Copay and Per Diem)
- ; o Opt and Rx Events have only a single charge event (Copay)
- ;
- ; ^TMP("IBRBF",$J, XRF, charge ifn) =
- ; BILL FROM ^ BILL TO ^ CANCELLED? (1/0)^ AR BILL NUMBER ^ TOTAL CHARGE ^ ACTION TYPE (SHORT) ^ # DAYS ON HOLD
- ;
- FPINPT(DFN,ADMDT,XRF) ; given a patient and admission date, find any Inpatient Charges
- ; find the record of the Event (based on Event Date) then find all charges with that Event as the Parent Event
- N IBFPIFN,IBEVDT,IBEVIFN,IB0 S ADMDT=+$G(ADMDT)\1
- I +$G(DFN),+$G(ADMDT) S IBEVDT=-(ADMDT+.01) F S IBEVDT=$O(^IB("AFDT",DFN,IBEVDT)) Q:'IBEVDT!(-IBEVDT<ADMDT) D
- . S IBEVIFN=0 F S IBEVIFN=$O(^IB("AFDT",DFN,IBEVDT,IBEVIFN)) Q:'IBEVIFN D
- .. S IBFPIFN=0 F S IBFPIFN=$O(^IB("AF",IBEVIFN,IBFPIFN)) Q:'IBFPIFN D
- ... S IB0=$G(^IB(IBFPIFN,0)) Q:IB0="" I $P($G(^IBE(350.1,+$P(IB0,U,3),0)),U,1)["OPT" Q
- ... D FPONE(IBFPIFN,$G(XRF))
- Q
- ;
- FPINPT1(DFN,IBFROM,IBTO,XRF) ; find inpatient charges for a given patient IB*2.0*728
- ;
- ; DFN - patient DFN
- ; IBFROM - date statement covers from (399/151)
- ; IBTO - date statement covers to (399/152)
- ; XRF - 1st subscript to use in output global (file 399 ien)
- ;
- N IB0,IBACT,IBFRDT,IBIEN
- S IBIEN=0 F S IBIEN=$O(^IB("C",DFN,IBIEN)) Q:'IBIEN D
- .S IB0=$G(^IB(IBIEN,0)) I IB0="" Q ; IB*2.0*716
- .S IBFRDT=$P(IB0,U,14) Q:'IBFRDT
- .I IBFRDT<IBFROM Q ; 350/.14 is prior to 399/151
- .I IBFRDT>IBTO Q ; 350/.14 is after 399/152
- .S IBACT=$P($G(^IBE(350.1,+$P(IB0,U,3),0)),U,1)
- .I IBACT["OPT"!(IBACT["RX") Q ; IB*2.0*748
- .D FPONE(IBIEN,$G(XRF))
- .Q
- Q
- ;
- FPOPV(DFN,DT1,DT2,XRF) ; given a patient and date range, find any Outpatient Charges
- ; find all records where the Event Date is within the selected date range and the charge is Outpatient
- N IBFPIFN,IBEVDT,IB0 I '$G(DT2) S DT2=+$G(DT1)
- I +$G(DFN),+$G(DT1) S IBEVDT=-(DT2+.01) F S IBEVDT=$O(^IB("AFDT",DFN,IBEVDT)) Q:'IBEVDT!(-IBEVDT<DT1) D
- . S IBFPIFN=0 F S IBFPIFN=$O(^IB("AFDT",DFN,IBEVDT,IBFPIFN)) Q:'IBFPIFN D
- .. S IB0=$G(^IB(IBFPIFN,0)) Q:IB0="" I '$$CHKOPRX(+$P(IB0,U,3)) Q
- .. D FPONE(IBFPIFN,$G(XRF))
- Q
- ;
- FPRX(RXIFN,FILLDT,XRF,IBRXFL) ; given the prescription ifn (52) and the fill date, find any First Party charges
- ; get specific charge entry for an Rx from the Prescription file (52,106 and 52,52,9)
- N IBFPIFN,IBFILLN,DFN S IBFPIFN=""
- I '+$G(RXIFN) Q
- I '+$G(FILLDT) Q
- S IBFILLN=$G(IBRXFL)
- S DFN=$$FILE^IBRXUTL(RXIFN,2) Q:'DFN
- ;I $$FILE^IBRXUTL(RXIFN,22)=$G(FILLDT) D ; IB*2.0*604 - original code
- I $$FILE^IBRXUTL(RXIFN,22)=$G(FILLDT)!(IBFILLN=0) D ; *604-Add check for fill #. If fill # is 0, process as original fill
- . S IBFPIFN=+$P($$IBND^IBRXUTL(DFN,RXIFN),"^",2)
- . D FPONE(IBFPIFN,$G(XRF))
- E D
- . S:IBFILLN="" IBFILLN=$$RFLNUM^IBRXUTL(RXIFN,FILLDT)
- . S IBFPIFN=+$$IBNDFL^IBRXUTL(DFN,RXIFN,IBFILLN)
- . D FPONE(IBFPIFN,$G(XRF))
- Q
- ;
- FPONE(FPIFN,XRF) ; for a FP charge entry get the one line item that defines the entire events charge(s)
- ; get the Parent Charge then use the last charge entry as the current record for the event
- N IBPARENT,IBLAST,IBDATA Q:'$G(FPIFN)
- ;
- S IBPARENT=+$P($G(^IB(+FPIFN,0)),U,9) Q:'IBPARENT
- S IBLAST=+$$LAST^IBECEAU(IBPARENT) Q:'IBLAST
- ;
- I '$$DONE(IBLAST,$G(XRF)) S IBDATA=$$LN2(IBLAST) D SAVELN2(IBLAST,IBDATA,$G(XRF))
- Q
- ;
- ; ========================================================================================
- ;
- DONE(FPIFN,XRF) ; return true if item charge (last) is already included
- N IBX S IBX="" S XRF=$S($G(XRF)="":"FP",1:XRF) I +$G(FPIFN),$D(^TMP("IBRBF",$J,XRF,+FPIFN)) S IBX=1
- Q IBX
- ;
- SAVELN1(XRF,DATA) ; set charges found into array, ^TMP("IBRBF",$J,XRF) = DATA
- S XRF=$S($G(XRF)="":"FP",1:XRF),^TMP("IBRBF",$J,XRF)=$G(DATA)
- Q
- ;
- SAVELN2(FPIFN,DATA,XRF) ; set charges found into array, ^TMP("IBRBF",$J,XRF,charge ifn) = DATA (from $$LN2)
- I +$G(FPIFN),$D(^IB(+FPIFN,0)) S XRF=$S($G(XRF)="":"FP",1:XRF),^TMP("IBRBF",$J,XRF,+FPIFN)=$G(DATA)
- Q
- ;
- LN2(FPIFN) ; return data for a specific First Party Bill:
- ; BILL FROM ^ BILL TO ^ CANCELLED? (1/0)^ AR BILL NUMBER ^ TOTAL CHARGE ^ ACTION TYPE (SHORT) ^ # DAYS ON HOLD
- ; for rx's: FROM date is the (re)fill date in 52 and TO is the date entry added (release date)
- ; also set # Days On Hold only if the bill is currently in On Hold status
- N IBX,IB0,IB1 S IBX="",IB0=$G(^IB(+$G(FPIFN),0)) I IB0="" G LN2Q
- S IB1=$G(^IB(+FPIFN,1))
- ;
- S $P(IBX,U,1)=$S(+$P(IB0,U,4)=52:$$RXDT(+FPIFN),+$P(IB0,U,14):+$P(IB0,U,14),1:+$P(IB1,U,2))\1
- S $P(IBX,U,2)=$S(+$P(IB0,U,15):+$P(IB0,U,15),1:+$P(IB1,U,2))\1
- S $P(IBX,U,3)=$$CANC(+FPIFN)
- S $P(IBX,U,4)=$P(IB0,U,11)
- S $P(IBX,U,5)=$P(IB0,U,7)
- S $P(IBX,U,6)=$$ATAB($P(IB0,U,3))
- S $P(IBX,U,7)=$$OHDT(+FPIFN)
- LN2Q Q IBX
- ;
- ; ========================================================================================
- ;
- ; these procedures return First Party charge specific data and status
- ;
- ATAB(AT) ; given an Action Type (ptr to 350.1), return a shortened/abbreviated form of Action Type (350.1,.01)
- N IBX,IBY S IBX="",IBY=$P($G(^IBE(350.1,+$G(AT),0)),U,1) I IBY="" G ATABQ
- I "IB DG PSO"'[$E(IBY,1,3) S IBX=IBY
- I IBX="" S IBY=$P(IBY," ",2,999),IBY=$P(IBY," ",1,$L(IBY," ")-1) S IBX=IBY
- ATABQ Q IBX
- ;
- CANC(FPIFN) ; given a First Party Charge (ptr to 350), return 1 if charge is Cancelled, "" otherwise
- ; is cancelled if the Action Type (350,.03) Sequence Number (350.1,.05) is Cancel
- ; or is cancelled if the Status (350,.05) is Cancelled (350.21,.05) (never passed to AR)
- N IBX,IBY,IB0 S IBX="",IB0=$G(^IB(+$G(FPIFN),0)) I IB0="" G CANCQ
- S IBY=$P($G(^IBE(350.1,+$P(IB0,U,3),0)),U,5) I +IBY=2 S IBX=1 ; action is cancel
- I 'IBX S IBY=$P($G(^IBE(350.21,+$P(IB0,U,5),0)),U,5) I +IBY S IBX=1 ; status is cancel
- CANCQ Q IBX
- ;
- RXDT(FPIFN) ; return fill date of rx being billed, Resulting From must be 52
- ; fill date for Original = (52,22), for Refill = (52,52,.01)
- N IBX,IBY,IB0,IBRX,IBRXN S IBX="",IB0=$G(^IB(+$G(FPIFN),0)) I IB0="" G RXDTQ
- S IBY=$P(IB0,U,4) I +IBY=52 S IBRX=+$P(IBY,":",2),IBRXN=+$P(IBY,":",3) D I +IBY S IBX=IBY\1
- . S IBY=$S('IBRXN:$$FILE^IBRXUTL(IBRX,22),1:+$$SUBFILE^IBRXUTL(IBRX,IBRXN,52,.01))
- RXDTQ Q IBX
- ;
- OHDT(FPIFN) ; return the bills # DAYS ON HOLD, if the bill is currently in the On Hold Status
- N IBX,IBY,IB0 S IBX="",IB0=$G(^IB(+$G(FPIFN),0)) I IB0="" G OHDQ
- S IBY=$P($G(^IBE(350.21,+$P(IB0,U,5),0)),U,6)
- I +IBY S IBY=$P($G(^IB(+FPIFN,1)),U,6) I +IBY S IBX=$$FMDIFF^XLFDT(DT,IBY)
- OHDQ Q IBX
- ;
- ;IB*2.0*618
- ;-Outpatient Action type check
- ;-This includes Tricare and Community Care RX Action types that will only
- ; have an Outpatient billable event to reference.
- CHKOPRX(IBACTIEN) ;
- ;Output: 1-Outpatient Action Type
- ; (including CC and Tricare RX)
- ; 0-Not Outpatient Action Type
- N IBACTNM
- ;Retrieve the name
- S IBACTNM=$P($G(^IBE(350.1,IBACTIEN,0)),U,1)
- ;Outpatient type found
- Q:IBACTNM["OPT" 1
- ;Comm Care RX found
- I IBACTNM["RX",IBACTNM["CC" Q 1
- I IBACTNM["RX",IBACTNM["CHOICE" Q 1
- ;Otherwise, not and Outpatient Action
- Q 0
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBEFURF 7633 printed Apr 23, 2025@18:36:33 Page 2
- IBEFURF ;ALB/ARH - UTILITY: FIND RELATED FIRST PARTY BILLS ;3/7/00
- +1 ;;2.0;INTEGRATED BILLING;**130,347,459,604,618,728,748,716**;21-MAR-94;Build 19
- +2 ;;Per VA Directive 6402, this routine should not be modified.
- +3 ;
- +4 ; the following procedures search for First Party charges for specific events, matchs are returned in TMP
- +5 ; only a single record of a charge event is returned, defining the charges current status, although there may
- +6 ; have been cancellations or updates to the original charge
- +7 ; o Inpatient Events may have multiple charge events (Copay and Per Diem)
- +8 ; o Opt and Rx Events have only a single charge event (Copay)
- +9 ;
- +10 ; ^TMP("IBRBF",$J, XRF, charge ifn) =
- +11 ; BILL FROM ^ BILL TO ^ CANCELLED? (1/0)^ AR BILL NUMBER ^ TOTAL CHARGE ^ ACTION TYPE (SHORT) ^ # DAYS ON HOLD
- +12 ;
- FPINPT(DFN,ADMDT,XRF) ; given a patient and admission date, find any Inpatient Charges
- +1 ; find the record of the Event (based on Event Date) then find all charges with that Event as the Parent Event
- +2 NEW IBFPIFN,IBEVDT,IBEVIFN,IB0
- SET ADMDT=+$GET(ADMDT)\1
- +3 IF +$GET(DFN)
- IF +$GET(ADMDT)
- SET IBEVDT=-(ADMDT+.01)
- FOR
- SET IBEVDT=$ORDER(^IB("AFDT",DFN,IBEVDT))
- if 'IBEVDT!(-IBEVDT<ADMDT)
- QUIT
- Begin DoDot:1
- +4 SET IBEVIFN=0
- FOR
- SET IBEVIFN=$ORDER(^IB("AFDT",DFN,IBEVDT,IBEVIFN))
- if 'IBEVIFN
- QUIT
- Begin DoDot:2
- +5 SET IBFPIFN=0
- FOR
- SET IBFPIFN=$ORDER(^IB("AF",IBEVIFN,IBFPIFN))
- if 'IBFPIFN
- QUIT
- Begin DoDot:3
- +6 SET IB0=$GET(^IB(IBFPIFN,0))
- if IB0=""
- QUIT
- IF $PIECE($GET(^IBE(350.1,+$PIECE(IB0,U,3),0)),U,1)["OPT"
- QUIT
- +7 DO FPONE(IBFPIFN,$GET(XRF))
- End DoDot:3
- End DoDot:2
- End DoDot:1
- +8 QUIT
- +9 ;
- FPINPT1(DFN,IBFROM,IBTO,XRF) ; find inpatient charges for a given patient IB*2.0*728
- +1 ;
- +2 ; DFN - patient DFN
- +3 ; IBFROM - date statement covers from (399/151)
- +4 ; IBTO - date statement covers to (399/152)
- +5 ; XRF - 1st subscript to use in output global (file 399 ien)
- +6 ;
- +7 NEW IB0,IBACT,IBFRDT,IBIEN
- +8 SET IBIEN=0
- FOR
- SET IBIEN=$ORDER(^IB("C",DFN,IBIEN))
- if 'IBIEN
- QUIT
- Begin DoDot:1
- +9 ; IB*2.0*716
- SET IB0=$GET(^IB(IBIEN,0))
- IF IB0=""
- QUIT
- +10 SET IBFRDT=$PIECE(IB0,U,14)
- if 'IBFRDT
- QUIT
- +11 ; 350/.14 is prior to 399/151
- IF IBFRDT<IBFROM
- QUIT
- +12 ; 350/.14 is after 399/152
- IF IBFRDT>IBTO
- QUIT
- +13 SET IBACT=$PIECE($GET(^IBE(350.1,+$PIECE(IB0,U,3),0)),U,1)
- +14 ; IB*2.0*748
- IF IBACT["OPT"!(IBACT["RX")
- QUIT
- +15 DO FPONE(IBIEN,$GET(XRF))
- +16 QUIT
- End DoDot:1
- +17 QUIT
- +18 ;
- FPOPV(DFN,DT1,DT2,XRF) ; given a patient and date range, find any Outpatient Charges
- +1 ; find all records where the Event Date is within the selected date range and the charge is Outpatient
- +2 NEW IBFPIFN,IBEVDT,IB0
- IF '$GET(DT2)
- SET DT2=+$GET(DT1)
- +3 IF +$GET(DFN)
- IF +$GET(DT1)
- SET IBEVDT=-(DT2+.01)
- FOR
- SET IBEVDT=$ORDER(^IB("AFDT",DFN,IBEVDT))
- if 'IBEVDT!(-IBEVDT<DT1)
- QUIT
- Begin DoDot:1
- +4 SET IBFPIFN=0
- FOR
- SET IBFPIFN=$ORDER(^IB("AFDT",DFN,IBEVDT,IBFPIFN))
- if 'IBFPIFN
- QUIT
- Begin DoDot:2
- +5 SET IB0=$GET(^IB(IBFPIFN,0))
- if IB0=""
- QUIT
- IF '$$CHKOPRX(+$PIECE(IB0,U,3))
- QUIT
- +6 DO FPONE(IBFPIFN,$GET(XRF))
- End DoDot:2
- End DoDot:1
- +7 QUIT
- +8 ;
- FPRX(RXIFN,FILLDT,XRF,IBRXFL) ; given the prescription ifn (52) and the fill date, find any First Party charges
- +1 ; get specific charge entry for an Rx from the Prescription file (52,106 and 52,52,9)
- +2 NEW IBFPIFN,IBFILLN,DFN
- SET IBFPIFN=""
- +3 IF '+$GET(RXIFN)
- QUIT
- +4 IF '+$GET(FILLDT)
- QUIT
- +5 SET IBFILLN=$GET(IBRXFL)
- +6 SET DFN=$$FILE^IBRXUTL(RXIFN,2)
- if 'DFN
- QUIT
- +7 ;I $$FILE^IBRXUTL(RXIFN,22)=$G(FILLDT) D ; IB*2.0*604 - original code
- +8 ; *604-Add check for fill #. If fill # is 0, process as original fill
- IF $$FILE^IBRXUTL(RXIFN,22)=$GET(FILLDT)!(IBFILLN=0)
- Begin DoDot:1
- +9 SET IBFPIFN=+$PIECE($$IBND^IBRXUTL(DFN,RXIFN),"^",2)
- +10 DO FPONE(IBFPIFN,$GET(XRF))
- End DoDot:1
- +11 IF '$TEST
- Begin DoDot:1
- +12 if IBFILLN=""
- SET IBFILLN=$$RFLNUM^IBRXUTL(RXIFN,FILLDT)
- +13 SET IBFPIFN=+$$IBNDFL^IBRXUTL(DFN,RXIFN,IBFILLN)
- +14 DO FPONE(IBFPIFN,$GET(XRF))
- End DoDot:1
- +15 QUIT
- +16 ;
- FPONE(FPIFN,XRF) ; for a FP charge entry get the one line item that defines the entire events charge(s)
- +1 ; get the Parent Charge then use the last charge entry as the current record for the event
- +2 NEW IBPARENT,IBLAST,IBDATA
- if '$GET(FPIFN)
- QUIT
- +3 ;
- +4 SET IBPARENT=+$PIECE($GET(^IB(+FPIFN,0)),U,9)
- if 'IBPARENT
- QUIT
- +5 SET IBLAST=+$$LAST^IBECEAU(IBPARENT)
- if 'IBLAST
- QUIT
- +6 ;
- +7 IF '$$DONE(IBLAST,$GET(XRF))
- SET IBDATA=$$LN2(IBLAST)
- DO SAVELN2(IBLAST,IBDATA,$GET(XRF))
- +8 QUIT
- +9 ;
- +10 ; ========================================================================================
- +11 ;
- DONE(FPIFN,XRF) ; return true if item charge (last) is already included
- +1 NEW IBX
- SET IBX=""
- SET XRF=$SELECT($GET(XRF)="":"FP",1:XRF)
- IF +$GET(FPIFN)
- IF $DATA(^TMP("IBRBF",$JOB,XRF,+FPIFN))
- SET IBX=1
- +2 QUIT IBX
- +3 ;
- SAVELN1(XRF,DATA) ; set charges found into array, ^TMP("IBRBF",$J,XRF) = DATA
- +1 SET XRF=$SELECT($GET(XRF)="":"FP",1:XRF)
- SET ^TMP("IBRBF",$JOB,XRF)=$GET(DATA)
- +2 QUIT
- +3 ;
- SAVELN2(FPIFN,DATA,XRF) ; set charges found into array, ^TMP("IBRBF",$J,XRF,charge ifn) = DATA (from $$LN2)
- +1 IF +$GET(FPIFN)
- IF $DATA(^IB(+FPIFN,0))
- SET XRF=$SELECT($GET(XRF)="":"FP",1:XRF)
- SET ^TMP("IBRBF",$JOB,XRF,+FPIFN)=$GET(DATA)
- +2 QUIT
- +3 ;
- LN2(FPIFN) ; return data for a specific First Party Bill:
- +1 ; BILL FROM ^ BILL TO ^ CANCELLED? (1/0)^ AR BILL NUMBER ^ TOTAL CHARGE ^ ACTION TYPE (SHORT) ^ # DAYS ON HOLD
- +2 ; for rx's: FROM date is the (re)fill date in 52 and TO is the date entry added (release date)
- +3 ; also set # Days On Hold only if the bill is currently in On Hold status
- +4 NEW IBX,IB0,IB1
- SET IBX=""
- SET IB0=$GET(^IB(+$GET(FPIFN),0))
- IF IB0=""
- GOTO LN2Q
- +5 SET IB1=$GET(^IB(+FPIFN,1))
- +6 ;
- +7 SET $PIECE(IBX,U,1)=$SELECT(+$PIECE(IB0,U,4)=52:$$RXDT(+FPIFN),+$PIECE(IB0,U,14):+$PIECE(IB0,U,14),1:+$PIECE(IB1,U,2))\1
- +8 SET $PIECE(IBX,U,2)=$SELECT(+$PIECE(IB0,U,15):+$PIECE(IB0,U,15),1:+$PIECE(IB1,U,2))\1
- +9 SET $PIECE(IBX,U,3)=$$CANC(+FPIFN)
- +10 SET $PIECE(IBX,U,4)=$PIECE(IB0,U,11)
- +11 SET $PIECE(IBX,U,5)=$PIECE(IB0,U,7)
- +12 SET $PIECE(IBX,U,6)=$$ATAB($PIECE(IB0,U,3))
- +13 SET $PIECE(IBX,U,7)=$$OHDT(+FPIFN)
- LN2Q QUIT IBX
- +1 ;
- +2 ; ========================================================================================
- +3 ;
- +4 ; these procedures return First Party charge specific data and status
- +5 ;
- ATAB(AT) ; given an Action Type (ptr to 350.1), return a shortened/abbreviated form of Action Type (350.1,.01)
- +1 NEW IBX,IBY
- SET IBX=""
- SET IBY=$PIECE($GET(^IBE(350.1,+$GET(AT),0)),U,1)
- IF IBY=""
- GOTO ATABQ
- +2 IF "IB DG PSO"'[$EXTRACT(IBY,1,3)
- SET IBX=IBY
- +3 IF IBX=""
- SET IBY=$PIECE(IBY," ",2,999)
- SET IBY=$PIECE(IBY," ",1,$LENGTH(IBY," ")-1)
- SET IBX=IBY
- ATABQ QUIT IBX
- +1 ;
- CANC(FPIFN) ; given a First Party Charge (ptr to 350), return 1 if charge is Cancelled, "" otherwise
- +1 ; is cancelled if the Action Type (350,.03) Sequence Number (350.1,.05) is Cancel
- +2 ; or is cancelled if the Status (350,.05) is Cancelled (350.21,.05) (never passed to AR)
- +3 NEW IBX,IBY,IB0
- SET IBX=""
- SET IB0=$GET(^IB(+$GET(FPIFN),0))
- IF IB0=""
- GOTO CANCQ
- +4 ; action is cancel
- SET IBY=$PIECE($GET(^IBE(350.1,+$PIECE(IB0,U,3),0)),U,5)
- IF +IBY=2
- SET IBX=1
- +5 ; status is cancel
- IF 'IBX
- SET IBY=$PIECE($GET(^IBE(350.21,+$PIECE(IB0,U,5),0)),U,5)
- IF +IBY
- SET IBX=1
- CANCQ QUIT IBX
- +1 ;
- RXDT(FPIFN) ; return fill date of rx being billed, Resulting From must be 52
- +1 ; fill date for Original = (52,22), for Refill = (52,52,.01)
- +2 NEW IBX,IBY,IB0,IBRX,IBRXN
- SET IBX=""
- SET IB0=$GET(^IB(+$GET(FPIFN),0))
- IF IB0=""
- GOTO RXDTQ
- +3 SET IBY=$PIECE(IB0,U,4)
- IF +IBY=52
- SET IBRX=+$PIECE(IBY,":",2)
- SET IBRXN=+$PIECE(IBY,":",3)
- Begin DoDot:1
- +4 SET IBY=$SELECT('IBRXN:$$FILE^IBRXUTL(IBRX,22),1:+$$SUBFILE^IBRXUTL(IBRX,IBRXN,52,.01))
- End DoDot:1
- IF +IBY
- SET IBX=IBY\1
- RXDTQ QUIT IBX
- +1 ;
- OHDT(FPIFN) ; return the bills # DAYS ON HOLD, if the bill is currently in the On Hold Status
- +1 NEW IBX,IBY,IB0
- SET IBX=""
- SET IB0=$GET(^IB(+$GET(FPIFN),0))
- IF IB0=""
- GOTO OHDQ
- +2 SET IBY=$PIECE($GET(^IBE(350.21,+$PIECE(IB0,U,5),0)),U,6)
- +3 IF +IBY
- SET IBY=$PIECE($GET(^IB(+FPIFN,1)),U,6)
- IF +IBY
- SET IBX=$$FMDIFF^XLFDT(DT,IBY)
- OHDQ QUIT IBX
- +1 ;
- +2 ;IB*2.0*618
- +3 ;-Outpatient Action type check
- +4 ;-This includes Tricare and Community Care RX Action types that will only
- +5 ; have an Outpatient billable event to reference.
- CHKOPRX(IBACTIEN) ;
- +1 ;Output: 1-Outpatient Action Type
- +2 ; (including CC and Tricare RX)
- +3 ; 0-Not Outpatient Action Type
- +4 NEW IBACTNM
- +5 ;Retrieve the name
- +6 SET IBACTNM=$PIECE($GET(^IBE(350.1,IBACTIEN,0)),U,1)
- +7 ;Outpatient type found
- +8 if IBACTNM["OPT"
- QUIT 1
- +9 ;Comm Care RX found
- +10 IF IBACTNM["RX"
- IF IBACTNM["CC"
- QUIT 1
- +11 IF IBACTNM["RX"
- IF IBACTNM["CHOICE"
- QUIT 1
- +12 ;Otherwise, not and Outpatient Action
- +13 QUIT 0
