IBINI06N ; ; 21-MAR-1994
;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
Q:'DIFQR(356.4) 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
;;^UTILITY(U,$J,356.4,27,1,1,0)
;;=Other (Specify in comments section)
;;^UTILITY(U,$J,356.4,28,0)
;;=OTHER (COMMUNICATION PROBLEM)^7.01^^7^1
;;^UTILITY(U,$J,356.4,28,1,0)
;;=^^1^1^2940201^^^
;;^UTILITY(U,$J,356.4,28,1,1,0)
;;=Other (Specify in Comments section)
;;^UTILITY(U,$J,356.4,29,0)
;;=OTHER REASON IDENTIFIED^8.01^^8^1
;;^UTILITY(U,$J,356.4,29,1,0)
;;=^^2^2^2940201^^^^
;;^UTILITY(U,$J,356.4,29,1,1,0)
;;=If you have been unable to identify any reasons from this list, please
;;^UTILITY(U,$J,356.4,29,1,2,0)
;;=use 8.01, Other reason identified.
;;^UTILITY(U,$J,356.4,30,0)
;;=PATIENT IS CONVALESCING^9.01^^1^2
;;^UTILITY(U,$J,356.4,30,1,0)
;;=^^3^3^2940201^^^
;;^UTILITY(U,$J,356.4,30,1,1,0)
;;=Patient is convalescing from an illness, and it is anticipated
;;^UTILITY(U,$J,356.4,30,1,2,0)
;;=that his/her stay in an alternative facility would be less than
;;^UTILITY(U,$J,356.4,30,1,3,0)
;;=72 hours
;;^UTILITY(U,$J,356.4,31,0)
;;=PATIENT FROM UNHEALTHY ENVIRONMENT^9.02^^1^2
;;^UTILITY(U,$J,356.4,31,1,0)
;;=^^2^2^2940201^^^
;;^UTILITY(U,$J,356.4,31,1,1,0)
;;=Patient from unhealthy environment, patient kept until environment
;;^UTILITY(U,$J,356.4,31,1,2,0)
;;=becomes acceptable or alternative facility found
;;^UTILITY(U,$J,356.4,32,0)
;;=LACK OF FAMILY FOR HOME CARE^9.03^^1^2
;;^UTILITY(U,$J,356.4,32,1,0)
;;=^^1^1^2940201^^^
;;^UTILITY(U,$J,356.4,32,1,1,0)
;;=Lack of family for home care (or lack of supportive family)
;;^UTILITY(U,$J,356.4,33,0)
;;=HOMELESS^9.04^^1^2
;;^UTILITY(U,$J,356.4,33,1,0)
;;=^^1^1^2940201^^^
;;^UTILITY(U,$J,356.4,33,1,1,0)
;;=Homeless
;;^UTILITY(U,$J,356.4,34,0)
;;=RESPITE CARE^9.05^^1^2
;;^UTILITY(U,$J,356.4,34,1,0)
;;=^^1^1^2940201^^^
;;^UTILITY(U,$J,356.4,34,1,1,0)
;;=Respite Care
;;^UTILITY(U,$J,356.4,35,0)
;;=OTHER (SOCIAL FACTORS)^9.06^^1^2
;;^UTILITY(U,$J,356.4,35,1,0)
;;=^^1^1^2940201^^^
;;^UTILITY(U,$J,356.4,35,1,1,0)
;;=Other (Specify in comments section)
;;^UTILITY(U,$J,356.4,36,0)
;;=WEATHER DEEMED INAPROPRIATE^10.01^^2^2
;;^UTILITY(U,$J,356.4,36,1,0)
;;=^^1^1^2940201^^^
;;^UTILITY(U,$J,356.4,36,1,1,0)
;;=Weather deemed inappropriate by practitioner for patients to travel
;;^UTILITY(U,$J,356.4,37,0)
;;=DISTANCE TO TRAVEL OVER 75 MILES^10.02^^2^2
;;^UTILITY(U,$J,356.4,37,1,0)
;;=^^1^1^2940201^^^
;;^UTILITY(U,$J,356.4,37,1,1,0)
;;=Distance to travel between hospital and home (over 75 miles)
;;^UTILITY(U,$J,356.4,38,0)
;;=OTHER (ENVIRONMENTAL FACTORS)^10.03^^2^2
;;^UTILITY(U,$J,356.4,38,1,0)
;;=^^1^1^2940201^^^
;;^UTILITY(U,$J,356.4,38,1,1,0)
;;=Other (Specify in comments section)
;;^UTILITY(U,$J,356.4,39,0)
;;=PROBLEM IN TIMELY SCHEDULING^11.01^^3^2
;;^UTILITY(U,$J,356.4,39,1,0)
;;=^^1^1^2940201^^^
;;^UTILITY(U,$J,356.4,39,1,1,0)
;;=Problem in timely scheduling/canceling of procedure
;;^UTILITY(U,$J,356.4,40,0)
;;=WAITING FOR APPROPRIATE PROCEDURE^11.02^^3^2
;;^UTILITY(U,$J,356.4,40,1,0)
;;=^^1^1^2940218^^^^
;;^UTILITY(U,$J,356.4,40,1,1,0)
;;=Waiting for appropriate procedure to be done at non-VA facility
;;^UTILITY(U,$J,356.4,41,0)
;;=OTHER (SCHEDULING)^11.05^^3^2
;;^UTILITY(U,$J,356.4,41,1,0)
;;=^^1^1^2940201^^^
;;^UTILITY(U,$J,356.4,41,1,1,0)
;;=Other (Specify in comments sections)
;;^UTILITY(U,$J,356.4,42,0)
;;=ALTERNATE BEDS UNAVAILABLE^12.01^^4^2
;;^UTILITY(U,$J,356.4,42,1,0)
;;=^^4^4^2940201^^^
;;^UTILITY(U,$J,356.4,42,1,1,0)
;;=Alternate beds unavailable within the facility; e.g., Observation,
;;^UTILITY(U,$J,356.4,42,1,2,0)
;;=Intermediate Care, NHCU, or Hospice; e.g. type of beds available
IBINI06N ; ; 21-MAR-1994
+1 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
+2 IF 'DIFQR(356.4)
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 ;;^UTILITY(U,$J,356.4,27,1,1,0)
+2 ;;=Other (Specify in comments section)
+3 ;;^UTILITY(U,$J,356.4,28,0)
+4 ;;=OTHER (COMMUNICATION PROBLEM)^7.01^^7^1
+5 ;;^UTILITY(U,$J,356.4,28,1,0)
+6 ;;=^^1^1^2940201^^^
+7 ;;^UTILITY(U,$J,356.4,28,1,1,0)
+8 ;;=Other (Specify in Comments section)
+9 ;;^UTILITY(U,$J,356.4,29,0)
+10 ;;=OTHER REASON IDENTIFIED^8.01^^8^1
+11 ;;^UTILITY(U,$J,356.4,29,1,0)
+12 ;;=^^2^2^2940201^^^^
+13 ;;^UTILITY(U,$J,356.4,29,1,1,0)
+14 ;;=If you have been unable to identify any reasons from this list, please
+15 ;;^UTILITY(U,$J,356.4,29,1,2,0)
+16 ;;=use 8.01, Other reason identified.
+17 ;;^UTILITY(U,$J,356.4,30,0)
+18 ;;=PATIENT IS CONVALESCING^9.01^^1^2
+19 ;;^UTILITY(U,$J,356.4,30,1,0)
+20 ;;=^^3^3^2940201^^^
+21 ;;^UTILITY(U,$J,356.4,30,1,1,0)
+22 ;;=Patient is convalescing from an illness, and it is anticipated
+23 ;;^UTILITY(U,$J,356.4,30,1,2,0)
+24 ;;=that his/her stay in an alternative facility would be less than
+25 ;;^UTILITY(U,$J,356.4,30,1,3,0)
+26 ;;=72 hours
+27 ;;^UTILITY(U,$J,356.4,31,0)
+28 ;;=PATIENT FROM UNHEALTHY ENVIRONMENT^9.02^^1^2
+29 ;;^UTILITY(U,$J,356.4,31,1,0)
+30 ;;=^^2^2^2940201^^^
+31 ;;^UTILITY(U,$J,356.4,31,1,1,0)
+32 ;;=Patient from unhealthy environment, patient kept until environment
+33 ;;^UTILITY(U,$J,356.4,31,1,2,0)
+34 ;;=becomes acceptable or alternative facility found
+35 ;;^UTILITY(U,$J,356.4,32,0)
+36 ;;=LACK OF FAMILY FOR HOME CARE^9.03^^1^2
+37 ;;^UTILITY(U,$J,356.4,32,1,0)
+38 ;;=^^1^1^2940201^^^
+39 ;;^UTILITY(U,$J,356.4,32,1,1,0)
+40 ;;=Lack of family for home care (or lack of supportive family)
+41 ;;^UTILITY(U,$J,356.4,33,0)
+42 ;;=HOMELESS^9.04^^1^2
+43 ;;^UTILITY(U,$J,356.4,33,1,0)
+44 ;;=^^1^1^2940201^^^
+45 ;;^UTILITY(U,$J,356.4,33,1,1,0)
+46 ;;=Homeless
+47 ;;^UTILITY(U,$J,356.4,34,0)
+48 ;;=RESPITE CARE^9.05^^1^2
+49 ;;^UTILITY(U,$J,356.4,34,1,0)
+50 ;;=^^1^1^2940201^^^
+51 ;;^UTILITY(U,$J,356.4,34,1,1,0)
+52 ;;=Respite Care
+53 ;;^UTILITY(U,$J,356.4,35,0)
+54 ;;=OTHER (SOCIAL FACTORS)^9.06^^1^2
+55 ;;^UTILITY(U,$J,356.4,35,1,0)
+56 ;;=^^1^1^2940201^^^
+57 ;;^UTILITY(U,$J,356.4,35,1,1,0)
+58 ;;=Other (Specify in comments section)
+59 ;;^UTILITY(U,$J,356.4,36,0)
+60 ;;=WEATHER DEEMED INAPROPRIATE^10.01^^2^2
+61 ;;^UTILITY(U,$J,356.4,36,1,0)
+62 ;;=^^1^1^2940201^^^
+63 ;;^UTILITY(U,$J,356.4,36,1,1,0)
+64 ;;=Weather deemed inappropriate by practitioner for patients to travel
+65 ;;^UTILITY(U,$J,356.4,37,0)
+66 ;;=DISTANCE TO TRAVEL OVER 75 MILES^10.02^^2^2
+67 ;;^UTILITY(U,$J,356.4,37,1,0)
+68 ;;=^^1^1^2940201^^^
+69 ;;^UTILITY(U,$J,356.4,37,1,1,0)
+70 ;;=Distance to travel between hospital and home (over 75 miles)
+71 ;;^UTILITY(U,$J,356.4,38,0)
+72 ;;=OTHER (ENVIRONMENTAL FACTORS)^10.03^^2^2
+73 ;;^UTILITY(U,$J,356.4,38,1,0)
+74 ;;=^^1^1^2940201^^^
+75 ;;^UTILITY(U,$J,356.4,38,1,1,0)
+76 ;;=Other (Specify in comments section)
+77 ;;^UTILITY(U,$J,356.4,39,0)
+78 ;;=PROBLEM IN TIMELY SCHEDULING^11.01^^3^2
+79 ;;^UTILITY(U,$J,356.4,39,1,0)
+80 ;;=^^1^1^2940201^^^
+81 ;;^UTILITY(U,$J,356.4,39,1,1,0)
+82 ;;=Problem in timely scheduling/canceling of procedure
+83 ;;^UTILITY(U,$J,356.4,40,0)
+84 ;;=WAITING FOR APPROPRIATE PROCEDURE^11.02^^3^2
+85 ;;^UTILITY(U,$J,356.4,40,1,0)
+86 ;;=^^1^1^2940218^^^^
+87 ;;^UTILITY(U,$J,356.4,40,1,1,0)
+88 ;;=Waiting for appropriate procedure to be done at non-VA facility
+89 ;;^UTILITY(U,$J,356.4,41,0)
+90 ;;=OTHER (SCHEDULING)^11.05^^3^2
+91 ;;^UTILITY(U,$J,356.4,41,1,0)
+92 ;;=^^1^1^2940201^^^
+93 ;;^UTILITY(U,$J,356.4,41,1,1,0)
+94 ;;=Other (Specify in comments sections)
+95 ;;^UTILITY(U,$J,356.4,42,0)
+96 ;;=ALTERNATE BEDS UNAVAILABLE^12.01^^4^2
+97 ;;^UTILITY(U,$J,356.4,42,1,0)
+98 ;;=^^4^4^2940201^^^
+99 ;;^UTILITY(U,$J,356.4,42,1,1,0)
+100 ;;=Alternate beds unavailable within the facility; e.g., Observation,
+101 ;;^UTILITY(U,$J,356.4,42,1,2,0)
+102 ;;=Intermediate Care, NHCU, or Hospice; e.g. type of beds available
