IBINI05R ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQ(356.1) 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(356.1,.09,21,7,0)
;;=units for interqual is different than what we normally consider
;;^DD(356.1,.09,21,8,0)
;;=intensive care units.
;;^DD(356.1,.09,"DT")
;;=2930719
;;^DD(356.1,.1,0)
;;=PROVIDER INTERVIEWED?^S^1:YES;0:NO;^0;10^Q
;;^DD(356.1,.1,21,0)
;;=^^3^3^2930719^
;;^DD(356.1,.1,21,1,0)
;;=For Pre-certification reviews and Urgent Admission reviews enter whether
;;^DD(356.1,.1,21,2,0)
;;=or not UR interviewed the provider regarding the appropriateness of the
;;^DD(356.1,.1,21,3,0)
;;=admission.
;;^DD(356.1,.1,"DT")
;;=2930610
;;^DD(356.1,.11,0)
;;=ADMISSION DECISION INFLUENCED^S^1:YES;0:NO;^0;11^Q
;;^DD(356.1,.11,21,0)
;;=^^3^3^2930719^
;;^DD(356.1,.11,21,1,0)
;;=If the provider was interviewed about the appropriateness of admission
;;^DD(356.1,.11,21,2,0)
;;=then answer whether or not the decision to admit the patient was
;;^DD(356.1,.11,21,3,0)
;;=influenced.
;;^DD(356.1,.11,"DT")
;;=2930610
;;^DD(356.1,.12,0)
;;=D/C SCREENS MET^*P356.3'^IBE(356.3,^0;12^S DIC("S")="I $P(^(0),U,2)=2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
;;^DD(356.1,.12,3)
;;=
;;^DD(356.1,.12,12)
;;=Only categories for general units may be selected!
;;^DD(356.1,.12,12.1)
;;=S DIC("S")="I $P(^(0),U,2)=2"
;;^DD(356.1,.12,21,0)
;;=^^1^1^2930719^^
;;^DD(356.1,.12,21,1,0)
;;=Enter the Intensity of Service category whose discharge screens were met.
;;^DD(356.1,.12,"DT")
;;=2930719
;;^DD(356.1,.13,0)
;;=SPECIAL CARE D/C SCREENS MET^*P356.3'^IBE(356.3,^0;13^S DIC("S")="I $P(^(0),U,2)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
;;^DD(356.1,.13,3)
;;=
;;^DD(356.1,.13,12)
;;=Only categories for specialized units may be selected!
;;^DD(356.1,.13,12.1)
;;=S DIC("S")="I $P(^(0),U,2)=1"
;;^DD(356.1,.13,21,0)
;;=^^2^2^2930726^^^
;;^DD(356.1,.13,21,1,0)
;;=Enter the Intesity of Service Category whose discharge screens were
;;^DD(356.1,.13,21,2,0)
;;=met.
;;^DD(356.1,.13,"DT")
;;=2930719
;;^DD(356.1,.14,0)
;;=SI/IS APPLY ALL DAYS^S^1:YES;0:NO;^0;14^Q
;;^DD(356.1,.14,21,0)
;;=^^6^6^2940213^^^^
;;^DD(356.1,.14,21,1,0)
;;=Answer whether or not the Severity of Illness (SI) or Intensity of
;;^DD(356.1,.14,21,2,0)
;;=Service (IS) criteria apply to all days. If not, then the number
;;^DD(356.1,.14,21,3,0)
;;=of non-acute days and the reason for non-acute days should be
;;^DD(356.1,.14,21,4,0)
;;=answered.
;;^DD(356.1,.14,21,5,0)
;;=
;;^DD(356.1,.14,21,6,0)
;;=The dates of non-acute care should be entered in the comments field.
;;^DD(356.1,.14,22)
;;=
;;^DD(356.1,.14,"DT")
;;=2930610
;;^DD(356.1,.19,0)
;;=ACTIVE^S^1:YES;0:NO;^0;19^Q
;;^DD(356.1,.19,3)
;;=Enter whether this Review is ACTIVE or not. Answering "NO" has a similar effect to deleting the entry, it will no longer appear on reports or input screens.
;;^DD(356.1,.19,21,0)
;;=^^5^5^2930726^
;;^DD(356.1,.19,21,1,0)
;;=Enter if this review is active or not. If a review is not active it
;;^DD(356.1,.19,21,2,0)
;;=will not be used or displayed on input screens or reports.
;;^DD(356.1,.19,21,3,0)
;;=
;;^DD(356.1,.19,21,4,0)
;;=Inactivating an entry has the same effect as deleting the entry, with the
;;^DD(356.1,.19,21,5,0)
;;=added benefit of leaving the data for later review if necessary.
;;^DD(356.1,.19,"DT")
;;=2930610
;;^DD(356.1,.2,0)
;;=NEXT REVIEW DATE^D^^0;20^S %DT="EX" D ^%DT S X=Y K:Y<1 X
;;^DD(356.1,.2,1,0)
;;=^.1
;;^DD(356.1,.2,1,1,0)
;;=356.1^APEND
;;^DD(356.1,.2,1,1,1)
;;=S ^IBT(356.1,"APEND",$E(X,1,30),DA)=""
;;^DD(356.1,.2,1,1,2)
;;=K ^IBT(356.1,"APEND",$E(X,1,30),DA)
IBINI05R ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQ(356.1)
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(356.1,.09,21,7,0)
+2 ;;=units for interqual is different than what we normally consider
+3 ;;^DD(356.1,.09,21,8,0)
+4 ;;=intensive care units.
+5 ;;^DD(356.1,.09,"DT")
+6 ;;=2930719
+7 ;;^DD(356.1,.1,0)
+8 ;;=PROVIDER INTERVIEWED?^S^1:YES;0:NO;^0;10^Q
+9 ;;^DD(356.1,.1,21,0)
+10 ;;=^^3^3^2930719^
+11 ;;^DD(356.1,.1,21,1,0)
+12 ;;=For Pre-certification reviews and Urgent Admission reviews enter whether
+13 ;;^DD(356.1,.1,21,2,0)
+14 ;;=or not UR interviewed the provider regarding the appropriateness of the
+15 ;;^DD(356.1,.1,21,3,0)
+16 ;;=admission.
+17 ;;^DD(356.1,.1,"DT")
+18 ;;=2930610
+19 ;;^DD(356.1,.11,0)
+20 ;;=ADMISSION DECISION INFLUENCED^S^1:YES;0:NO;^0;11^Q
+21 ;;^DD(356.1,.11,21,0)
+22 ;;=^^3^3^2930719^
+23 ;;^DD(356.1,.11,21,1,0)
+24 ;;=If the provider was interviewed about the appropriateness of admission
+25 ;;^DD(356.1,.11,21,2,0)
+26 ;;=then answer whether or not the decision to admit the patient was
+27 ;;^DD(356.1,.11,21,3,0)
+28 ;;=influenced.
+29 ;;^DD(356.1,.11,"DT")
+30 ;;=2930610
+31 ;;^DD(356.1,.12,0)
+32 ;;=D/C SCREENS MET^*P356.3'^IBE(356.3,^0;12^S DIC("S")="I $P(^(0),U,2)=2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
+33 ;;^DD(356.1,.12,3)
+34 ;;=
+35 ;;^DD(356.1,.12,12)
+36 ;;=Only categories for general units may be selected!
+37 ;;^DD(356.1,.12,12.1)
+38 ;;=S DIC("S")="I $P(^(0),U,2)=2"
+39 ;;^DD(356.1,.12,21,0)
+40 ;;=^^1^1^2930719^^
+41 ;;^DD(356.1,.12,21,1,0)
+42 ;;=Enter the Intensity of Service category whose discharge screens were met.
+43 ;;^DD(356.1,.12,"DT")
+44 ;;=2930719
+45 ;;^DD(356.1,.13,0)
+46 ;;=SPECIAL CARE D/C SCREENS MET^*P356.3'^IBE(356.3,^0;13^S DIC("S")="I $P(^(0),U,2)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
+47 ;;^DD(356.1,.13,3)
+48 ;;=
+49 ;;^DD(356.1,.13,12)
+50 ;;=Only categories for specialized units may be selected!
+51 ;;^DD(356.1,.13,12.1)
+52 ;;=S DIC("S")="I $P(^(0),U,2)=1"
+53 ;;^DD(356.1,.13,21,0)
+54 ;;=^^2^2^2930726^^^
+55 ;;^DD(356.1,.13,21,1,0)
+56 ;;=Enter the Intesity of Service Category whose discharge screens were
+57 ;;^DD(356.1,.13,21,2,0)
+58 ;;=met.
+59 ;;^DD(356.1,.13,"DT")
+60 ;;=2930719
+61 ;;^DD(356.1,.14,0)
+62 ;;=SI/IS APPLY ALL DAYS^S^1:YES;0:NO;^0;14^Q
+63 ;;^DD(356.1,.14,21,0)
+64 ;;=^^6^6^2940213^^^^
+65 ;;^DD(356.1,.14,21,1,0)
+66 ;;=Answer whether or not the Severity of Illness (SI) or Intensity of
+67 ;;^DD(356.1,.14,21,2,0)
+68 ;;=Service (IS) criteria apply to all days. If not, then the number
+69 ;;^DD(356.1,.14,21,3,0)
+70 ;;=of non-acute days and the reason for non-acute days should be
+71 ;;^DD(356.1,.14,21,4,0)
+72 ;;=answered.
+73 ;;^DD(356.1,.14,21,5,0)
+74 ;;=
+75 ;;^DD(356.1,.14,21,6,0)
+76 ;;=The dates of non-acute care should be entered in the comments field.
+77 ;;^DD(356.1,.14,22)
+78 ;;=
+79 ;;^DD(356.1,.14,"DT")
+80 ;;=2930610
+81 ;;^DD(356.1,.19,0)
+82 ;;=ACTIVE^S^1:YES;0:NO;^0;19^Q
+83 ;;^DD(356.1,.19,3)
+84 ;;=Enter whether this Review is ACTIVE or not. Answering "NO" has a similar effect to deleting the entry, it will no longer appear on reports or input screens.
+85 ;;^DD(356.1,.19,21,0)
+86 ;;=^^5^5^2930726^
+87 ;;^DD(356.1,.19,21,1,0)
+88 ;;=Enter if this review is active or not. If a review is not active it
+89 ;;^DD(356.1,.19,21,2,0)
+90 ;;=will not be used or displayed on input screens or reports.
+91 ;;^DD(356.1,.19,21,3,0)
+92 ;;=
+93 ;;^DD(356.1,.19,21,4,0)
+94 ;;=Inactivating an entry has the same effect as deleting the entry, with the
+95 ;;^DD(356.1,.19,21,5,0)
+96 ;;=added benefit of leaving the data for later review if necessary.
+97 ;;^DD(356.1,.19,"DT")
+98 ;;=2930610
+99 ;;^DD(356.1,.2,0)
+100 ;;=NEXT REVIEW DATE^D^^0;20^S %DT="EX" D ^%DT S X=Y K:Y<1 X
+101 ;;^DD(356.1,.2,1,0)
+102 ;;=^.1
+103 ;;^DD(356.1,.2,1,1,0)
+104 ;;=356.1^APEND
+105 ;;^DD(356.1,.2,1,1,1)
+106 ;;=S ^IBT(356.1,"APEND",$E(X,1,30),DA)=""
+107 ;;^DD(356.1,.2,1,1,2)
+108 ;;=K ^IBT(356.1,"APEND",$E(X,1,30),DA)
