Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBINI02V

IBINI02V.m

Go to the documentation of this file. 
  1. IBINI02V	; ; 21-MAR-1994
  1. 	;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. 	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
  1. Q	Q
  1. 	;;^DD(350.9,6.11,21,0)
  1. 	;;=^^1^1^2930805^
  1. 	;;^DD(350.9,6.11,21,1,0)
  1. 	;;=This is the number of random selections generated this week.
  1. 	;;^DD(350.9,6.11,"DT")
  1. 	;;=2930804
  1. 	;;^DD(350.9,6.12,0)
  1. 	;;=MEDICINE ADMISSION COUNTER^NJ2,0^^6;12^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  1. 	;;^DD(350.9,6.12,3)
  1. 	;;=Type a Number between 1 and 99, 0 Decimal Digits
  1. 	;;^DD(350.9,6.12,21,0)
  1. 	;;=^^2^2^2930805^
  1. 	;;^DD(350.9,6.12,21,1,0)
  1. 	;;=This is the number of admissions for this service counted by the
  1. 	;;^DD(350.9,6.12,21,2,0)
  1. 	;;=claims tracking module so far this week.
  1. 	;;^DD(350.9,6.12,"DT")
  1. 	;;=2930804
  1. 	;;^DD(350.9,6.13,0)
  1. 	;;=SURGERY SAMPLE SIZE^NJ2,0^^6;13^K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  1. 	;;^DD(350.9,6.13,3)
  1. 	;;=Type a Number between 0 and 99, 0 Decimal Digits
  1. 	;;^DD(350.9,6.13,21,0)
  1. 	;;=^^3^3^2930901^^
  1. 	;;^DD(350.9,6.13,21,1,0)
  1. 	;;=This is the number of required Utilization Reviews that you wish to have
  1. 	;;^DD(350.9,6.13,21,2,0)
  1. 	;;=done each week for Surgery admissions.  The minimum recommended by
  1. 	;;^DD(350.9,6.13,21,3,0)
  1. 	;;=the QA office is one per week.
  1. 	;;^DD(350.9,6.13,"DT")
  1. 	;;=2940113
  1. 	;;^DD(350.9,6.14,0)
  1. 	;;=SURGERY WEEKLY ADMISSIONS^NJ2,0^^6;14^K:+X'=X!(X>99)!(X<5)!(X?.E1"."1N.N) X
  1. 	;;^DD(350.9,6.14,3)
  1. 	;;=Type a Number between 5 and 99, 0 Decimal Digits
  1. 	;;^DD(350.9,6.14,21,0)
  1. 	;;=^^3^3^2930805^^
  1. 	;;^DD(350.9,6.14,21,1,0)
  1. 	;;=This is the minimum number of admissions for Surgery that your Medical
  1. 	;;^DD(350.9,6.14,21,2,0)
  1. 	;;=Center generally averages.  This is used along with the Surgery
  1. 	;;^DD(350.9,6.14,21,3,0)
  1. 	;;=sample size to compute a random number.
  1. 	;;^DD(350.9,6.14,"DT")
  1. 	;;=2930901
  1. 	;;^DD(350.9,6.15,0)
  1. 	;;=SURGERY RANDOM NUMBER^NJ2,0^^6;15^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  1. 	;;^DD(350.9,6.15,3)
  1. 	;;=Type a Number between 1 and 99, 0 Decimal Digits
  1. 	;;^DD(350.9,6.15,21,0)
  1. 	;;=^^4^4^2940209^^^
  1. 	;;^DD(350.9,6.15,21,1,0)
  1. 	;;=This is an internally computed random number.  It is re-computed each
  1. 	;;^DD(350.9,6.15,21,2,0)
  1. 	;;=week.  When the count of the Surgery admissions reaches a multiple of
  1. 	;;^DD(350.9,6.15,21,3,0)
  1. 	;;=this number it is considered the random selection.  The total number
  1. 	;;^DD(350.9,6.15,21,4,0)
  1. 	;;=of random selections for UR will not exceed the Surgery sample size.
  1. 	;;^DD(350.9,6.15,"DT")
  1. 	;;=2930804
  1. 	;;^DD(350.9,6.16,0)
  1. 	;;=SURGERY ENTRIES MET^NJ2,0^^6;16^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  1. 	;;^DD(350.9,6.16,3)
  1. 	;;=Type a Number between 1 and 99, 0 Decimal Digits
  1. 	;;^DD(350.9,6.16,21,0)
  1. 	;;=^^1^1^2930805^
  1. 	;;^DD(350.9,6.16,21,1,0)
  1. 	;;=This is the number of random selections generated this week.
  1. 	;;^DD(350.9,6.16,"DT")
  1. 	;;=2930804
  1. 	;;^DD(350.9,6.17,0)
  1. 	;;=SURGERY ADMISSION COUNTER^NJ2,0^^6;17^K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  1. 	;;^DD(350.9,6.17,3)
  1. 	;;=Type a Number between 1 and 99, 0 Decimal Digits
  1. 	;;^DD(350.9,6.17,21,0)
  1. 	;;=^^2^2^2930805^
  1. 	;;^DD(350.9,6.17,21,1,0)
  1. 	;;=This is the number of admissions for this service counted by the
  1. 	;;^DD(350.9,6.17,21,2,0)
  1. 	;;=claims tracking module so far this week.
  1. 	;;^DD(350.9,6.17,"DT")
  1. 	;;=2930804
  1. 	;;^DD(350.9,6.18,0)
  1. 	;;=PSYCH SAMPLE SIZE^NJ2,0^^6;18^K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  1. 	;;^DD(350.9,6.18,3)
  1. 	;;=Type a Number between 0 and 99, 0 Decimal Digits
  1. 	;;^DD(350.9,6.18,21,0)
  1. 	;;=^^3^3^2930805^
  1. 	;;^DD(350.9,6.18,21,1,0)
  1. 	;;=This is the number of required Utilization Reviews that you wish to have
  1. 	;;^DD(350.9,6.18,21,2,0)
  1. 	;;=done each week for Psychiatry admissions.  The minimum recommended by
  1. 	;;^DD(350.9,6.18,21,3,0)
  1. 	;;=the QA office is one per week.
  1. 	;;^DD(350.9,6.18,"DT")
  1. 	;;=2940113