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

IBDEI0VD.m

Go to the documentation of this file.
  1. IBDEI0VD ; ; 01-FEB-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
  1. 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
  1. Q Q
  1. ;;^UTILITY(U,$J,358.3,14148,1,4,0)
  1. ;;=4^M93.272
  1. ;;^UTILITY(U,$J,358.3,14148,2)
  1. ;;=^5015275
  1. ;;^UTILITY(U,$J,358.3,14149,0)
  1. ;;=M93.271^^55^671^43
  1. ;;^UTILITY(U,$J,358.3,14149,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,14149,1,3,0)
  1. ;;=3^Osteochondritis dissecans, right ankle & joints of right foot
  1. ;;^UTILITY(U,$J,358.3,14149,1,4,0)
  1. ;;=4^M93.271
  1. ;;^UTILITY(U,$J,358.3,14149,2)
  1. ;;=^5015274
  1. ;;^UTILITY(U,$J,358.3,14150,0)
  1. ;;=C79.51^^55^671^53
  1. ;;^UTILITY(U,$J,358.3,14150,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,14150,1,3,0)
  1. ;;=3^Secondary malignant neoplasm of bone
  1. ;;^UTILITY(U,$J,358.3,14150,1,4,0)
  1. ;;=4^C79.51
  1. ;;^UTILITY(U,$J,358.3,14150,2)
  1. ;;=^5001350
  1. ;;^UTILITY(U,$J,358.3,14151,0)
  1. ;;=L40.51^^55^671^2
  1. ;;^UTILITY(U,$J,358.3,14151,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,14151,1,3,0)
  1. ;;=3^Arthropathic psoriasis, distal interphalangeal
  1. ;;^UTILITY(U,$J,358.3,14151,1,4,0)
  1. ;;=4^L40.51
  1. ;;^UTILITY(U,$J,358.3,14151,2)
  1. ;;=^5009166
  1. ;;^UTILITY(U,$J,358.3,14152,0)
  1. ;;=L40.52^^55^671^49
  1. ;;^UTILITY(U,$J,358.3,14152,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,14152,1,3,0)
  1. ;;=3^Psoriatic arthritis mutilans
  1. ;;^UTILITY(U,$J,358.3,14152,1,4,0)
  1. ;;=4^L40.52
  1. ;;^UTILITY(U,$J,358.3,14152,2)
  1. ;;=^5009167
  1. ;;^UTILITY(U,$J,358.3,14153,0)
  1. ;;=L40.53^^55^671^52
  1. ;;^UTILITY(U,$J,358.3,14153,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,14153,1,3,0)
  1. ;;=3^Psoriatic spondylitis
  1. ;;^UTILITY(U,$J,358.3,14153,1,4,0)
  1. ;;=4^L40.53
  1. ;;^UTILITY(U,$J,358.3,14153,2)
  1. ;;=^5009168
  1. ;;^UTILITY(U,$J,358.3,14154,0)
  1. ;;=L40.54^^55^671^51
  1. ;;^UTILITY(U,$J,358.3,14154,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,14154,1,3,0)
  1. ;;=3^Psoriatic juvenile arthropathy
  1. ;;^UTILITY(U,$J,358.3,14154,1,4,0)
  1. ;;=4^L40.54
  1. ;;^UTILITY(U,$J,358.3,14154,2)
  1. ;;=^5009169
  1. ;;^UTILITY(U,$J,358.3,14155,0)
  1. ;;=L40.59^^55^671^50
  1. ;;^UTILITY(U,$J,358.3,14155,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,14155,1,3,0)
  1. ;;=3^Psoriatic arthropathy, other
  1. ;;^UTILITY(U,$J,358.3,14155,1,4,0)
  1. ;;=4^L40.59
  1. ;;^UTILITY(U,$J,358.3,14155,2)
  1. ;;=^5009170
  1. ;;^UTILITY(U,$J,358.3,14156,0)
  1. ;;=T79.A11A^^55^671^12
  1. ;;^UTILITY(U,$J,358.3,14156,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,14156,1,3,0)
  1. ;;=3^Compartment syndrome of right upper extrem, init encntr
  1. ;;^UTILITY(U,$J,358.3,14156,1,4,0)
  1. ;;=4^T79.A11A
  1. ;;^UTILITY(U,$J,358.3,14156,2)
  1. ;;=^5054326
  1. ;;^UTILITY(U,$J,358.3,14157,0)
  1. ;;=T79.A11D^^55^671^13
  1. ;;^UTILITY(U,$J,358.3,14157,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,14157,1,3,0)
  1. ;;=3^Compartment syndrome of right upper extrem, subs
  1. ;;^UTILITY(U,$J,358.3,14157,1,4,0)
  1. ;;=4^T79.A11D
  1. ;;^UTILITY(U,$J,358.3,14157,2)
  1. ;;=^5054327
  1. ;;^UTILITY(U,$J,358.3,14158,0)
  1. ;;=T79.A12A^^55^671^6
  1. ;;^UTILITY(U,$J,358.3,14158,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,14158,1,3,0)
  1. ;;=3^Compartment syndrome of left upper extremity, init
  1. ;;^UTILITY(U,$J,358.3,14158,1,4,0)
  1. ;;=4^T79.A12A
  1. ;;^UTILITY(U,$J,358.3,14158,2)
  1. ;;=^5054329
  1. ;;^UTILITY(U,$J,358.3,14159,0)
  1. ;;=T79.A12D^^55^671^7
  1. ;;^UTILITY(U,$J,358.3,14159,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,14159,1,3,0)
  1. ;;=3^Compartment syndrome of left upper extremity, subs
  1. ;;^UTILITY(U,$J,358.3,14159,1,4,0)
  1. ;;=4^T79.A12D
  1. ;;^UTILITY(U,$J,358.3,14159,2)
  1. ;;=^5054330
  1. ;;^UTILITY(U,$J,358.3,14160,0)
  1. ;;=T79.A21A^^55^671^10
  1. ;;^UTILITY(U,$J,358.3,14160,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,14160,1,3,0)
  1. ;;=3^Compartment syndrome of right lower extrem, init