IBINI06E ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQ(356.3) 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(356.3,0,"GL")
;;=^IBE(356.3,
;;^DIC("B","CLAIMS TRACKING SI/IS CATEGORIES",356.3)
;;=
;;^DIC(356.3,"%D",0)
;;=5^^14^14^2940214^^^^
;;^DIC(356.3,"%D",1,0)
;;=This file contains the major categories of areas that are used to address
;;^DIC(356.3,"%D",2,0)
;;=the severity of illness and intensity of service. Specific criteria for
;;^DIC(356.3,"%D",3,0)
;;=each category must be met to address appropriateness of admission to
;;^DIC(356.3,"%D",4,0)
;;=continued stay in and discharge from specialized units and general
;;^DIC(356.3,"%D",5,0)
;;=units.
;;^DIC(356.3,"%D",6,0)
;;=
;;^DIC(356.3,"%D",7,0)
;;=Do Not add to or delete from this file without instructions from your
;;^DIC(356.3,"%D",8,0)
;;=ISC. Editing this file may have significant impact on the QM national
;;^DIC(356.3,"%D",9,0)
;;=roll-up of Utilization Review information.
;;^DIC(356.3,"%D",10,0)
;;=
;;^DIC(356.3,"%D",11,0)
;;=The contents of this file are the general categories for Intesity of
;;^DIC(356.3,"%D",12,0)
;;=Service and Severity of Illness from Interqual.
;;^DIC(356.3,"%D",13,0)
;;=
;;^DIC(356.3,"%D",14,0)
;;=Per VHA Directive 10-93-142, this file definition should not be modified.
;;^DD(356.3,0)
;;=FIELD^^.03^3
;;^DD(356.3,0,"DDA")
;;=N
;;^DD(356.3,0,"DT")
;;=2930907
;;^DD(356.3,0,"ID",.03)
;;=W " ",$P(^(0),U,3)
;;^DD(356.3,0,"IX","B",356.3,.01)
;;=
;;^DD(356.3,0,"IX","C",356.3,.03)
;;=
;;^DD(356.3,0,"NM","CLAIMS TRACKING SI/IS CATEGORIES")
;;=
;;^DD(356.3,0,"PT",356.1,.04)
;;=
;;^DD(356.3,0,"PT",356.1,.05)
;;=
;;^DD(356.3,0,"PT",356.1,.08)
;;=
;;^DD(356.3,0,"PT",356.1,.09)
;;=
;;^DD(356.3,0,"PT",356.1,.12)
;;=
;;^DD(356.3,0,"PT",356.1,.13)
;;=
;;^DD(356.3,.01,0)
;;=NAME^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X
;;^DD(356.3,.01,1,0)
;;=^.1
;;^DD(356.3,.01,1,1,0)
;;=356.3^B
;;^DD(356.3,.01,1,1,1)
;;=S ^IBE(356.3,"B",$E(X,1,30),DA)=""
;;^DD(356.3,.01,1,1,2)
;;=K ^IBE(356.3,"B",$E(X,1,30),DA)
;;^DD(356.3,.01,3)
;;=Answer must be 3-40 characters in length.
;;^DD(356.3,.01,21,0)
;;=^^4^4^2931128^
;;^DD(356.3,.01,21,1,0)
;;=This is the name of the Severity of Illness (SI) or Intensity of Service
;;^DD(356.3,.01,21,2,0)
;;=(IS) general category.
;;^DD(356.3,.01,21,3,0)
;;=
;;^DD(356.3,.01,21,4,0)
;;=Enter the name as it appears in the Interqual manual.
;;^DD(356.3,.01,"DT")
;;=2930610
;;^DD(356.3,.02,0)
;;=GENERAL OR SPECIAL UNIT^S^1:SPECIAL UNIT CODE;2:GENERAL UNIT;^0;2^Q
;;^DD(356.3,.02,21,0)
;;=^^5^5^2940213^^^^
;;^DD(356.3,.02,21,1,0)
;;=Enter whether this criteria is for general medical surgical ward or for
;;^DD(356.3,.02,21,2,0)
;;=a specialized unit as defined in the Interqual manual. Specialized
;;^DD(356.3,.02,21,3,0)
;;=units include not only ICU's and CCU's but some other non-critical care
;;^DD(356.3,.02,21,4,0)
;;=units that one might not normally expect to see included in the list.
;;^DD(356.3,.02,21,5,0)
;;=
;;^DD(356.3,.02,"DT")
;;=2930610
;;^DD(356.3,.03,0)
;;=CODE^F^^0;3^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2)!'(X?2N) X
;;^DD(356.3,.03,1,0)
;;=^.1
;;^DD(356.3,.03,1,1,0)
;;=356.3^C
;;^DD(356.3,.03,1,1,1)
;;=S ^IBE(356.3,"C",$E(X,1,30),DA)=""
;;^DD(356.3,.03,1,1,2)
;;=K ^IBE(356.3,"C",$E(X,1,30),DA)
;;^DD(356.3,.03,1,1,"DT")
;;=2930915
;;^DD(356.3,.03,3)
;;=Answer must be 2 characters in length.
;;^DD(356.3,.03,21,0)
;;=^^4^4^2931128^^
;;^DD(356.3,.03,21,1,0)
;;=Enter the 2 digit number to assist in looking up SI/IS criteria.
;;^DD(356.3,.03,21,2,0)
;;=
;;^DD(356.3,.03,21,3,0)
;;=Do not edit this code as it will be used in the national roll-up of QM
IBINI06E ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQ(356.3)
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(356.3,0,"GL")
+2 ;;=^IBE(356.3,
+3 ;;^DIC("B","CLAIMS TRACKING SI/IS CATEGORIES",356.3)
+4 ;;=
+5 ;;^DIC(356.3,"%D",0)
+6 ;;=5^^14^14^2940214^^^^
+7 ;;^DIC(356.3,"%D",1,0)
+8 ;;=This file contains the major categories of areas that are used to address
+9 ;;^DIC(356.3,"%D",2,0)
+10 ;;=the severity of illness and intensity of service. Specific criteria for
+11 ;;^DIC(356.3,"%D",3,0)
+12 ;;=each category must be met to address appropriateness of admission to
+13 ;;^DIC(356.3,"%D",4,0)
+14 ;;=continued stay in and discharge from specialized units and general
+15 ;;^DIC(356.3,"%D",5,0)
+16 ;;=units.
+17 ;;^DIC(356.3,"%D",6,0)
+18 ;;=
+19 ;;^DIC(356.3,"%D",7,0)
+20 ;;=Do Not add to or delete from this file without instructions from your
+21 ;;^DIC(356.3,"%D",8,0)
+22 ;;=ISC. Editing this file may have significant impact on the QM national
+23 ;;^DIC(356.3,"%D",9,0)
+24 ;;=roll-up of Utilization Review information.
+25 ;;^DIC(356.3,"%D",10,0)
+26 ;;=
+27 ;;^DIC(356.3,"%D",11,0)
+28 ;;=The contents of this file are the general categories for Intesity of
+29 ;;^DIC(356.3,"%D",12,0)
+30 ;;=Service and Severity of Illness from Interqual.
+31 ;;^DIC(356.3,"%D",13,0)
+32 ;;=
+33 ;;^DIC(356.3,"%D",14,0)
+34 ;;=Per VHA Directive 10-93-142, this file definition should not be modified.
+35 ;;^DD(356.3,0)
+36 ;;=FIELD^^.03^3
+37 ;;^DD(356.3,0,"DDA")
+38 ;;=N
+39 ;;^DD(356.3,0,"DT")
+40 ;;=2930907
+41 ;;^DD(356.3,0,"ID",.03)
+42 ;;=W " ",$P(^(0),U,3)
+43 ;;^DD(356.3,0,"IX","B",356.3,.01)
+44 ;;=
+45 ;;^DD(356.3,0,"IX","C",356.3,.03)
+46 ;;=
+47 ;;^DD(356.3,0,"NM","CLAIMS TRACKING SI/IS CATEGORIES")
+48 ;;=
+49 ;;^DD(356.3,0,"PT",356.1,.04)
+50 ;;=
+51 ;;^DD(356.3,0,"PT",356.1,.05)
+52 ;;=
+53 ;;^DD(356.3,0,"PT",356.1,.08)
+54 ;;=
+55 ;;^DD(356.3,0,"PT",356.1,.09)
+56 ;;=
+57 ;;^DD(356.3,0,"PT",356.1,.12)
+58 ;;=
+59 ;;^DD(356.3,0,"PT",356.1,.13)
+60 ;;=
+61 ;;^DD(356.3,.01,0)
+62 ;;=NAME^RF^^0;1^K:$L(X)>40!($L(X)<3)!'(X'?1P.E) X
+63 ;;^DD(356.3,.01,1,0)
+64 ;;=^.1
+65 ;;^DD(356.3,.01,1,1,0)
+66 ;;=356.3^B
+67 ;;^DD(356.3,.01,1,1,1)
+68 ;;=S ^IBE(356.3,"B",$E(X,1,30),DA)=""
+69 ;;^DD(356.3,.01,1,1,2)
+70 ;;=K ^IBE(356.3,"B",$E(X,1,30),DA)
+71 ;;^DD(356.3,.01,3)
+72 ;;=Answer must be 3-40 characters in length.
+73 ;;^DD(356.3,.01,21,0)
+74 ;;=^^4^4^2931128^
+75 ;;^DD(356.3,.01,21,1,0)
+76 ;;=This is the name of the Severity of Illness (SI) or Intensity of Service
+77 ;;^DD(356.3,.01,21,2,0)
+78 ;;=(IS) general category.
+79 ;;^DD(356.3,.01,21,3,0)
+80 ;;=
+81 ;;^DD(356.3,.01,21,4,0)
+82 ;;=Enter the name as it appears in the Interqual manual.
+83 ;;^DD(356.3,.01,"DT")
+84 ;;=2930610
+85 ;;^DD(356.3,.02,0)
+86 ;;=GENERAL OR SPECIAL UNIT^S^1:SPECIAL UNIT CODE;2:GENERAL UNIT;^0;2^Q
+87 ;;^DD(356.3,.02,21,0)
+88 ;;=^^5^5^2940213^^^^
+89 ;;^DD(356.3,.02,21,1,0)
+90 ;;=Enter whether this criteria is for general medical surgical ward or for
+91 ;;^DD(356.3,.02,21,2,0)
+92 ;;=a specialized unit as defined in the Interqual manual. Specialized
+93 ;;^DD(356.3,.02,21,3,0)
+94 ;;=units include not only ICU's and CCU's but some other non-critical care
+95 ;;^DD(356.3,.02,21,4,0)
+96 ;;=units that one might not normally expect to see included in the list.
+97 ;;^DD(356.3,.02,21,5,0)
+98 ;;=
+99 ;;^DD(356.3,.02,"DT")
+100 ;;=2930610
+101 ;;^DD(356.3,.03,0)
+102 ;;=CODE^F^^0;3^K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<2)!'(X?2N) X
+103 ;;^DD(356.3,.03,1,0)
+104 ;;=^.1
+105 ;;^DD(356.3,.03,1,1,0)
+106 ;;=356.3^C
+107 ;;^DD(356.3,.03,1,1,1)
+108 ;;=S ^IBE(356.3,"C",$E(X,1,30),DA)=""
+109 ;;^DD(356.3,.03,1,1,2)
+110 ;;=K ^IBE(356.3,"C",$E(X,1,30),DA)
+111 ;;^DD(356.3,.03,1,1,"DT")
+112 ;;=2930915
+113 ;;^DD(356.3,.03,3)
+114 ;;=Answer must be 2 characters in length.
+115 ;;^DD(356.3,.03,21,0)
+116 ;;=^^4^4^2931128^^
+117 ;;^DD(356.3,.03,21,1,0)
+118 ;;=Enter the 2 digit number to assist in looking up SI/IS criteria.
+119 ;;^DD(356.3,.03,21,2,0)
+120 ;;=
+121 ;;^DD(356.3,.03,21,3,0)
+122 ;;=Do not edit this code as it will be used in the national roll-up of QM
