IBINI02V ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQ(350.9) 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(350.9,6.11,21,0)
;;=^^1^1^2930805^
;;^DD(350.9,6.11,21,1,0)
;;=This is the number of random selections generated this week.
;;^DD(350.9,6.11,"DT")
;;=2930804
;;^DD(350.9,6.12,0)
;;=MEDICINE ADMISSION COUNTER^NJ2,0^^6;12^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
;;^DD(350.9,6.12,3)
;;=Type a Number between 1 and 99, 0 Decimal Digits
;;^DD(350.9,6.12,21,0)
;;=^^2^2^2930805^
;;^DD(350.9,6.12,21,1,0)
;;=This is the number of admissions for this service counted by the
;;^DD(350.9,6.12,21,2,0)
;;=claims tracking module so far this week.
;;^DD(350.9,6.12,"DT")
;;=2930804
;;^DD(350.9,6.13,0)
;;=SURGERY SAMPLE SIZE^NJ2,0^^6;13^K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
;;^DD(350.9,6.13,3)
;;=Type a Number between 0 and 99, 0 Decimal Digits
;;^DD(350.9,6.13,21,0)
;;=^^3^3^2930901^^
;;^DD(350.9,6.13,21,1,0)
;;=This is the number of required Utilization Reviews that you wish to have
;;^DD(350.9,6.13,21,2,0)
;;=done each week for Surgery admissions. The minimum recommended by
;;^DD(350.9,6.13,21,3,0)
;;=the QA office is one per week.
;;^DD(350.9,6.13,"DT")
;;=2940113
;;^DD(350.9,6.14,0)
;;=SURGERY WEEKLY ADMISSIONS^NJ2,0^^6;14^K:+X'=X!(X>99)!(X<5)!(X?.E1"."1N.N) X
;;^DD(350.9,6.14,3)
;;=Type a Number between 5 and 99, 0 Decimal Digits
;;^DD(350.9,6.14,21,0)
;;=^^3^3^2930805^^
;;^DD(350.9,6.14,21,1,0)
;;=This is the minimum number of admissions for Surgery that your Medical
;;^DD(350.9,6.14,21,2,0)
;;=Center generally averages. This is used along with the Surgery
;;^DD(350.9,6.14,21,3,0)
;;=sample size to compute a random number.
;;^DD(350.9,6.14,"DT")
;;=2930901
;;^DD(350.9,6.15,0)
;;=SURGERY RANDOM NUMBER^NJ2,0^^6;15^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
;;^DD(350.9,6.15,3)
;;=Type a Number between 1 and 99, 0 Decimal Digits
;;^DD(350.9,6.15,21,0)
;;=^^4^4^2940209^^^
;;^DD(350.9,6.15,21,1,0)
;;=This is an internally computed random number. It is re-computed each
;;^DD(350.9,6.15,21,2,0)
;;=week. When the count of the Surgery admissions reaches a multiple of
;;^DD(350.9,6.15,21,3,0)
;;=this number it is considered the random selection. The total number
;;^DD(350.9,6.15,21,4,0)
;;=of random selections for UR will not exceed the Surgery sample size.
;;^DD(350.9,6.15,"DT")
;;=2930804
;;^DD(350.9,6.16,0)
;;=SURGERY ENTRIES MET^NJ2,0^^6;16^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
;;^DD(350.9,6.16,3)
;;=Type a Number between 1 and 99, 0 Decimal Digits
;;^DD(350.9,6.16,21,0)
;;=^^1^1^2930805^
;;^DD(350.9,6.16,21,1,0)
;;=This is the number of random selections generated this week.
;;^DD(350.9,6.16,"DT")
;;=2930804
;;^DD(350.9,6.17,0)
;;=SURGERY ADMISSION COUNTER^NJ2,0^^6;17^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
;;^DD(350.9,6.17,3)
;;=Type a Number between 1 and 99, 0 Decimal Digits
;;^DD(350.9,6.17,21,0)
;;=^^2^2^2930805^
;;^DD(350.9,6.17,21,1,0)
;;=This is the number of admissions for this service counted by the
;;^DD(350.9,6.17,21,2,0)
;;=claims tracking module so far this week.
;;^DD(350.9,6.17,"DT")
;;=2930804
;;^DD(350.9,6.18,0)
;;=PSYCH SAMPLE SIZE^NJ2,0^^6;18^K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
;;^DD(350.9,6.18,3)
;;=Type a Number between 0 and 99, 0 Decimal Digits
;;^DD(350.9,6.18,21,0)
;;=^^3^3^2930805^
;;^DD(350.9,6.18,21,1,0)
;;=This is the number of required Utilization Reviews that you wish to have
;;^DD(350.9,6.18,21,2,0)
;;=done each week for Psychiatry admissions. The minimum recommended by
;;^DD(350.9,6.18,21,3,0)
;;=the QA office is one per week.
;;^DD(350.9,6.18,"DT")
;;=2940113
IBINI02V ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQ(350.9)
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(350.9,6.11,21,0)
+2 ;;=^^1^1^2930805^
+3 ;;^DD(350.9,6.11,21,1,0)
+4 ;;=This is the number of random selections generated this week.
+5 ;;^DD(350.9,6.11,"DT")
+6 ;;=2930804
+7 ;;^DD(350.9,6.12,0)
+8 ;;=MEDICINE ADMISSION COUNTER^NJ2,0^^6;12^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
+9 ;;^DD(350.9,6.12,3)
+10 ;;=Type a Number between 1 and 99, 0 Decimal Digits
+11 ;;^DD(350.9,6.12,21,0)
+12 ;;=^^2^2^2930805^
+13 ;;^DD(350.9,6.12,21,1,0)
+14 ;;=This is the number of admissions for this service counted by the
+15 ;;^DD(350.9,6.12,21,2,0)
+16 ;;=claims tracking module so far this week.
+17 ;;^DD(350.9,6.12,"DT")
+18 ;;=2930804
+19 ;;^DD(350.9,6.13,0)
+20 ;;=SURGERY SAMPLE SIZE^NJ2,0^^6;13^K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
+21 ;;^DD(350.9,6.13,3)
+22 ;;=Type a Number between 0 and 99, 0 Decimal Digits
+23 ;;^DD(350.9,6.13,21,0)
+24 ;;=^^3^3^2930901^^
+25 ;;^DD(350.9,6.13,21,1,0)
+26 ;;=This is the number of required Utilization Reviews that you wish to have
+27 ;;^DD(350.9,6.13,21,2,0)
+28 ;;=done each week for Surgery admissions. The minimum recommended by
+29 ;;^DD(350.9,6.13,21,3,0)
+30 ;;=the QA office is one per week.
+31 ;;^DD(350.9,6.13,"DT")
+32 ;;=2940113
+33 ;;^DD(350.9,6.14,0)
+34 ;;=SURGERY WEEKLY ADMISSIONS^NJ2,0^^6;14^K:+X'=X!(X>99)!(X<5)!(X?.E1"."1N.N) X
+35 ;;^DD(350.9,6.14,3)
+36 ;;=Type a Number between 5 and 99, 0 Decimal Digits
+37 ;;^DD(350.9,6.14,21,0)
+38 ;;=^^3^3^2930805^^
+39 ;;^DD(350.9,6.14,21,1,0)
+40 ;;=This is the minimum number of admissions for Surgery that your Medical
+41 ;;^DD(350.9,6.14,21,2,0)
+42 ;;=Center generally averages. This is used along with the Surgery
+43 ;;^DD(350.9,6.14,21,3,0)
+44 ;;=sample size to compute a random number.
+45 ;;^DD(350.9,6.14,"DT")
+46 ;;=2930901
+47 ;;^DD(350.9,6.15,0)
+48 ;;=SURGERY RANDOM NUMBER^NJ2,0^^6;15^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
+49 ;;^DD(350.9,6.15,3)
+50 ;;=Type a Number between 1 and 99, 0 Decimal Digits
+51 ;;^DD(350.9,6.15,21,0)
+52 ;;=^^4^4^2940209^^^
+53 ;;^DD(350.9,6.15,21,1,0)
+54 ;;=This is an internally computed random number. It is re-computed each
+55 ;;^DD(350.9,6.15,21,2,0)
+56 ;;=week. When the count of the Surgery admissions reaches a multiple of
+57 ;;^DD(350.9,6.15,21,3,0)
+58 ;;=this number it is considered the random selection. The total number
+59 ;;^DD(350.9,6.15,21,4,0)
+60 ;;=of random selections for UR will not exceed the Surgery sample size.
+61 ;;^DD(350.9,6.15,"DT")
+62 ;;=2930804
+63 ;;^DD(350.9,6.16,0)
+64 ;;=SURGERY ENTRIES MET^NJ2,0^^6;16^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
+65 ;;^DD(350.9,6.16,3)
+66 ;;=Type a Number between 1 and 99, 0 Decimal Digits
+67 ;;^DD(350.9,6.16,21,0)
+68 ;;=^^1^1^2930805^
+69 ;;^DD(350.9,6.16,21,1,0)
+70 ;;=This is the number of random selections generated this week.
+71 ;;^DD(350.9,6.16,"DT")
+72 ;;=2930804
+73 ;;^DD(350.9,6.17,0)
+74 ;;=SURGERY ADMISSION COUNTER^NJ2,0^^6;17^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
+75 ;;^DD(350.9,6.17,3)
+76 ;;=Type a Number between 1 and 99, 0 Decimal Digits
+77 ;;^DD(350.9,6.17,21,0)
+78 ;;=^^2^2^2930805^
+79 ;;^DD(350.9,6.17,21,1,0)
+80 ;;=This is the number of admissions for this service counted by the
+81 ;;^DD(350.9,6.17,21,2,0)
+82 ;;=claims tracking module so far this week.
+83 ;;^DD(350.9,6.17,"DT")
+84 ;;=2930804
+85 ;;^DD(350.9,6.18,0)
+86 ;;=PSYCH SAMPLE SIZE^NJ2,0^^6;18^K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
+87 ;;^DD(350.9,6.18,3)
+88 ;;=Type a Number between 0 and 99, 0 Decimal Digits
+89 ;;^DD(350.9,6.18,21,0)
+90 ;;=^^3^3^2930805^
+91 ;;^DD(350.9,6.18,21,1,0)
+92 ;;=This is the number of required Utilization Reviews that you wish to have
+93 ;;^DD(350.9,6.18,21,2,0)
+94 ;;=done each week for Psychiatry admissions. The minimum recommended by
+95 ;;^DD(350.9,6.18,21,3,0)
+96 ;;=the QA office is one per week.
+97 ;;^DD(350.9,6.18,"DT")
+98 ;;=2940113
