IBINI07C ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQ(356.93) 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.93,.03,"DT")
;;=2931130
;;^DD(356.93,.04,0)
;;=ESTIMATED LENGTH OF STAY^NJ7,1^^0;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."2N.N) X
;;^DD(356.93,.04,1,0)
;;=^.1
;;^DD(356.93,.04,1,1,0)
;;=356.93^AC^MUMPS
;;^DD(356.93,.04,1,1,1)
;;=Q
;;^DD(356.93,.04,1,1,2)
;;=Q
;;^DD(356.93,.04,1,1,"%D",0)
;;=^^3^3^2931215^
;;^DD(356.93,.04,1,1,"%D",1,0)
;;=Cross-reference to cause filing of data. Field Days Remaining
;;^DD(356.93,.04,1,1,"%D",2,0)
;;=utilizes value in input transform and may not be filed without this
;;^DD(356.93,.04,1,1,"%D",3,0)
;;=x-ref.
;;^DD(356.93,.04,1,1,"DT")
;;=2931215
;;^DD(356.93,.04,3)
;;=Type a Number between 0 and 99999, 1 Decimal Digit
;;^DD(356.93,.04,21,0)
;;=^^5^5^2940213^^^
;;^DD(356.93,.04,21,1,0)
;;=This is the estimated length of stay in the medical center for UR or
;;^DD(356.93,.04,21,2,0)
;;=Insurance purposes. This is not related to the average length of
;;^DD(356.93,.04,21,3,0)
;;=stays for PTF. It is the estimated LOS for this admission for this
;;^DD(356.93,.04,21,4,0)
;;=patient for this DRG. It is used to help determine if for billing
;;^DD(356.93,.04,21,5,0)
;;=purposes that this patient has exceeded his length of stay.
;;^DD(356.93,.04,"DT")
;;=2931215
;;^DD(356.93,.05,0)
;;=DAYS REMAINING^NJ5,0X^^0;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N)!(X>$P($G(^IBT(356.93,DA,0)),"^",4)) X
;;^DD(356.93,.05,3)
;;=The Days Remaining can not exceed the Estimated Length of Stay. Type a Number between 0 and 99999, 0 Decimal Digits
;;^DD(356.93,.05,21,0)
;;=^^3^3^2940213^^
;;^DD(356.93,.05,21,1,0)
;;=This is the days remaining that this patient has for this DRG.
;;^DD(356.93,.05,21,2,0)
;;=It is the ELOS minus the number of days the patient has already been
;;^DD(356.93,.05,21,3,0)
;;=treated for this episode.
;;^DD(356.93,.05,"DT")
;;=2931201
IBINI07C ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQ(356.93)
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.93,.03,"DT")
+2 ;;=2931130
+3 ;;^DD(356.93,.04,0)
+4 ;;=ESTIMATED LENGTH OF STAY^NJ7,1^^0;4^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."2N.N) X
+5 ;;^DD(356.93,.04,1,0)
+6 ;;=^.1
+7 ;;^DD(356.93,.04,1,1,0)
+8 ;;=356.93^AC^MUMPS
+9 ;;^DD(356.93,.04,1,1,1)
+10 ;;=Q
+11 ;;^DD(356.93,.04,1,1,2)
+12 ;;=Q
+13 ;;^DD(356.93,.04,1,1,"%D",0)
+14 ;;=^^3^3^2931215^
+15 ;;^DD(356.93,.04,1,1,"%D",1,0)
+16 ;;=Cross-reference to cause filing of data. Field Days Remaining
+17 ;;^DD(356.93,.04,1,1,"%D",2,0)
+18 ;;=utilizes value in input transform and may not be filed without this
+19 ;;^DD(356.93,.04,1,1,"%D",3,0)
+20 ;;=x-ref.
+21 ;;^DD(356.93,.04,1,1,"DT")
+22 ;;=2931215
+23 ;;^DD(356.93,.04,3)
+24 ;;=Type a Number between 0 and 99999, 1 Decimal Digit
+25 ;;^DD(356.93,.04,21,0)
+26 ;;=^^5^5^2940213^^^
+27 ;;^DD(356.93,.04,21,1,0)
+28 ;;=This is the estimated length of stay in the medical center for UR or
+29 ;;^DD(356.93,.04,21,2,0)
+30 ;;=Insurance purposes. This is not related to the average length of
+31 ;;^DD(356.93,.04,21,3,0)
+32 ;;=stays for PTF. It is the estimated LOS for this admission for this
+33 ;;^DD(356.93,.04,21,4,0)
+34 ;;=patient for this DRG. It is used to help determine if for billing
+35 ;;^DD(356.93,.04,21,5,0)
+36 ;;=purposes that this patient has exceeded his length of stay.
+37 ;;^DD(356.93,.04,"DT")
+38 ;;=2931215
+39 ;;^DD(356.93,.05,0)
+40 ;;=DAYS REMAINING^NJ5,0X^^0;5^K:+X'=X!(X>99999)!(X<0)!(X?.E1"."1N.N)!(X>$P($G(^IBT(356.93,DA,0)),"^",4)) X
+41 ;;^DD(356.93,.05,3)
+42 ;;=The Days Remaining can not exceed the Estimated Length of Stay. Type a Number between 0 and 99999, 0 Decimal Digits
+43 ;;^DD(356.93,.05,21,0)
+44 ;;=^^3^3^2940213^^
+45 ;;^DD(356.93,.05,21,1,0)
+46 ;;=This is the days remaining that this patient has for this DRG.
+47 ;;^DD(356.93,.05,21,2,0)
+48 ;;=It is the ELOS minus the number of days the patient has already been
+49 ;;^DD(356.93,.05,21,3,0)
+50 ;;=treated for this episode.
+51 ;;^DD(356.93,.05,"DT")
+52 ;;=2931201