IBONI042 ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
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
;;^UTILITY(U,$J,"PRO",1082,1,0)
;;=^^1^1^2931124^
;;^UTILITY(U,$J,"PRO",1082,1,1,0)
;;=Allows forms to be compiled into a format that is very fast to print.
;;^UTILITY(U,$J,"PRO",1082,2,0)
;;=^101.02A^1^1
;;^UTILITY(U,$J,"PRO",1082,2,1,0)
;;=RC
;;^UTILITY(U,$J,"PRO",1082,2,"B","RC",1)
;;=
;;^UTILITY(U,$J,"PRO",1082,20)
;;=D CMPLACTN^IBDF19
;;^UTILITY(U,$J,"PRO",1082,99)
;;=55853,51175
;;^UTILITY(U,$J,"PRO",1102,0)
;;=IBCNSC INS CO RX CLAIMS^Prescr Claims Of^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",1102,4)
;;=^^^PC
;;^UTILITY(U,$J,"PRO",1102,10,0)
;;=^101.01PA^^
;;^UTILITY(U,$J,"PRO",1102,15)
;;=S VALMBG=27
;;^UTILITY(U,$J,"PRO",1102,20)
;;=S IBY=",11," D EA^IBCNSC1
;;^UTILITY(U,$J,"PRO",1102,99)
;;=55886,42441
;;^UTILITY(U,$J,"PRO",1103,0)
;;=IBCNS QUIT^Exit^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",1103,4)
;;=^^^EX
;;^UTILITY(U,$J,"PRO",1103,15)
;;=S VALMBCK="Q"
;;^UTILITY(U,$J,"PRO",1103,20)
;;=S VALMBCK="Q"
;;^UTILITY(U,$J,"PRO",1103,99)
;;=55894,56470
;;^UTILITY(U,$J,"PRO",1104,0)
;;=IBTRC CHANGE PATIENT^Change Patient^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",1104,20)
;;=D CP^IBTRC1
;;^UTILITY(U,$J,"PRO",1104,99)
;;=55900,51856
;;^UTILITY(U,$J,"PRO",1105,0)
;;=IBTRV CHANGE PATIENT^Change Patient^^A^^^^^^^^INTEGRATED BILLING
;;^UTILITY(U,$J,"PRO",1105,20)
;;=D CP^IBTRV1
;;^UTILITY(U,$J,"PRO",1105,99)
;;=55900,51918
IBONI042 ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 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 ;;^UTILITY(U,$J,"PRO",1082,1,0)
+2 ;;=^^1^1^2931124^
+3 ;;^UTILITY(U,$J,"PRO",1082,1,1,0)
+4 ;;=Allows forms to be compiled into a format that is very fast to print.
+5 ;;^UTILITY(U,$J,"PRO",1082,2,0)
+6 ;;=^101.02A^1^1
+7 ;;^UTILITY(U,$J,"PRO",1082,2,1,0)
+8 ;;=RC
+9 ;;^UTILITY(U,$J,"PRO",1082,2,"B","RC",1)
+10 ;;=
+11 ;;^UTILITY(U,$J,"PRO",1082,20)
+12 ;;=D CMPLACTN^IBDF19
+13 ;;^UTILITY(U,$J,"PRO",1082,99)
+14 ;;=55853,51175
+15 ;;^UTILITY(U,$J,"PRO",1102,0)
+16 ;;=IBCNSC INS CO RX CLAIMS^Prescr Claims Of^^A^^^^^^^^INTEGRATED BILLING
+17 ;;^UTILITY(U,$J,"PRO",1102,4)
+18 ;;=^^^PC
+19 ;;^UTILITY(U,$J,"PRO",1102,10,0)
+20 ;;=^101.01PA^^
+21 ;;^UTILITY(U,$J,"PRO",1102,15)
+22 ;;=S VALMBG=27
+23 ;;^UTILITY(U,$J,"PRO",1102,20)
+24 ;;=S IBY=",11," D EA^IBCNSC1
+25 ;;^UTILITY(U,$J,"PRO",1102,99)
+26 ;;=55886,42441
+27 ;;^UTILITY(U,$J,"PRO",1103,0)
+28 ;;=IBCNS QUIT^Exit^^A^^^^^^^^INTEGRATED BILLING
+29 ;;^UTILITY(U,$J,"PRO",1103,4)
+30 ;;=^^^EX
+31 ;;^UTILITY(U,$J,"PRO",1103,15)
+32 ;;=S VALMBCK="Q"
+33 ;;^UTILITY(U,$J,"PRO",1103,20)
+34 ;;=S VALMBCK="Q"
+35 ;;^UTILITY(U,$J,"PRO",1103,99)
+36 ;;=55894,56470
+37 ;;^UTILITY(U,$J,"PRO",1104,0)
+38 ;;=IBTRC CHANGE PATIENT^Change Patient^^A^^^^^^^^INTEGRATED BILLING
+39 ;;^UTILITY(U,$J,"PRO",1104,20)
+40 ;;=D CP^IBTRC1
+41 ;;^UTILITY(U,$J,"PRO",1104,99)
+42 ;;=55900,51856
+43 ;;^UTILITY(U,$J,"PRO",1105,0)
+44 ;;=IBTRV CHANGE PATIENT^Change Patient^^A^^^^^^^^INTEGRATED BILLING
+45 ;;^UTILITY(U,$J,"PRO",1105,20)
+46 ;;=D CP^IBTRV1
+47 ;;^UTILITY(U,$J,"PRO",1105,99)
+48 ;;=55900,51918