- IBY399P4 ;ALB/ARH - IB*2*399 POST-INSTALL - FTF CONVERSION ; 2/27/09
- ;;2.0;INTEGRATED BILLING;**399**;21-MAR-94;Build 8
- ;;Per VHA Directive 2004-038, this routine should not be modified.
- ;
- Q
- ;
- CONVF ; Convert free text Filing Time Frames to Standard Filing Time Frames
- ; if the free text Filing Time Frame exactly matchs a pre-defined text then it is deleted and
- ; the corresponding Standard Filing Time Frame and Value is added,
- ; both Insurance Company and Group Plan Filing Time Frames are converted, active and non-medicare only
- N IBA,IBC,IBINS,IBINS0,IBFTF,IBSFTF,DIE,DIC,DA,DR,X,Y S IBC=0
- ;
- ; Insurance Company Filing Time Frame (#36,.12) converted to Standard Filing Time Frame (.18) and Value (.19)
- S (IBC,IBINS)=0 F S IBINS=$O(^DIC(36,IBINS)) Q:'IBINS D
- . S IBINS0=$G(^DIC(36,IBINS,0)) I '$$ACTIVE(IBINS) Q
- . I +$P(IBINS0,U,18) Q
- . S IBFTF=$P(IBINS0,U,12) I IBFTF="" Q
- . S IBSFTF=$$STND(IBFTF) I 'IBSFTF Q
- . ;
- . S DR=".12////@;.18////"_+IBSFTF I +$P(IBSFTF,U,3) S DR=DR_";.19////"_+$P(IBSFTF,U,3)
- . S DIE="^DIC(36,",DA=IBINS D ^DIE K DIE S IBC=IBC+1
- ;
- S IBA=">> Insurance Companies (#36) Converted to Standard Filing Time Frames, "_IBC D MSG(IBA)
- ;
- ; Insurance Plan Filing Time Frame (#355.3,.13) converted to Standard Filing Time Frame (.16) and Value (.17)
- S (IBC,IBINS)=0 F S IBINS=$O(^IBA(355.3,IBINS)) Q:'IBINS D
- . S IBINS0=$G(^IBA(355.3,IBINS,0)) I '$$ACTIVE(+IBINS0,IBINS) Q
- . I +$P(IBINS0,U,16) Q
- . S IBFTF=$P(IBINS0,U,13) I IBFTF="" Q
- . S IBSFTF=$$STND(IBFTF) I 'IBSFTF Q
- . ;
- . S DR=".13////@;.16////"_+IBSFTF I +$P(IBSFTF,U,3) S DR=DR_";.17////"_+$P(IBSFTF,U,3)
- . S DIE="^IBA(355.3,",DA=IBINS D ^DIE K DIE S IBC=IBC+1
- ;
- S IBA=">> Insurance Plan (#355.3) Converted to Standard Filing Time Frames, "_IBC D MSG(IBA)
- ;
- Q
- ;
- ACTIVE(IBINS,IBPLN) ; check if the insurance should have the Standard FTF added, active and not medicare
- N IBACT,IBINS0,IBPLN0 S IBACT=1
- S IBINS0=$G(^DIC(36,+$G(IBINS),0)),IBPLN0=$G(^IBA(355.3,+$G(IBPLN),0))
- ;
- I +$P(IBINS0,U,5) S IBACT=0
- I $P(IBINS0,U,1)["MEDICARE" S IBACT=0
- I $G(^IBE(355.2,+$P(IBINS0,U,13),0))["MEDICARE" S IBACT=0
- ;
- I +$P(IBPLN0,U,11) S IBACT=0
- I $P($G(^IBE(355.1,+$P(IBPLN0,U,9),0)),U,3)=5 S IBACT=0
- ;
- Q IBACT
- ;
- ;
- STND(IBFTF) ; return the Standard Filing Time Frame and Value that correspond to the Free Text Filing Time Frame
- ; Input: Filing Time Frame Free Text
- ; Returns: Standard FTF pointer (#355.13) ^ Standard FTF Name ^ Standard FTF Value (from input IBFTF)
- ;
- N IBSFTF,IBFTV,IBFTU S IBSFTF="" I '$G(IBFTF) G STNDQ
- ;
- S IBFTF=$$UP^XLFSTR(IBFTF),IBFTV=+IBFTF,IBFTU=$P(IBFTF,IBFTV,2,999) I $E(IBFTU)=" " S IBFTU=$E(IBFTU,2,999)
- ;
- I IBFTU="D" S IBSFTF="DAYS"_U_IBFTV G STNDQ
- I IBFTU="DAYS" S IBSFTF="DAYS"_U_IBFTV G STNDQ
- I IBFTU="DAYS DOS" S IBSFTF="DAYS"_U_IBFTV G STNDQ
- I IBFTU="DAYS FROM DOS" S IBSFTF="DAYS"_U_IBFTV G STNDQ
- ;
- I IBFTU="M" S IBSFTF="MONTH(S)"_U_IBFTV G STNDQ
- I IBFTU="MO" S IBSFTF="MONTH(S)"_U_IBFTV G STNDQ
- I IBFTU="MOS" S IBSFTF="MONTH(S)"_U_IBFTV G STNDQ
- I IBFTU="MTHS" S IBSFTF="MONTH(S)"_U_IBFTV G STNDQ
- I IBFTU="MONTHS" S IBSFTF="MONTH(S)"_U_IBFTV G STNDQ
- I IBFTU="MO DOS" S IBSFTF="MONTH(S)"_U_IBFTV G STNDQ
- I IBFTU="MOS DOS" S IBSFTF="MONTH(S)"_U_IBFTV G STNDQ
- I IBFTU="MONTHS DOS" S IBSFTF="MONTH(S)"_U_IBFTV G STNDQ
- I IBFTU="MOS FROM DOS" S IBSFTF="MONTH(S)"_U_IBFTV G STNDQ
- I IBFTU="MONTHS FROM DOS" S IBSFTF="MONTH(S)"_U_IBFTV G STNDQ
- ;
- I IBFTU="YR" S IBSFTF="YEAR(S)"_U_IBFTV G STNDQ
- I IBFTU="YRS" S IBSFTF="YEAR(S)"_U_IBFTV G STNDQ
- I IBFTU="YEAR" S IBSFTF="YEAR(S)"_U_IBFTV G STNDQ
- I IBFTU="YEARS" S IBSFTF="YEAR(S)"_U_IBFTV G STNDQ
- I IBFTU="YR DOS" S IBSFTF="YEAR(S)"_U_IBFTV G STNDQ
- I IBFTU="YRS DOS" S IBSFTF="YEAR(S)"_U_IBFTV G STNDQ
- I IBFTU="YEAR DOS" S IBSFTF="YEAR(S)"_U_IBFTV G STNDQ
- I IBFTU="YEARS DOS" S IBSFTF="YEAR(S)"_U_IBFTV G STNDQ
- I IBFTU="YR FROM DOS" S IBSFTF="YEAR(S)"_U_IBFTV G STNDQ
- I IBFTU="YRS FROM DOS" S IBSFTF="YEAR(S)"_U_IBFTV G STNDQ
- I IBFTU="YEAR FROM DOS" S IBSFTF="YEAR(S)"_U_IBFTV G STNDQ
- I IBFTU="YEARS FROM DOS" S IBSFTF="YEAR(S)"_U_IBFTV G STNDQ
- ;
- I IBFTF="3-31 FOL YR" S IBSFTF="MONTHS OF FOLLOWING YEAR^3" G STNDQ
- I IBFTF="3/31 FOL YR" S IBSFTF="MONTHS OF FOLLOWING YEAR^3" G STNDQ
- I IBFTF="3-31 FOLLOWING YR" S IBSFTF="MONTHS OF FOLLOWING YEAR^3" G STNDQ
- I IBFTF="3/31 FOLLOWING YR" S IBSFTF="MONTHS OF FOLLOWING YEAR^3" G STNDQ
- I IBFTF="3-31 FOLLOWING YEAR" S IBSFTF="MONTHS OF FOLLOWING YEAR^3" G STNDQ
- I IBFTF="3/31 FOLLOWING YEAR" S IBSFTF="MONTHS OF FOLLOWING YEAR^3" G STNDQ
- ;
- I IBFTF="12-31 FOL YR" S IBSFTF="END OF FOLLOWING YEAR" G STNDQ
- I IBFTF="12/31 FOL YR" S IBSFTF="END OF FOLLOWING YEAR" G STNDQ
- I IBFTF="12-31 FOLLOWING YR" S IBSFTF="END OF FOLLOWING YEAR" G STNDQ
- I IBFTF="12/31 FOLLOWING YR" S IBSFTF="END OF FOLLOWING YEAR" G STNDQ
- I IBFTF="12-31 FOLLOWING YEAR" S IBSFTF="END OF FOLLOWING YEAR" G STNDQ
- I IBFTF="12/31 FOLLOWING YEAR" S IBSFTF="END OF FOLLOWING YEAR" G STNDQ
- ;
- STNDQ I IBSFTF'="" S IBSFTF=$O(^IBE(355.13,"B",$P(IBSFTF,U,1),0))_U_IBSFTF
- Q IBSFTF
- ;
- MSG(IBA) ;
- N IBM S IBM(1)=" ",IBM(2)=" "_$G(IBA)
- D MES^XPDUTL(.IBM)
- Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBY399P4 5218 printed Apr 23, 2025@18:48:39 Page 2
- IBY399P4 ;ALB/ARH - IB*2*399 POST-INSTALL - FTF CONVERSION ; 2/27/09
- +1 ;;2.0;INTEGRATED BILLING;**399**;21-MAR-94;Build 8
- +2 ;;Per VHA Directive 2004-038, this routine should not be modified.
- +3 ;
- +4 QUIT
- +5 ;
- CONVF ; Convert free text Filing Time Frames to Standard Filing Time Frames
- +1 ; if the free text Filing Time Frame exactly matchs a pre-defined text then it is deleted and
- +2 ; the corresponding Standard Filing Time Frame and Value is added,
- +3 ; both Insurance Company and Group Plan Filing Time Frames are converted, active and non-medicare only
- +4 NEW IBA,IBC,IBINS,IBINS0,IBFTF,IBSFTF,DIE,DIC,DA,DR,X,Y
- SET IBC=0
- +5 ;
- +6 ; Insurance Company Filing Time Frame (#36,.12) converted to Standard Filing Time Frame (.18) and Value (.19)
- +7 SET (IBC,IBINS)=0
- FOR
- SET IBINS=$ORDER(^DIC(36,IBINS))
- if 'IBINS
- QUIT
- Begin DoDot:1
- +8 SET IBINS0=$GET(^DIC(36,IBINS,0))
- IF '$$ACTIVE(IBINS)
- QUIT
- +9 IF +$PIECE(IBINS0,U,18)
- QUIT
- +10 SET IBFTF=$PIECE(IBINS0,U,12)
- IF IBFTF=""
- QUIT
- +11 SET IBSFTF=$$STND(IBFTF)
- IF 'IBSFTF
- QUIT
- +12 ;
- +13 SET DR=".12////@;.18////"_+IBSFTF
- IF +$PIECE(IBSFTF,U,3)
- SET DR=DR_";.19////"_+$PIECE(IBSFTF,U,3)
- +14 SET DIE="^DIC(36,"
- SET DA=IBINS
- DO ^DIE
- KILL DIE
- SET IBC=IBC+1
- End DoDot:1
- +15 ;
- +16 SET IBA=">> Insurance Companies (#36) Converted to Standard Filing Time Frames, "_IBC
- DO MSG(IBA)
- +17 ;
- +18 ; Insurance Plan Filing Time Frame (#355.3,.13) converted to Standard Filing Time Frame (.16) and Value (.17)
- +19 SET (IBC,IBINS)=0
- FOR
- SET IBINS=$ORDER(^IBA(355.3,IBINS))
- if 'IBINS
- QUIT
- Begin DoDot:1
- +20 SET IBINS0=$GET(^IBA(355.3,IBINS,0))
- IF '$$ACTIVE(+IBINS0,IBINS)
- QUIT
- +21 IF +$PIECE(IBINS0,U,16)
- QUIT
- +22 SET IBFTF=$PIECE(IBINS0,U,13)
- IF IBFTF=""
- QUIT
- +23 SET IBSFTF=$$STND(IBFTF)
- IF 'IBSFTF
- QUIT
- +24 ;
- +25 SET DR=".13////@;.16////"_+IBSFTF
- IF +$PIECE(IBSFTF,U,3)
- SET DR=DR_";.17////"_+$PIECE(IBSFTF,U,3)
- +26 SET DIE="^IBA(355.3,"
- SET DA=IBINS
- DO ^DIE
- KILL DIE
- SET IBC=IBC+1
- End DoDot:1
- +27 ;
- +28 SET IBA=">> Insurance Plan (#355.3) Converted to Standard Filing Time Frames, "_IBC
- DO MSG(IBA)
- +29 ;
- +30 QUIT
- +31 ;
- ACTIVE(IBINS,IBPLN) ; check if the insurance should have the Standard FTF added, active and not medicare
- +1 NEW IBACT,IBINS0,IBPLN0
- SET IBACT=1
- +2 SET IBINS0=$GET(^DIC(36,+$GET(IBINS),0))
- SET IBPLN0=$GET(^IBA(355.3,+$GET(IBPLN),0))
- +3 ;
- +4 IF +$PIECE(IBINS0,U,5)
- SET IBACT=0
- +5 IF $PIECE(IBINS0,U,1)["MEDICARE"
- SET IBACT=0
- +6 IF $GET(^IBE(355.2,+$PIECE(IBINS0,U,13),0))["MEDICARE"
- SET IBACT=0
- +7 ;
- +8 IF +$PIECE(IBPLN0,U,11)
- SET IBACT=0
- +9 IF $PIECE($GET(^IBE(355.1,+$PIECE(IBPLN0,U,9),0)),U,3)=5
- SET IBACT=0
- +10 ;
- +11 QUIT IBACT
- +12 ;
- +13 ;
- STND(IBFTF) ; return the Standard Filing Time Frame and Value that correspond to the Free Text Filing Time Frame
- +1 ; Input: Filing Time Frame Free Text
- +2 ; Returns: Standard FTF pointer (#355.13) ^ Standard FTF Name ^ Standard FTF Value (from input IBFTF)
- +3 ;
- +4 NEW IBSFTF,IBFTV,IBFTU
- SET IBSFTF=""
- IF '$GET(IBFTF)
- GOTO STNDQ
- +5 ;
- +6 SET IBFTF=$$UP^XLFSTR(IBFTF)
- SET IBFTV=+IBFTF
- SET IBFTU=$PIECE(IBFTF,IBFTV,2,999)
- IF $EXTRACT(IBFTU)=" "
- SET IBFTU=$EXTRACT(IBFTU,2,999)
- +7 ;
- +8 IF IBFTU="D"
- SET IBSFTF="DAYS"_U_IBFTV
- GOTO STNDQ
- +9 IF IBFTU="DAYS"
- SET IBSFTF="DAYS"_U_IBFTV
- GOTO STNDQ
- +10 IF IBFTU="DAYS DOS"
- SET IBSFTF="DAYS"_U_IBFTV
- GOTO STNDQ
- +11 IF IBFTU="DAYS FROM DOS"
- SET IBSFTF="DAYS"_U_IBFTV
- GOTO STNDQ
- +12 ;
- +13 IF IBFTU="M"
- SET IBSFTF="MONTH(S)"_U_IBFTV
- GOTO STNDQ
- +14 IF IBFTU="MO"
- SET IBSFTF="MONTH(S)"_U_IBFTV
- GOTO STNDQ
- +15 IF IBFTU="MOS"
- SET IBSFTF="MONTH(S)"_U_IBFTV
- GOTO STNDQ
- +16 IF IBFTU="MTHS"
- SET IBSFTF="MONTH(S)"_U_IBFTV
- GOTO STNDQ
- +17 IF IBFTU="MONTHS"
- SET IBSFTF="MONTH(S)"_U_IBFTV
- GOTO STNDQ
- +18 IF IBFTU="MO DOS"
- SET IBSFTF="MONTH(S)"_U_IBFTV
- GOTO STNDQ
- +19 IF IBFTU="MOS DOS"
- SET IBSFTF="MONTH(S)"_U_IBFTV
- GOTO STNDQ
- +20 IF IBFTU="MONTHS DOS"
- SET IBSFTF="MONTH(S)"_U_IBFTV
- GOTO STNDQ
- +21 IF IBFTU="MOS FROM DOS"
- SET IBSFTF="MONTH(S)"_U_IBFTV
- GOTO STNDQ
- +22 IF IBFTU="MONTHS FROM DOS"
- SET IBSFTF="MONTH(S)"_U_IBFTV
- GOTO STNDQ
- +23 ;
- +24 IF IBFTU="YR"
- SET IBSFTF="YEAR(S)"_U_IBFTV
- GOTO STNDQ
- +25 IF IBFTU="YRS"
- SET IBSFTF="YEAR(S)"_U_IBFTV
- GOTO STNDQ
- +26 IF IBFTU="YEAR"
- SET IBSFTF="YEAR(S)"_U_IBFTV
- GOTO STNDQ
- +27 IF IBFTU="YEARS"
- SET IBSFTF="YEAR(S)"_U_IBFTV
- GOTO STNDQ
- +28 IF IBFTU="YR DOS"
- SET IBSFTF="YEAR(S)"_U_IBFTV
- GOTO STNDQ
- +29 IF IBFTU="YRS DOS"
- SET IBSFTF="YEAR(S)"_U_IBFTV
- GOTO STNDQ
- +30 IF IBFTU="YEAR DOS"
- SET IBSFTF="YEAR(S)"_U_IBFTV
- GOTO STNDQ
- +31 IF IBFTU="YEARS DOS"
- SET IBSFTF="YEAR(S)"_U_IBFTV
- GOTO STNDQ
- +32 IF IBFTU="YR FROM DOS"
- SET IBSFTF="YEAR(S)"_U_IBFTV
- GOTO STNDQ
- +33 IF IBFTU="YRS FROM DOS"
- SET IBSFTF="YEAR(S)"_U_IBFTV
- GOTO STNDQ
- +34 IF IBFTU="YEAR FROM DOS"
- SET IBSFTF="YEAR(S)"_U_IBFTV
- GOTO STNDQ
- +35 IF IBFTU="YEARS FROM DOS"
- SET IBSFTF="YEAR(S)"_U_IBFTV
- GOTO STNDQ
- +36 ;
- +37 IF IBFTF="3-31 FOL YR"
- SET IBSFTF="MONTHS OF FOLLOWING YEAR^3"
- GOTO STNDQ
- +38 IF IBFTF="3/31 FOL YR"
- SET IBSFTF="MONTHS OF FOLLOWING YEAR^3"
- GOTO STNDQ
- +39 IF IBFTF="3-31 FOLLOWING YR"
- SET IBSFTF="MONTHS OF FOLLOWING YEAR^3"
- GOTO STNDQ
- +40 IF IBFTF="3/31 FOLLOWING YR"
- SET IBSFTF="MONTHS OF FOLLOWING YEAR^3"
- GOTO STNDQ
- +41 IF IBFTF="3-31 FOLLOWING YEAR"
- SET IBSFTF="MONTHS OF FOLLOWING YEAR^3"
- GOTO STNDQ
- +42 IF IBFTF="3/31 FOLLOWING YEAR"
- SET IBSFTF="MONTHS OF FOLLOWING YEAR^3"
- GOTO STNDQ
- +43 ;
- +44 IF IBFTF="12-31 FOL YR"
- SET IBSFTF="END OF FOLLOWING YEAR"
- GOTO STNDQ
- +45 IF IBFTF="12/31 FOL YR"
- SET IBSFTF="END OF FOLLOWING YEAR"
- GOTO STNDQ
- +46 IF IBFTF="12-31 FOLLOWING YR"
- SET IBSFTF="END OF FOLLOWING YEAR"
- GOTO STNDQ
- +47 IF IBFTF="12/31 FOLLOWING YR"
- SET IBSFTF="END OF FOLLOWING YEAR"
- GOTO STNDQ
- +48 IF IBFTF="12-31 FOLLOWING YEAR"
- SET IBSFTF="END OF FOLLOWING YEAR"
- GOTO STNDQ
- +49 IF IBFTF="12/31 FOLLOWING YEAR"
- SET IBSFTF="END OF FOLLOWING YEAR"
- GOTO STNDQ
- +50 ;
- STNDQ IF IBSFTF'=""
- SET IBSFTF=$ORDER(^IBE(355.13,"B",$PIECE(IBSFTF,U,1),0))_U_IBSFTF
- +1 QUIT IBSFTF
- +2 ;
- MSG(IBA) ;
- +1 NEW IBM
- SET IBM(1)=" "
- SET IBM(2)=" "_$GET(IBA)
- +2 DO MES^XPDUTL(.IBM)
- +3 QUIT
