Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBINI06L

IBINI06L.m

Go to the documentation of this file.
  1. IBINI06L ; ; 21-MAR-1994
  1. ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,356.4)
  1. ;;=^IBE(356.4,
  1. ;;^UTILITY(U,$J,356.4,0)
  1. ;;=CLAIMS TRACKING NON-ACUTE CLASSIFICATIONS^356.4I^64^64
  1. ;;^UTILITY(U,$J,356.4,1,0)
  1. ;;=LACK OF FAMILY/SOCIAL SUPPORT^1.01^^1^1
  1. ;;^UTILITY(U,$J,356.4,1,1,0)
  1. ;;=^^1^1^2940201^^^
  1. ;;^UTILITY(U,$J,356.4,1,1,1,0)
  1. ;;=Lack of family/social support/unable to care for self
  1. ;;^UTILITY(U,$J,356.4,2,0)
  1. ;;=HOMELESS^1.02^^1^1
  1. ;;^UTILITY(U,$J,356.4,2,1,0)
  1. ;;=^^1^1^2940201^^^
  1. ;;^UTILITY(U,$J,356.4,2,1,1,0)
  1. ;;=Homeless
  1. ;;^UTILITY(U,$J,356.4,3,0)
  1. ;;=RESPITE CARE^1.03^^1^1
  1. ;;^UTILITY(U,$J,356.4,3,1,0)
  1. ;;=^^1^1^2940201^^^
  1. ;;^UTILITY(U,$J,356.4,3,1,1,0)
  1. ;;=Respite Care
  1. ;;^UTILITY(U,$J,356.4,4,0)
  1. ;;=ADMISSION WAS FOR FAMILY CONVENIENCE^1.04^^1^1
  1. ;;^UTILITY(U,$J,356.4,4,1,0)
  1. ;;=^^1^1^2940201^^^
  1. ;;^UTILITY(U,$J,356.4,4,1,1,0)
  1. ;;=Admission was for family, patient or physician convenience
  1. ;;^UTILITY(U,$J,356.4,5,0)
  1. ;;=OTHER (SOCIAL FACTOR)^1.05^^1^1
  1. ;;^UTILITY(U,$J,356.4,5,1,0)
  1. ;;=^^1^1^2940201^^^
  1. ;;^UTILITY(U,$J,356.4,5,1,1,0)
  1. ;;=Other (specify in comments sections)
  1. ;;^UTILITY(U,$J,356.4,6,0)
  1. ;;=DISTANCE TO TRAVEL TO HOSPITAL^2.01^^2^1
  1. ;;^UTILITY(U,$J,356.4,6,1,0)
  1. ;;=^^1^1^2940201^^^
  1. ;;^UTILITY(U,$J,356.4,6,1,1,0)
  1. ;;=Distance to travel to hospital (over 75 miles)
  1. ;;^UTILITY(U,$J,356.4,7,0)
  1. ;;=OTHER (ENVIRONMENTAL FACTOR)^2.02^^2^1
  1. ;;^UTILITY(U,$J,356.4,7,1,0)
  1. ;;=^^1^1^2940201^^^
  1. ;;^UTILITY(U,$J,356.4,7,1,1,0)
  1. ;;=Other (Specify in comments section)
  1. ;;^UTILITY(U,$J,356.4,8,0)
  1. ;;=DELAY IN SCHEDULING APPOINTMENT^3.01^^3^1
  1. ;;^UTILITY(U,$J,356.4,8,1,0)
  1. ;;=^^1^1^2940201^^^
  1. ;;^UTILITY(U,$J,356.4,8,1,1,0)
  1. ;;=Delay is scheduling outpatient clinic appointment
  1. ;;^UTILITY(U,$J,356.4,9,0)
  1. ;;=DELAY IN SCHEDULING PROCEDURE^3.02^^3^1
  1. ;;^UTILITY(U,$J,356.4,9,1,0)
  1. ;;=^^1^1^2940201^^^
  1. ;;^UTILITY(U,$J,356.4,9,1,1,0)
  1. ;;=Delay is scheduling outpatient procedure
  1. ;;^UTILITY(U,$J,356.4,10,0)
  1. ;;=ADMISSION TO CIRCUMENT SLOWNESS^3.03^^3^1
  1. ;;^UTILITY(U,$J,356.4,10,1,0)
  1. ;;=^^3^3^2940201^^^^
  1. ;;^UTILITY(U,$J,356.4,10,1,1,0)
  1. ;;=Admission due to wish to circumvent slowness or lack of timely
  1. ;;^UTILITY(U,$J,356.4,10,1,2,0)
  1. ;;=appointments in ambulatory care system; e.g., timeliness of routine
  1. ;;^UTILITY(U,$J,356.4,10,1,3,0)
  1. ;;=lab, X-rays, procedures, consults
  1. ;;^UTILITY(U,$J,356.4,11,0)
  1. ;;=PREMATURE ADMISSION^3.04^^3^1
  1. ;;^UTILITY(U,$J,356.4,11,1,0)
  1. ;;=^^3^3^2940201^^^
  1. ;;^UTILITY(U,$J,356.4,11,1,1,0)
  1. ;;=Premature admission (Procedures scheduled more than one day after
  1. ;;^UTILITY(U,$J,356.4,11,1,2,0)
  1. ;;=admission or patient admitted on Friday and not evaluated until
  1. ;;^UTILITY(U,$J,356.4,11,1,3,0)
  1. ;;=Monday)
  1. ;;^UTILITY(U,$J,356.4,12,0)
  1. ;;=OTHER (SCHEDULING)^3.05^^3^1
  1. ;;^UTILITY(U,$J,356.4,12,1,0)
  1. ;;=^^1^1^2940201^^^
  1. ;;^UTILITY(U,$J,356.4,12,1,1,0)
  1. ;;=Other (Specify if comments section)
  1. ;;^UTILITY(U,$J,356.4,13,0)
  1. ;;=ALTERNATIVE BEDS UNAVAILABLE^4.01^^4^1
  1. ;;^UTILITY(U,$J,356.4,13,1,0)
  1. ;;=^^2^2^2940201^^^
  1. ;;^UTILITY(U,$J,356.4,13,1,1,0)
  1. ;;=Alternative beds unavailable; e.g., Observations, Intermediate Care,
  1. ;;^UTILITY(U,$J,356.4,13,1,2,0)
  1. ;;=NHCU, Hospice
  1. ;;^UTILITY(U,$J,356.4,14,0)
  1. ;;=OUTPATIENT PROCEDURE UNAVAILABLE^4.02^^4^1
  1. ;;^UTILITY(U,$J,356.4,14,1,0)
  1. ;;=^^2^2^2940201^^^
  1. ;;^UTILITY(U,$J,356.4,14,1,1,0)
  1. ;;=Outpatient procedure unavailable (not offered as an outpatient
  1. ;;^UTILITY(U,$J,356.4,14,1,2,0)
  1. ;;=procedure)
  1. ;;^UTILITY(U,$J,356.4,15,0)
  1. ;;=OTHER OUTPATIENT SERVICES/CARE UNAVAILABLE^4.03^^4^1
  1. ;;^UTILITY(U,$J,356.4,15,1,0)
  1. ;;=^^4^4^2940201^^^
  1. ;;^UTILITY(U,$J,356.4,15,1,1,0)
  1. ;;=Other outpatient services/care unavailable; e.g., board and care,