IBINI0A8 ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQ(399) 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
;;^DD(399,53,.1)
;;=CPT PROCEDURE CODE (3)
;;^DD(399,53,1,0)
;;=^.1^^0
;;^DD(399,53,3)
;;=CPT outpatient procedure codes may only be selected if CPT is specified as the Procedure Coding Method for this outpatient bill.
;;^DD(399,53,12)
;;=Only CPT codes may be selected!!
;;^DD(399,53,12.1)
;;=S DIC("S")="I $P(^(0),""^"",1)?5N"
;;^DD(399,53,21,0)
;;=^^3^3^2911104^^
;;^DD(399,53,21,1,0)
;;=This is a CPT outpatient procedure code.
;;^DD(399,53,21,2,0)
;;=
;;^DD(399,53,21,3,0)
;;=This field has been marked for deletion on 11/4/91.
;;^DD(399,53,"DT")
;;=2920122
;;^DD(399,54,0)
;;=*ICD PROCEDURE CODE (1)^P80.1'^ICD0(^C;4^Q
;;^DD(399,54,1,0)
;;=^.1^^0
;;^DD(399,54,3)
;;=Enter ICD procedure code associated with the outpatient episode of care.
;;^DD(399,54,21,0)
;;=^^3^3^2911104^^^
;;^DD(399,54,21,1,0)
;;=This is an ICD outpatient procedure code.
;;^DD(399,54,21,2,0)
;;=
;;^DD(399,54,21,3,0)
;;=This field is marked for deletion on 11/4/91.
;;^DD(399,54,"DT")
;;=2920122
;;^DD(399,55,0)
;;=*ICD PROCEDURE CODE (2)^P80.1'^ICD0(^C;5^Q
;;^DD(399,55,.1)
;;=ICD PROCEDURE CODE (2)
;;^DD(399,55,1,0)
;;=^.1^^0
;;^DD(399,55,3)
;;=Enter ICD procedure code associated with this outpatient episode of care.
;;^DD(399,55,21,0)
;;=^^3^3^2920526^^^
;;^DD(399,55,21,1,0)
;;=This is an ICD outpatient procedure code.
;;^DD(399,55,21,2,0)
;;=
;;^DD(399,55,21,3,0)
;;=This field is marked of deletion on 11/4/91.
;;^DD(399,55,"DT")
;;=2920122
;;^DD(399,56,0)
;;=*ICD PROCEDURE CODE (3)^P80.1'^ICD0(^C;6^Q
;;^DD(399,56,.1)
;;=ICD PROCEDURE CODE (3)
;;^DD(399,56,1,0)
;;=^.1^^0
;;^DD(399,56,3)
;;=Enter ICD procedure code associated with this outpatient episode of care.
;;^DD(399,56,21,0)
;;=^^3^3^2911104^^
;;^DD(399,56,21,1,0)
;;=This is an ICD outpatient procedure code.
;;^DD(399,56,21,2,0)
;;=
;;^DD(399,56,21,3,0)
;;=This field is marked for deletion on 11/4/91.
;;^DD(399,56,"DT")
;;=2920122
;;^DD(399,57,0)
;;=*HCFA PROCEDURE CODE (1)^*P81'X^ICPT(^C;7^S D="F" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
;;^DD(399,57,.1)
;;=HCFA PROCEDURE CODE (1)
;;^DD(399,57,1,0)
;;=^.1^^0
;;^DD(399,57,3)
;;=Enter HCFA procedure code associated with this outpatient episode of care.
;;^DD(399,57,12)
;;=Only HCFA codes may be selected!!
;;^DD(399,57,12.1)
;;=S DIC("S")="I $P(^(0),""^"",1)?1A.N"
;;^DD(399,57,21,0)
;;=^^3^3^2911104^^^^
;;^DD(399,57,21,1,0)
;;=This is a HCFA outpatient procedure code.
;;^DD(399,57,21,2,0)
;;=
;;^DD(399,57,21,3,0)
;;=This field is marked for deletion on 11/4/91.
;;^DD(399,57,"DT")
;;=2920122
;;^DD(399,58,0)
;;=*HCFA PROCEDURE CODE (2)^*P81'X^ICPT(^C;8^S D="F" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
;;^DD(399,58,.1)
;;=HCFA PROCEDURE CODE (2)
;;^DD(399,58,1,0)
;;=^.1^^0
;;^DD(399,58,3)
;;=Enter HCFA procedure code associated with this outpatient episode of care.
;;^DD(399,58,12)
;;=Only HCFA codes may be selected!!
;;^DD(399,58,12.1)
;;=S DIC("S")="I $P(^(0),""^"",1)?1A.N"
;;^DD(399,58,21,0)
;;=^^3^3^2911104^^
;;^DD(399,58,21,1,0)
;;=This is a HCFA outpatient procedure code.
;;^DD(399,58,21,2,0)
;;=
;;^DD(399,58,21,3,0)
;;=This field has been marked for deletion on 11/4/91.
;;^DD(399,58,"DT")
;;=2920122
;;^DD(399,59,0)
;;=*HCFA PROCEDURE CODE (3)^*P81'X^ICPT(^C;9^S D="F" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
;;^DD(399,59,.1)
;;=*HCFA PROCDURE CODE (3)
;;^DD(399,59,1,0)
;;=^.1^^0
;;^DD(399,59,3)
;;=Enter HCFA procedure code associated with this outpatient episode of care.
;;^DD(399,59,12)
;;=Only HCFA codes may be selected!!
IBINI0A8 ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQ(399)
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 ;;^DD(399,53,.1)
+2 ;;=CPT PROCEDURE CODE (3)
+3 ;;^DD(399,53,1,0)
+4 ;;=^.1^^0
+5 ;;^DD(399,53,3)
+6 ;;=CPT outpatient procedure codes may only be selected if CPT is specified as the Procedure Coding Method for this outpatient bill.
+7 ;;^DD(399,53,12)
+8 ;;=Only CPT codes may be selected!!
+9 ;;^DD(399,53,12.1)
+10 ;;=S DIC("S")="I $P(^(0),""^"",1)?5N"
+11 ;;^DD(399,53,21,0)
+12 ;;=^^3^3^2911104^^
+13 ;;^DD(399,53,21,1,0)
+14 ;;=This is a CPT outpatient procedure code.
+15 ;;^DD(399,53,21,2,0)
+16 ;;=
+17 ;;^DD(399,53,21,3,0)
+18 ;;=This field has been marked for deletion on 11/4/91.
+19 ;;^DD(399,53,"DT")
+20 ;;=2920122
+21 ;;^DD(399,54,0)
+22 ;;=*ICD PROCEDURE CODE (1)^P80.1'^ICD0(^C;4^Q
+23 ;;^DD(399,54,1,0)
+24 ;;=^.1^^0
+25 ;;^DD(399,54,3)
+26 ;;=Enter ICD procedure code associated with the outpatient episode of care.
+27 ;;^DD(399,54,21,0)
+28 ;;=^^3^3^2911104^^^
+29 ;;^DD(399,54,21,1,0)
+30 ;;=This is an ICD outpatient procedure code.
+31 ;;^DD(399,54,21,2,0)
+32 ;;=
+33 ;;^DD(399,54,21,3,0)
+34 ;;=This field is marked for deletion on 11/4/91.
+35 ;;^DD(399,54,"DT")
+36 ;;=2920122
+37 ;;^DD(399,55,0)
+38 ;;=*ICD PROCEDURE CODE (2)^P80.1'^ICD0(^C;5^Q
+39 ;;^DD(399,55,.1)
+40 ;;=ICD PROCEDURE CODE (2)
+41 ;;^DD(399,55,1,0)
+42 ;;=^.1^^0
+43 ;;^DD(399,55,3)
+44 ;;=Enter ICD procedure code associated with this outpatient episode of care.
+45 ;;^DD(399,55,21,0)
+46 ;;=^^3^3^2920526^^^
+47 ;;^DD(399,55,21,1,0)
+48 ;;=This is an ICD outpatient procedure code.
+49 ;;^DD(399,55,21,2,0)
+50 ;;=
+51 ;;^DD(399,55,21,3,0)
+52 ;;=This field is marked of deletion on 11/4/91.
+53 ;;^DD(399,55,"DT")
+54 ;;=2920122
+55 ;;^DD(399,56,0)
+56 ;;=*ICD PROCEDURE CODE (3)^P80.1'^ICD0(^C;6^Q
+57 ;;^DD(399,56,.1)
+58 ;;=ICD PROCEDURE CODE (3)
+59 ;;^DD(399,56,1,0)
+60 ;;=^.1^^0
+61 ;;^DD(399,56,3)
+62 ;;=Enter ICD procedure code associated with this outpatient episode of care.
+63 ;;^DD(399,56,21,0)
+64 ;;=^^3^3^2911104^^
+65 ;;^DD(399,56,21,1,0)
+66 ;;=This is an ICD outpatient procedure code.
+67 ;;^DD(399,56,21,2,0)
+68 ;;=
+69 ;;^DD(399,56,21,3,0)
+70 ;;=This field is marked for deletion on 11/4/91.
+71 ;;^DD(399,56,"DT")
+72 ;;=2920122
+73 ;;^DD(399,57,0)
+74 ;;=*HCFA PROCEDURE CODE (1)^*P81'X^ICPT(^C;7^S D="F" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
+75 ;;^DD(399,57,.1)
+76 ;;=HCFA PROCEDURE CODE (1)
+77 ;;^DD(399,57,1,0)
+78 ;;=^.1^^0
+79 ;;^DD(399,57,3)
+80 ;;=Enter HCFA procedure code associated with this outpatient episode of care.
+81 ;;^DD(399,57,12)
+82 ;;=Only HCFA codes may be selected!!
+83 ;;^DD(399,57,12.1)
+84 ;;=S DIC("S")="I $P(^(0),""^"",1)?1A.N"
+85 ;;^DD(399,57,21,0)
+86 ;;=^^3^3^2911104^^^^
+87 ;;^DD(399,57,21,1,0)
+88 ;;=This is a HCFA outpatient procedure code.
+89 ;;^DD(399,57,21,2,0)
+90 ;;=
+91 ;;^DD(399,57,21,3,0)
+92 ;;=This field is marked for deletion on 11/4/91.
+93 ;;^DD(399,57,"DT")
+94 ;;=2920122
+95 ;;^DD(399,58,0)
+96 ;;=*HCFA PROCEDURE CODE (2)^*P81'X^ICPT(^C;8^S D="F" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
+97 ;;^DD(399,58,.1)
+98 ;;=HCFA PROCEDURE CODE (2)
+99 ;;^DD(399,58,1,0)
+100 ;;=^.1^^0
+101 ;;^DD(399,58,3)
+102 ;;=Enter HCFA procedure code associated with this outpatient episode of care.
+103 ;;^DD(399,58,12)
+104 ;;=Only HCFA codes may be selected!!
+105 ;;^DD(399,58,12.1)
+106 ;;=S DIC("S")="I $P(^(0),""^"",1)?1A.N"
+107 ;;^DD(399,58,21,0)
+108 ;;=^^3^3^2911104^^
+109 ;;^DD(399,58,21,1,0)
+110 ;;=This is a HCFA outpatient procedure code.
+111 ;;^DD(399,58,21,2,0)
+112 ;;=
+113 ;;^DD(399,58,21,3,0)
+114 ;;=This field has been marked for deletion on 11/4/91.
+115 ;;^DD(399,58,"DT")
+116 ;;=2920122
+117 ;;^DD(399,59,0)
+118 ;;=*HCFA PROCEDURE CODE (3)^*P81'X^ICPT(^C;9^S D="F" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
+119 ;;^DD(399,59,.1)
+120 ;;=*HCFA PROCDURE CODE (3)
+121 ;;^DD(399,59,1,0)
+122 ;;=^.1^^0
+123 ;;^DD(399,59,3)
+124 ;;=Enter HCFA procedure code associated with this outpatient episode of care.
+125 ;;^DD(399,59,12)
+126 ;;=Only HCFA codes may be selected!!
