IBINI03F ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQ(353) 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(353,0,"GL")
;;=^IBE(353,
;;^DIC("B","BILL FORM TYPE",353)
;;=
;;^DIC(353,"%D",0)
;;=^^13^13^2940214^^^^
;;^DIC(353,"%D",1,0)
;;=This is a reference file containing the types of health insurance
;;^DIC(353,"%D",2,0)
;;=claim forms used in billing.
;;^DIC(353,"%D",3,0)
;;=
;;^DIC(353,"%D",4,0)
;;=Sites may add local forms to this file however, the number of entries
;;^DIC(353,"%D",5,0)
;;=for locally added forms should be in the stations number range of
;;^DIC(353,"%D",6,0)
;;=Station number time 1000.
;;^DIC(353,"%D",7,0)
;;=
;;^DIC(353,"%D",8,0)
;;=If other than UB-82 forms are pointed to by the BILL/CLAIMS file, then
;;^DIC(353,"%D",9,0)
;;=the follow-up letter job will create a separate tasked job for each
;;^DIC(353,"%D",10,0)
;;=bill to the Follow-up Printer for that form using the specified routine
;;^DIC(353,"%D",11,0)
;;=for that form.
;;^DIC(353,"%D",12,0)
;;=
;;^DIC(353,"%D",13,0)
;;=Per VHA Directive 10-93-142, this file definition should not be modified.
;;^DD(353,0)
;;=FIELD^^.001^5
;;^DD(353,0,"DDA")
;;=N
;;^DD(353,0,"DT")
;;=2940112
;;^DD(353,0,"IX","B",353,.01)
;;=
;;^DD(353,0,"NM","BILL FORM TYPE")
;;=
;;^DD(353,0,"PT",36,.14)
;;=
;;^DD(353,0,"PT",350.9,1.26)
;;=
;;^DD(353,0,"PT",399,.19)
;;=
;;^DD(353,.001,0)
;;=NUMBER^NJ7,0^^ ^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
;;^DD(353,.001,3)
;;=Type a Number between 1 and 9999999, 0 Decimal Digits
;;^DD(353,.001,21,0)
;;=^^2^2^2920427^^
;;^DD(353,.001,21,1,0)
;;=Enter a number that is within the number range for your facility,
;;^DD(353,.001,21,2,0)
;;=that is xxx000 to xxx999 where xxx is your station number.
;;^DD(353,.001,"DT")
;;=2920427
;;^DD(353,.01,0)
;;=NAME^RF^^0;1^K:$L(X)>20!($L(X)<3)!'(X'?1P.E) X
;;^DD(353,.01,1,0)
;;=^.1
;;^DD(353,.01,1,1,0)
;;=353^B
;;^DD(353,.01,1,1,1)
;;=S ^IBE(353,"B",$E(X,1,30),DA)=""
;;^DD(353,.01,1,1,2)
;;=K ^IBE(353,"B",$E(X,1,30),DA)
;;^DD(353,.01,3)
;;=Answer must be 3-20 characters in length.
;;^DD(353,.01,21,0)
;;=^^1^1^2920427^^^
;;^DD(353,.01,21,1,0)
;;=This field names a type of form that is available for billing purposes.
;;^DD(353,.01,"DEL",1,0)
;;=I DA<999 W !,"Deleting Standard entries not allowed"
;;^DD(353,.01,"DT")
;;=2920410
;;^DD(353,.02,0)
;;=DEFAULT PRINTER (BILLING)^FX^^0;2^S IBL=X,X=$P(X,";"),DIC=3.5,DIC(0)="EQ" D ^DIC K:Y'>0!(X=" ") X S:$D(X) X=X_$S(IBL[";":";"_$P(IBL,";",2,99),1:"") K IBL S DIC=DIE
;;^DD(353,.02,3)
;;=Enter the device that is the default billing printer for this form.
;;^DD(353,.02,4)
;;=S DIC=3.5,DIC(0)="E",X="?" D ^DIC S DIC=DIE
;;^DD(353,.02,21,0)
;;=^^2^2^2940112^^
;;^DD(353,.02,21,1,0)
;;=This is the default printer that will appear at selected prompts for
;;^DD(353,.02,21,2,0)
;;=this form type.
;;^DD(353,.02,"DT")
;;=2920427
;;^DD(353,.03,0)
;;=FOLLOW-UP PRINTER (A/R)^FX^^0;3^S IBL=X,X=$P(X,";"),DIC=3.5,DIC(0)="EQ" D ^DIC K:Y'>0!(X=" ") X S:$D(X) X=X_$S(IBL[";":";"_$P(IBL,";",2,99),1:"") K IBL S DIC=DIE
;;^DD(353,.03,3)
;;=Enter the device that is the default printer for follow-up bills for this form type.
;;^DD(353,.03,4)
;;=S DIC=3.5,DIC(0)="E",X="?" D ^DIC S DIC=DIE
;;^DD(353,.03,21,0)
;;=^^2^2^2940213^^^^
;;^DD(353,.03,21,1,0)
;;=For forms other than the UB-82/UB-92, this is the default printer that has this
;;^DD(353,.03,21,2,0)
;;=form mounted for follow-up letter/forms for Accounts Receivable.
;;^DD(353,.03,"DT")
;;=2920427
;;^DD(353,1.01,0)
;;=ROUTINE^FX^^1;E1,245^K:$L(X)>25!($L(X)<1)!(X'?.1ANP.7AN.1"^"1ANP.7AN) X
IBINI03F ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQ(353)
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(353,0,"GL")
+2 ;;=^IBE(353,
+3 ;;^DIC("B","BILL FORM TYPE",353)
+4 ;;=
+5 ;;^DIC(353,"%D",0)
+6 ;;=^^13^13^2940214^^^^
+7 ;;^DIC(353,"%D",1,0)
+8 ;;=This is a reference file containing the types of health insurance
+9 ;;^DIC(353,"%D",2,0)
+10 ;;=claim forms used in billing.
+11 ;;^DIC(353,"%D",3,0)
+12 ;;=
+13 ;;^DIC(353,"%D",4,0)
+14 ;;=Sites may add local forms to this file however, the number of entries
+15 ;;^DIC(353,"%D",5,0)
+16 ;;=for locally added forms should be in the stations number range of
+17 ;;^DIC(353,"%D",6,0)
+18 ;;=Station number time 1000.
+19 ;;^DIC(353,"%D",7,0)
+20 ;;=
+21 ;;^DIC(353,"%D",8,0)
+22 ;;=If other than UB-82 forms are pointed to by the BILL/CLAIMS file, then
+23 ;;^DIC(353,"%D",9,0)
+24 ;;=the follow-up letter job will create a separate tasked job for each
+25 ;;^DIC(353,"%D",10,0)
+26 ;;=bill to the Follow-up Printer for that form using the specified routine
+27 ;;^DIC(353,"%D",11,0)
+28 ;;=for that form.
+29 ;;^DIC(353,"%D",12,0)
+30 ;;=
+31 ;;^DIC(353,"%D",13,0)
+32 ;;=Per VHA Directive 10-93-142, this file definition should not be modified.
+33 ;;^DD(353,0)
+34 ;;=FIELD^^.001^5
+35 ;;^DD(353,0,"DDA")
+36 ;;=N
+37 ;;^DD(353,0,"DT")
+38 ;;=2940112
+39 ;;^DD(353,0,"IX","B",353,.01)
+40 ;;=
+41 ;;^DD(353,0,"NM","BILL FORM TYPE")
+42 ;;=
+43 ;;^DD(353,0,"PT",36,.14)
+44 ;;=
+45 ;;^DD(353,0,"PT",350.9,1.26)
+46 ;;=
+47 ;;^DD(353,0,"PT",399,.19)
+48 ;;=
+49 ;;^DD(353,.001,0)
+50 ;;=NUMBER^NJ7,0^^ ^K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
+51 ;;^DD(353,.001,3)
+52 ;;=Type a Number between 1 and 9999999, 0 Decimal Digits
+53 ;;^DD(353,.001,21,0)
+54 ;;=^^2^2^2920427^^
+55 ;;^DD(353,.001,21,1,0)
+56 ;;=Enter a number that is within the number range for your facility,
+57 ;;^DD(353,.001,21,2,0)
+58 ;;=that is xxx000 to xxx999 where xxx is your station number.
+59 ;;^DD(353,.001,"DT")
+60 ;;=2920427
+61 ;;^DD(353,.01,0)
+62 ;;=NAME^RF^^0;1^K:$L(X)>20!($L(X)<3)!'(X'?1P.E) X
+63 ;;^DD(353,.01,1,0)
+64 ;;=^.1
+65 ;;^DD(353,.01,1,1,0)
+66 ;;=353^B
+67 ;;^DD(353,.01,1,1,1)
+68 ;;=S ^IBE(353,"B",$E(X,1,30),DA)=""
+69 ;;^DD(353,.01,1,1,2)
+70 ;;=K ^IBE(353,"B",$E(X,1,30),DA)
+71 ;;^DD(353,.01,3)
+72 ;;=Answer must be 3-20 characters in length.
+73 ;;^DD(353,.01,21,0)
+74 ;;=^^1^1^2920427^^^
+75 ;;^DD(353,.01,21,1,0)
+76 ;;=This field names a type of form that is available for billing purposes.
+77 ;;^DD(353,.01,"DEL",1,0)
+78 ;;=I DA<999 W !,"Deleting Standard entries not allowed"
+79 ;;^DD(353,.01,"DT")
+80 ;;=2920410
+81 ;;^DD(353,.02,0)
+82 ;;=DEFAULT PRINTER (BILLING)^FX^^0;2^S IBL=X,X=$P(X,";"),DIC=3.5,DIC(0)="EQ" D ^DIC K:Y'>0!(X=" ") X S:$D(X) X=X_$S(IBL[";":";"_$P(IBL,";",2,99),1:"") K IBL S DIC=DIE
+83 ;;^DD(353,.02,3)
+84 ;;=Enter the device that is the default billing printer for this form.
+85 ;;^DD(353,.02,4)
+86 ;;=S DIC=3.5,DIC(0)="E",X="?" D ^DIC S DIC=DIE
+87 ;;^DD(353,.02,21,0)
+88 ;;=^^2^2^2940112^^
+89 ;;^DD(353,.02,21,1,0)
+90 ;;=This is the default printer that will appear at selected prompts for
+91 ;;^DD(353,.02,21,2,0)
+92 ;;=this form type.
+93 ;;^DD(353,.02,"DT")
+94 ;;=2920427
+95 ;;^DD(353,.03,0)
+96 ;;=FOLLOW-UP PRINTER (A/R)^FX^^0;3^S IBL=X,X=$P(X,";"),DIC=3.5,DIC(0)="EQ" D ^DIC K:Y'>0!(X=" ") X S:$D(X) X=X_$S(IBL[";":";"_$P(IBL,";",2,99),1:"") K IBL S DIC=DIE
+97 ;;^DD(353,.03,3)
+98 ;;=Enter the device that is the default printer for follow-up bills for this form type.
+99 ;;^DD(353,.03,4)
+100 ;;=S DIC=3.5,DIC(0)="E",X="?" D ^DIC S DIC=DIE
+101 ;;^DD(353,.03,21,0)
+102 ;;=^^2^2^2940213^^^^
+103 ;;^DD(353,.03,21,1,0)
+104 ;;=For forms other than the UB-82/UB-92, this is the default printer that has this
+105 ;;^DD(353,.03,21,2,0)
+106 ;;=form mounted for follow-up letter/forms for Accounts Receivable.
+107 ;;^DD(353,.03,"DT")
+108 ;;=2920427
+109 ;;^DD(353,1.01,0)
+110 ;;=ROUTINE^FX^^1;E1,245^K:$L(X)>25!($L(X)<1)!(X'?.1ANP.7AN.1"^"1ANP.7AN) X
