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

IBDEI0V1.m

Go to the documentation of this file.
IBDEI0V1 ; ; 01-FEB-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
 Q:'DIFQR(358.3)  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,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
Q Q
 ;;^UTILITY(U,$J,358.3,14006,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14006,1,3,0)
 ;;=3^Instability, left hand NEC
 ;;^UTILITY(U,$J,358.3,14006,1,4,0)
 ;;=4^M25.342
 ;;^UTILITY(U,$J,358.3,14006,2)
 ;;=^5011561
 ;;^UTILITY(U,$J,358.3,14007,0)
 ;;=M25.341^^55^668^12
 ;;^UTILITY(U,$J,358.3,14007,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14007,1,3,0)
 ;;=3^Instability, right hand NEC
 ;;^UTILITY(U,$J,358.3,14007,1,4,0)
 ;;=4^M25.341
 ;;^UTILITY(U,$J,358.3,14007,2)
 ;;=^5011560
 ;;^UTILITY(U,$J,358.3,14008,0)
 ;;=M79.645^^55^668^15
 ;;^UTILITY(U,$J,358.3,14008,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14008,1,3,0)
 ;;=3^Pain in left finger(s)
 ;;^UTILITY(U,$J,358.3,14008,1,4,0)
 ;;=4^M79.645
 ;;^UTILITY(U,$J,358.3,14008,2)
 ;;=^5013342
 ;;^UTILITY(U,$J,358.3,14009,0)
 ;;=M79.642^^55^668^16
 ;;^UTILITY(U,$J,358.3,14009,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14009,1,3,0)
 ;;=3^Pain in left hand
 ;;^UTILITY(U,$J,358.3,14009,1,4,0)
 ;;=4^M79.642
 ;;^UTILITY(U,$J,358.3,14009,2)
 ;;=^5013339
 ;;^UTILITY(U,$J,358.3,14010,0)
 ;;=M79.644^^55^668^17
 ;;^UTILITY(U,$J,358.3,14010,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14010,1,3,0)
 ;;=3^Pain in right finger(s)
 ;;^UTILITY(U,$J,358.3,14010,1,4,0)
 ;;=4^M79.644
 ;;^UTILITY(U,$J,358.3,14010,2)
 ;;=^5013341
 ;;^UTILITY(U,$J,358.3,14011,0)
 ;;=M79.641^^55^668^18
 ;;^UTILITY(U,$J,358.3,14011,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14011,1,3,0)
 ;;=3^Pain in right hand
 ;;^UTILITY(U,$J,358.3,14011,1,4,0)
 ;;=4^M79.641
 ;;^UTILITY(U,$J,358.3,14011,2)
 ;;=^5013338
 ;;^UTILITY(U,$J,358.3,14012,0)
 ;;=M72.0^^55^668^19
 ;;^UTILITY(U,$J,358.3,14012,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14012,1,3,0)
 ;;=3^Palmar fascial fibromatosis [Dupuytren]
 ;;^UTILITY(U,$J,358.3,14012,1,4,0)
 ;;=4^M72.0
 ;;^UTILITY(U,$J,358.3,14012,2)
 ;;=^5013233
 ;;^UTILITY(U,$J,358.3,14013,0)
 ;;=M19.042^^55^668^22
 ;;^UTILITY(U,$J,358.3,14013,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14013,1,3,0)
 ;;=3^Primary osteoarthritis, left hand
 ;;^UTILITY(U,$J,358.3,14013,1,4,0)
 ;;=4^M19.042
 ;;^UTILITY(U,$J,358.3,14013,2)
 ;;=^5010818
 ;;^UTILITY(U,$J,358.3,14014,0)
 ;;=M19.041^^55^668^23
 ;;^UTILITY(U,$J,358.3,14014,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14014,1,3,0)
 ;;=3^Primary osteoarthritis, right hand
 ;;^UTILITY(U,$J,358.3,14014,1,4,0)
 ;;=4^M19.041
 ;;^UTILITY(U,$J,358.3,14014,2)
 ;;=^5010817
 ;;^UTILITY(U,$J,358.3,14015,0)
 ;;=M12.542^^55^668^26
 ;;^UTILITY(U,$J,358.3,14015,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14015,1,3,0)
 ;;=3^Traumatic arthropathy, left hand
 ;;^UTILITY(U,$J,358.3,14015,1,4,0)
 ;;=4^M12.542
 ;;^UTILITY(U,$J,358.3,14015,2)
 ;;=^5010629
 ;;^UTILITY(U,$J,358.3,14016,0)
 ;;=M12.541^^55^668^27
 ;;^UTILITY(U,$J,358.3,14016,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14016,1,3,0)
 ;;=3^Traumatic arthropathy, right hand
 ;;^UTILITY(U,$J,358.3,14016,1,4,0)
 ;;=4^M12.541
 ;;^UTILITY(U,$J,358.3,14016,2)
 ;;=^5010628
 ;;^UTILITY(U,$J,358.3,14017,0)
 ;;=M65.322^^55^668^28
 ;;^UTILITY(U,$J,358.3,14017,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14017,1,3,0)
 ;;=3^Trigger finger, left index finger
 ;;^UTILITY(U,$J,358.3,14017,1,4,0)
 ;;=4^M65.322
 ;;^UTILITY(U,$J,358.3,14017,2)
 ;;=^5012781
 ;;^UTILITY(U,$J,358.3,14018,0)
 ;;=M65.352^^55^668^29
 ;;^UTILITY(U,$J,358.3,14018,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,14018,1,3,0)
 ;;=3^Trigger finger, left little finger