Routine: IBINI00I

IBINI00I	; ; 21-MAR-1994

	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

	Q:'DIFQ(36)  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y

Q	Q

	;;^DIC(36,0,"GL")

	;;=^DIC(36,

	;;^DIC("B","INSURANCE COMPANY",36)

;;=

	;;^DIC(36,"%D",0)

	;;=^^6^6^2940307^^^^

	;;^DIC(36,"%D",1,0)

	;;=This file contains the names and addresses of insurance companies as needed

	;;^DIC(36,"%D",2,0)

	;;=by the local facility.  The data in this file is NOT EDITABLE USING VA

	;;^DIC(36,"%D",3,0)

	;;=FILEMANAGER.  If a new entry needs to be made or an existing entry

	;;^DIC(36,"%D",4,0)

	;;=changed the user must be assigned the appropriate MAS or IB module option.

	;;^DIC(36,"%D",5,0)

;;=

	;;^DIC(36,"%D",6,0)

	;;=Per VHA Directive 10-93-142, this file definition should not be modified.

	;;^DD(36,0)

	;;=FIELD^^.16^82

	;;^DD(36,0,"DDA")

	;;=N

	;;^DD(36,0,"DT")

	;;=2940228

	;;^DD(36,0,"ID",.111)

	;;=W:$D(^(.11)) "   ",$P(^(.11),U,1)

	;;^DD(36,0,"ID",.112)

	;;=W ""

	;;^DD(36,0,"ID",.113)

	;;=W ""

	;;^DD(36,0,"ID",.114)

	;;=W:$D(^(.11)) "   ",$P(^(.11),U,4)

	;;^DD(36,0,"ID",.115)

	;;=S %I=Y,Y=$S('$D(^(.11)):"",$D(^DIC(5,+$P(^(.11),U,5),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(5,.01,0),U,2) D Y^DIQ:Y]"" W "   ",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I

	;;^DD(36,0,"ID",.116)

	;;=W ""

	;;^DD(36,0,"ID",1)

	;;=W:$D(^("0")) "   ",$P(^("0"),U,2)

	;;^DD(36,0,"IX","B",36,.01)

;;=

	;;^DD(36,0,"IX","C",36.03,.01)

;;=

	;;^DD(36,0,"NM","INSURANCE COMPANY")

;;=

	;;^DD(36,0,"PT",2.101,25)

;;=

	;;^DD(36,0,"PT",2.312,.01)

;;=

	;;^DD(36,0,"PT",36,.127)

;;=

	;;^DD(36,0,"PT",36,.139)

;;=

	;;^DD(36,0,"PT",36,.147)

;;=

	;;^DD(36,0,"PT",36,.157)

;;=

	;;^DD(36,0,"PT",36,.16)

;;=

	;;^DD(36,0,"PT",36,.167)

;;=

	;;^DD(36,0,"PT",36,.187)

;;=

	;;^DD(36,0,"PT",36.02,6)

;;=

	;;^DD(36,0,"PT",350.9,4.02)

;;=

	;;^DD(36,0,"PT",350.9,4.06)

;;=

	;;^DD(36,0,"PT",355.3,.01)

;;=

	;;^DD(36,0,"PT",356.2,.08)

;;=

	;;^DD(36,0,"PT",399,101)

;;=

	;;^DD(36,0,"PT",399,102)

;;=

	;;^DD(36,0,"PT",399,103)

;;=

	;;^DD(36,0,"PT",412,.01)

;;=

	;;^DD(36,0,"PT",430,19)

;;=

	;;^DD(36,0,"PT",430,19.1)

;;=

	;;^DD(36,0,"PT",513.85,11)

;;=

	;;^DD(36,0,"PT",500015.01,.01)

;;=

	;;^DD(36,.01,0)

	;;=NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X

	;;^DD(36,.01,.1)

	;;=INSURANCE COMPANY FILE

	;;^DD(36,.01,1,0)

	;;=^.1

	;;^DD(36,.01,1,1,0)

	;;=36^B

	;;^DD(36,.01,1,1,1)

	;;=S ^DIC(36,"B",$E(X,1,30),DA)=""

	;;^DD(36,.01,1,1,2)

	;;=K ^DIC(36,"B",$E(X,1,30),DA)

	;;^DD(36,.01,3)

	;;=ANSWER MUST BE 3-30 CHARACTERS IN LENGTH

	;;^DD(36,.01,21,0)

	;;=^^5^5^2940209^^^

	;;^DD(36,.01,21,1,0)

	;;=Enter the name of the insurance carrier which at least one patient seen

	;;^DD(36,.01,21,2,0)

	;;=at your facility has.  This information must be updated using the 'Insurance

	;;^DD(36,.01,21,3,0)

	;;=Company Entry/Edit' option, NOT using VA FileMan.  Editing of this data

	;;^DD(36,.01,21,4,0)

	;;=through a filemanager option could cause negative impacts on the MAS and

	;;^DD(36,.01,21,5,0)

	;;=IB software modules in addition to other DHCP modules.

	;;^DD(36,.01,"DEL",1,0)

	;;=I '$D(^XUSEC("IB INSURANCE SUPERVISOR",DUZ))!($O(^IBA(355.3,"B",DA,0))) W !!,"Deletion not allowed"

	;;^DD(36,.01,"DT")

	;;=2930226

	;;^DD(36,.05,0)

	;;=INACTIVE^SX^0:NO;1:YES;^0;5^Q

	;;^DD(36,.05,3)

	;;=ENTER 'YES' IF THIS COMPANY IS INACTIVE AND SHOULD NO LONGER BE ALLOWED FOR SELECTION.

	;;^DD(36,.05,21,0)

	;;=^^2^2^2911222^

	;;^DD(36,.05,21,1,0)

	;;=If this insurance company is no longer active in your area, enter INACTIVE

	;;^DD(36,.05,21,2,0)

	;;=here.  This will disallow users from selecting this insurance company entry.

	;;^DD(36,.05,"DEL",1,0)

	;;=I $D(DGINS)

	;;^DD(36,.05,"DT")

	;;=2930312

	;;^DD(36,.06,0)

	;;=ALLOW MULTIPLE BEDSECTIONS^S^0:NO;1:YES;^0;6^Q

	;;^DD(36,.06,3)

	;;=Enter whether or not this Insurance Company will accept multiple bedsections on a claim form.  If left blank a NO is assumed.

IBINI00I  ; ; 21-MAR-1994

 +1       ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94

 +2        IF 'DIFQ(36)

               QUIT

           FOR I=1:2

               SET X=$TEXT(Q+I)

               IF X=""

                   QUIT

               SET Y=$EXTRACT($TEXT(Q+I+1),4,999)

               SET X=$EXTRACT(X,4,999)

               IF $ASCII(Y)=126

                   SET I=I+1

                   SET Y=$EXTRACT(Y,2,999)_$EXTRACT($TEXT(Q+I+1),5,99)

               IF $ASCII(Y)=61

                   SET Y=$EXTRACT(Y,2,999)

               XECUTE NO

              IF '$TEST

                   SET @X=Y

Q          QUIT

 +1       ;;^DIC(36,0,"GL")

 +2       ;;=^DIC(36,

 +3       ;;^DIC("B","INSURANCE COMPANY",36)

 +4       ;;=

 +5       ;;^DIC(36,"%D",0)

 +6       ;;=^^6^6^2940307^^^^

 +7       ;;^DIC(36,"%D",1,0)

 +8       ;;=This file contains the names and addresses of insurance companies as needed

 +9       ;;^DIC(36,"%D",2,0)

 +10      ;;=by the local facility.  The data in this file is NOT EDITABLE USING VA

 +11      ;;^DIC(36,"%D",3,0)

 +12      ;;=FILEMANAGER.  If a new entry needs to be made or an existing entry

 +13      ;;^DIC(36,"%D",4,0)

 +14      ;;=changed the user must be assigned the appropriate MAS or IB module option.

 +15      ;;^DIC(36,"%D",5,0)

 +16      ;;=

 +17      ;;^DIC(36,"%D",6,0)

 +18      ;;=Per VHA Directive 10-93-142, this file definition should not be modified.

 +19      ;;^DD(36,0)

 +20      ;;=FIELD^^.16^82

 +21      ;;^DD(36,0,"DDA")

 +22      ;;=N

 +23      ;;^DD(36,0,"DT")

 +24      ;;=2940228

 +25      ;;^DD(36,0,"ID",.111)

 +26      ;;=W:$D(^(.11)) "   ",$P(^(.11),U,1)

 +27      ;;^DD(36,0,"ID",.112)

 +28      ;;=W ""

 +29      ;;^DD(36,0,"ID",.113)

 +30      ;;=W ""

 +31      ;;^DD(36,0,"ID",.114)

 +32      ;;=W:$D(^(.11)) "   ",$P(^(.11),U,4)

 +33      ;;^DD(36,0,"ID",.115)

 +34      ;;=S %I=Y,Y=$S('$D(^(.11)):"",$D(^DIC(5,+$P(^(.11),U,5),0))#2:$P(^(0),U,1),1:""),C=$P(^DD(5,.01,0),U,2) D Y^DIQ:Y]"" W "   ",Y,@("$E("_DIC_"%I,0),0)") S Y=%I K %I

 +35      ;;^DD(36,0,"ID",.116)

 +36      ;;=W ""

 +37      ;;^DD(36,0,"ID",1)

 +38      ;;=W:$D(^("0")) "   ",$P(^("0"),U,2)

 +39      ;;^DD(36,0,"IX","B",36,.01)

 +40      ;;=

 +41      ;;^DD(36,0,"IX","C",36.03,.01)

 +42      ;;=

 +43      ;;^DD(36,0,"NM","INSURANCE COMPANY")

 +44      ;;=

 +45      ;;^DD(36,0,"PT",2.101,25)

 +46      ;;=

 +47      ;;^DD(36,0,"PT",2.312,.01)

 +48      ;;=

 +49      ;;^DD(36,0,"PT",36,.127)

 +50      ;;=

 +51      ;;^DD(36,0,"PT",36,.139)

 +52      ;;=

 +53      ;;^DD(36,0,"PT",36,.147)

 +54      ;;=

 +55      ;;^DD(36,0,"PT",36,.157)

 +56      ;;=

 +57      ;;^DD(36,0,"PT",36,.16)

 +58      ;;=

 +59      ;;^DD(36,0,"PT",36,.167)

 +60      ;;=

 +61      ;;^DD(36,0,"PT",36,.187)

 +62      ;;=

 +63      ;;^DD(36,0,"PT",36.02,6)

 +64      ;;=

 +65      ;;^DD(36,0,"PT",350.9,4.02)

 +66      ;;=

 +67      ;;^DD(36,0,"PT",350.9,4.06)

 +68      ;;=

 +69      ;;^DD(36,0,"PT",355.3,.01)

 +70      ;;=

 +71      ;;^DD(36,0,"PT",356.2,.08)

 +72      ;;=

 +73      ;;^DD(36,0,"PT",399,101)

 +74      ;;=

 +75      ;;^DD(36,0,"PT",399,102)

 +76      ;;=

 +77      ;;^DD(36,0,"PT",399,103)

 +78      ;;=

 +79      ;;^DD(36,0,"PT",412,.01)

 +80      ;;=

 +81      ;;^DD(36,0,"PT",430,19)

 +82      ;;=

 +83      ;;^DD(36,0,"PT",430,19.1)

 +84      ;;=

 +85      ;;^DD(36,0,"PT",513.85,11)

 +86      ;;=

 +87      ;;^DD(36,0,"PT",500015.01,.01)

 +88      ;;=

 +89      ;;^DD(36,.01,0)

 +90      ;;=NAME^RFX^^0;1^K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X

 +91      ;;^DD(36,.01,.1)

 +92      ;;=INSURANCE COMPANY FILE

 +93      ;;^DD(36,.01,1,0)

 +94      ;;=^.1

 +95      ;;^DD(36,.01,1,1,0)

 +96      ;;=36^B

 +97      ;;^DD(36,.01,1,1,1)

 +98      ;;=S ^DIC(36,"B",$E(X,1,30),DA)=""

 +99      ;;^DD(36,.01,1,1,2)

 +100     ;;=K ^DIC(36,"B",$E(X,1,30),DA)

 +101     ;;^DD(36,.01,3)

 +102     ;;=ANSWER MUST BE 3-30 CHARACTERS IN LENGTH

 +103     ;;^DD(36,.01,21,0)

 +104     ;;=^^5^5^2940209^^^

 +105     ;;^DD(36,.01,21,1,0)

 +106     ;;=Enter the name of the insurance carrier which at least one patient seen

 +107     ;;^DD(36,.01,21,2,0)

 +108     ;;=at your facility has.  This information must be updated using the 'Insurance

 +109     ;;^DD(36,.01,21,3,0)

 +110     ;;=Company Entry/Edit' option, NOT using VA FileMan.  Editing of this data

 +111     ;;^DD(36,.01,21,4,0)

 +112     ;;=through a filemanager option could cause negative impacts on the MAS and

 +113     ;;^DD(36,.01,21,5,0)

 +114     ;;=IB software modules in addition to other DHCP modules.

 +115     ;;^DD(36,.01,"DEL",1,0)

 +116     ;;=I '$D(^XUSEC("IB INSURANCE SUPERVISOR",DUZ))!($O(^IBA(355.3,"B",DA,0))) W !!,"Deletion not allowed"

 +117     ;;^DD(36,.01,"DT")

 +118     ;;=2930226

 +119     ;;^DD(36,.05,0)

 +120     ;;=INACTIVE^SX^0:NO;1:YES;^0;5^Q

 +121     ;;^DD(36,.05,3)

 +122     ;;=ENTER 'YES' IF THIS COMPANY IS INACTIVE AND SHOULD NO LONGER BE ALLOWED FOR SELECTION.

 +123     ;;^DD(36,.05,21,0)

 +124     ;;=^^2^2^2911222^

 +125     ;;^DD(36,.05,21,1,0)

 +126     ;;=If this insurance company is no longer active in your area, enter INACTIVE

 +127     ;;^DD(36,.05,21,2,0)

 +128     ;;=here.  This will disallow users from selecting this insurance company entry.

 +129     ;;^DD(36,.05,"DEL",1,0)

 +130     ;;=I $D(DGINS)

 +131     ;;^DD(36,.05,"DT")

 +132     ;;=2930312

 +133     ;;^DD(36,.06,0)

 +134     ;;=ALLOW MULTIPLE BEDSECTIONS^S^0:NO;1:YES;^0;6^Q

 +135     ;;^DD(36,.06,3)

 +136     ;;=Enter whether or not this Insurance Company will accept multiple bedsections on a claim form.  If left blank a NO is assumed.

IBINI00I.m