Routine: IBINI05V

IBINI05V	; ; 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,1.14,21,3,0)

	;;=review into the next days review so you don't have to do all the

	;;^DD(356.1,1.14,21,4,0)

	;;=data entry.  Answer No and you will be asked each prompt as appropriate.

	;;^DD(356.1,1.14,21,5,0)

;;=

	;;^DD(356.1,1.14,21,6,0)

	;;=A review that was copied may be edited at any time if necessary.

	;;^DD(356.1,1.14,"DT")

	;;=2930830

	;;^DD(356.1,1.15,0)

	;;=ADDITIONAL REVIEWS REQUIRED^S^1:YES;0:NO;^1;15^Q

	;;^DD(356.1,1.15,3)

;;=

	;;^DD(356.1,1.15,21,0)

	;;=^^4^4^2940213^^^

	;;^DD(356.1,1.15,21,1,0)

	;;=If this visit does not require any additional reviews then answer NO and

	;;^DD(356.1,1.15,21,2,0)

	;;=the computer will not create any more reviews automatically unless there

	;;^DD(356.1,1.15,21,3,0)

	;;=is a change is service.  Answer YES or leave blank if additional reviews

	;;^DD(356.1,1.15,21,4,0)

	;;=are required.

	;;^DD(356.1,1.15,22)

;;=

	;;^DD(356.1,1.15,"DT")

	;;=2930830

	;;^DD(356.1,1.17,0)

	;;=ACUTE CARE DISCHARGE DATE^D^^1;17^S %DT="EX" D ^%DT S X=Y K:Y<1 X

	;;^DD(356.1,1.17,3)

;;=

	;;^DD(356.1,1.17,21,0)

	;;=^^2^2^2940213^^

	;;^DD(356.1,1.17,21,1,0)

	;;=If the patient no longer requires acute care, then this is the date

	;;^DD(356.1,1.17,21,2,0)

	;;=that the patient left an acute status.

	;;^DD(356.1,1.17,"DT")

	;;=2930830

	;;^DD(356.1,11,0)

	;;=UTILIZATION REVIEW COMMENTS^356.111^^11;0

	;;^DD(356.1,11,21,0)

	;;=^^3^3^2940213^^

	;;^DD(356.1,11,21,1,0)

	;;=This field is used to store comments about the UR Review.  It can be

	;;^DD(356.1,11,21,2,0)

	;;=used to document reasons for non-acute admissions, non-acute days,

	;;^DD(356.1,11,21,3,0)

	;;=or other items that require a greater explanation.

	;;^DD(356.1,12,0)

	;;=REASON FOR NON-ACUTE ADMISSION^356.112PA^^12;0

	;;^DD(356.1,12,12)

	;;=Only reasons for non-acute admissions may be selected!

	;;^DD(356.1,12,12.1)

	;;=S DIC("S")="I $P(^(0),U,5)=1"

	;;^DD(356.1,12,21,0)

	;;=^^6^6^2940213^^^

	;;^DD(356.1,12,21,1,0)

	;;=If this patient did not meet criteria for an acute admission within

	;;^DD(356.1,12,21,2,0)

	;;=24 hours enter the reasons that best describe why the admission didn't

	;;^DD(356.1,12,21,3,0)

	;;=meet criteria.  If no reason can be determined enter 8.02 other.

	;;^DD(356.1,12,21,4,0)

;;=

	;;^DD(356.1,12,21,5,0)

	;;=This reason will be transmitted to the national database when it becomes

	;;^DD(356.1,12,21,6,0)

	;;=available.

	;;^DD(356.1,13,0)

	;;=REASON FOR NON-ACUTE DAYS^356.113PA^^13;0

	;;^DD(356.1,13,12)

	;;=Only reasons for non-acute days of care may be selected!

	;;^DD(356.1,13,12.1)

	;;=S DIC("S")="I $P(^(0),U,5)=2"

	;;^DD(356.1,13,21,0)

	;;=^^3^3^2940213^^

	;;^DD(356.1,13,21,1,0)

	;;=If this patient had non-acute days of care during this review, enter

	;;^DD(356.1,13,21,2,0)

	;;=reasons that best describe the reason for the non-acute days.  If no

	;;^DD(356.1,13,21,3,0)

	;;=reason can be deteremined select the reason 8.01, Other.

	;;^DD(356.1,21,0)

	;;=PATIENT^CJ30^^ ; ^X ^DD(356.1,21,9.2) S Y(356.1,21,101)=$S($D(^IBT(356,D0,0)):^(0),1:"") S X=$S('$D(^DPT(+$P(Y(356.1,21,101),U,2),0)):"",1:$P(^(0),U,1)) S D0=Y(356.1,21,80)

	;;^DD(356.1,21,9)

	;;=^

	;;^DD(356.1,21,9.01)

	;;=356^.02;356.1^.02

	;;^DD(356.1,21,9.1)

	;;=TRACKING ID:PATIENT

	;;^DD(356.1,21,9.2)

	;;=S Y(356.1,21,80)=$S($D(D0):D0,1:""),Y(356.1,21,1)=$S($D(^IBT(356.1,D0,0)):^(0),1:""),D0=$P(Y(356.1,21,1),U,2) S:'$D(^IBT(356,+D0,0)) D0=-1

	;;^DD(356.1,21,21,0)

	;;=^^1^1^2930726^

	;;^DD(356.1,21,21,1,0)

	;;=This is the patient whose tracking entry this review is for.

	;;^DD(356.111,0)

	;;=UTILIZATION REVIEW COMMENTS SUB-FIELD^^.01^1

IBINI05V  ; ; 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,1.14,21,3,0)

 +2       ;;=review into the next days review so you don't have to do all the

 +3       ;;^DD(356.1,1.14,21,4,0)

 +4       ;;=data entry.  Answer No and you will be asked each prompt as appropriate.

 +5       ;;^DD(356.1,1.14,21,5,0)

 +6       ;;=

 +7       ;;^DD(356.1,1.14,21,6,0)

 +8       ;;=A review that was copied may be edited at any time if necessary.

 +9       ;;^DD(356.1,1.14,"DT")

 +10      ;;=2930830

 +11      ;;^DD(356.1,1.15,0)

 +12      ;;=ADDITIONAL REVIEWS REQUIRED^S^1:YES;0:NO;^1;15^Q

 +13      ;;^DD(356.1,1.15,3)

 +14      ;;=

 +15      ;;^DD(356.1,1.15,21,0)

 +16      ;;=^^4^4^2940213^^^

 +17      ;;^DD(356.1,1.15,21,1,0)

 +18      ;;=If this visit does not require any additional reviews then answer NO and

 +19      ;;^DD(356.1,1.15,21,2,0)

 +20      ;;=the computer will not create any more reviews automatically unless there

 +21      ;;^DD(356.1,1.15,21,3,0)

 +22      ;;=is a change is service.  Answer YES or leave blank if additional reviews

 +23      ;;^DD(356.1,1.15,21,4,0)

 +24      ;;=are required.

 +25      ;;^DD(356.1,1.15,22)

 +26      ;;=

 +27      ;;^DD(356.1,1.15,"DT")

 +28      ;;=2930830

 +29      ;;^DD(356.1,1.17,0)

 +30      ;;=ACUTE CARE DISCHARGE DATE^D^^1;17^S %DT="EX" D ^%DT S X=Y K:Y<1 X

 +31      ;;^DD(356.1,1.17,3)

 +32      ;;=

 +33      ;;^DD(356.1,1.17,21,0)

 +34      ;;=^^2^2^2940213^^

 +35      ;;^DD(356.1,1.17,21,1,0)

 +36      ;;=If the patient no longer requires acute care, then this is the date

 +37      ;;^DD(356.1,1.17,21,2,0)

 +38      ;;=that the patient left an acute status.

 +39      ;;^DD(356.1,1.17,"DT")

 +40      ;;=2930830

 +41      ;;^DD(356.1,11,0)

 +42      ;;=UTILIZATION REVIEW COMMENTS^356.111^^11;0

 +43      ;;^DD(356.1,11,21,0)

 +44      ;;=^^3^3^2940213^^

 +45      ;;^DD(356.1,11,21,1,0)

 +46      ;;=This field is used to store comments about the UR Review.  It can be

 +47      ;;^DD(356.1,11,21,2,0)

 +48      ;;=used to document reasons for non-acute admissions, non-acute days,

 +49      ;;^DD(356.1,11,21,3,0)

 +50      ;;=or other items that require a greater explanation.

 +51      ;;^DD(356.1,12,0)

 +52      ;;=REASON FOR NON-ACUTE ADMISSION^356.112PA^^12;0

 +53      ;;^DD(356.1,12,12)

 +54      ;;=Only reasons for non-acute admissions may be selected!

 +55      ;;^DD(356.1,12,12.1)

 +56      ;;=S DIC("S")="I $P(^(0),U,5)=1"

 +57      ;;^DD(356.1,12,21,0)

 +58      ;;=^^6^6^2940213^^^

 +59      ;;^DD(356.1,12,21,1,0)

 +60      ;;=If this patient did not meet criteria for an acute admission within

 +61      ;;^DD(356.1,12,21,2,0)

 +62      ;;=24 hours enter the reasons that best describe why the admission didn't

 +63      ;;^DD(356.1,12,21,3,0)

 +64      ;;=meet criteria.  If no reason can be determined enter 8.02 other.

 +65      ;;^DD(356.1,12,21,4,0)

 +66      ;;=

 +67      ;;^DD(356.1,12,21,5,0)

 +68      ;;=This reason will be transmitted to the national database when it becomes

 +69      ;;^DD(356.1,12,21,6,0)

 +70      ;;=available.

 +71      ;;^DD(356.1,13,0)

 +72      ;;=REASON FOR NON-ACUTE DAYS^356.113PA^^13;0

 +73      ;;^DD(356.1,13,12)

 +74      ;;=Only reasons for non-acute days of care may be selected!

 +75      ;;^DD(356.1,13,12.1)

 +76      ;;=S DIC("S")="I $P(^(0),U,5)=2"

 +77      ;;^DD(356.1,13,21,0)

 +78      ;;=^^3^3^2940213^^

 +79      ;;^DD(356.1,13,21,1,0)

 +80      ;;=If this patient had non-acute days of care during this review, enter

 +81      ;;^DD(356.1,13,21,2,0)

 +82      ;;=reasons that best describe the reason for the non-acute days.  If no

 +83      ;;^DD(356.1,13,21,3,0)

 +84      ;;=reason can be deteremined select the reason 8.01, Other.

 +85      ;;^DD(356.1,21,0)

 +86      ;;=PATIENT^CJ30^^ ; ^X ^DD(356.1,21,9.2) S Y(356.1,21,101)=$S($D(^IBT(356,D0,0)):^(0),1:"") S X=$S('$D(^DPT(+$P(Y(356.1,21,101),U,2),0)):"",1:$P(^(0),U,1)) S D0=Y(356.1,21,80)

 +87      ;;^DD(356.1,21,9)

 +88      ;;=^

 +89      ;;^DD(356.1,21,9.01)

 +90      ;;=356^.02;356.1^.02

 +91      ;;^DD(356.1,21,9.1)

 +92      ;;=TRACKING ID:PATIENT

 +93      ;;^DD(356.1,21,9.2)

 +94      ;;=S Y(356.1,21,80)=$S($D(D0):D0,1:""),Y(356.1,21,1)=$S($D(^IBT(356.1,D0,0)):^(0),1:""),D0=$P(Y(356.1,21,1),U,2) S:'$D(^IBT(356,+D0,0)) D0=-1

 +95      ;;^DD(356.1,21,21,0)

 +96      ;;=^^1^1^2930726^

 +97      ;;^DD(356.1,21,21,1,0)

 +98      ;;=This is the patient whose tracking entry this review is for.

 +99      ;;^DD(356.111,0)

 +100     ;;=UTILIZATION REVIEW COMMENTS SUB-FIELD^^.01^1

IBINI05V.m