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

IBDEI11Y.m

Go to the documentation of this file.
  1. IBDEI11Y ; ; 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,17100,0)
  1. ;;=M80.08XD^^61^781^2
  1. ;;^UTILITY(U,$J,358.3,17100,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17100,1,3,0)
  1. ;;=3^Age-Related Osteoporosis w/ Vertebra Fx,Subs Encntr
  1. ;;^UTILITY(U,$J,358.3,17100,1,4,0)
  1. ;;=4^M80.08XD
  1. ;;^UTILITY(U,$J,358.3,17100,2)
  1. ;;=^5013496
  1. ;;^UTILITY(U,$J,358.3,17101,0)
  1. ;;=M84.48XA^^61^781^123
  1. ;;^UTILITY(U,$J,358.3,17101,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17101,1,3,0)
  1. ;;=3^Pathological Fx,Oth Site,Init Encntr
  1. ;;^UTILITY(U,$J,358.3,17101,1,4,0)
  1. ;;=4^M84.48XA
  1. ;;^UTILITY(U,$J,358.3,17101,2)
  1. ;;=^5014016
  1. ;;^UTILITY(U,$J,358.3,17102,0)
  1. ;;=M84.48XD^^61^781^124
  1. ;;^UTILITY(U,$J,358.3,17102,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17102,1,3,0)
  1. ;;=3^Pathological Fx,Oth Site,Subs Encntr
  1. ;;^UTILITY(U,$J,358.3,17102,1,4,0)
  1. ;;=4^M84.48XD
  1. ;;^UTILITY(U,$J,358.3,17102,2)
  1. ;;=^5014017
  1. ;;^UTILITY(U,$J,358.3,17103,0)
  1. ;;=M87.011^^61^781^48
  1. ;;^UTILITY(U,$J,358.3,17103,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17103,1,3,0)
  1. ;;=3^Idiopathic Aseptic Necrosis of Right Shoulder
  1. ;;^UTILITY(U,$J,358.3,17103,1,4,0)
  1. ;;=4^M87.011
  1. ;;^UTILITY(U,$J,358.3,17103,2)
  1. ;;=^5014658
  1. ;;^UTILITY(U,$J,358.3,17104,0)
  1. ;;=M87.012^^61^781^45
  1. ;;^UTILITY(U,$J,358.3,17104,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17104,1,3,0)
  1. ;;=3^Idiopathic Aseptic Necrosis of Left Shoulder
  1. ;;^UTILITY(U,$J,358.3,17104,1,4,0)
  1. ;;=4^M87.012
  1. ;;^UTILITY(U,$J,358.3,17104,2)
  1. ;;=^5014659
  1. ;;^UTILITY(U,$J,358.3,17105,0)
  1. ;;=M87.050^^61^781^46
  1. ;;^UTILITY(U,$J,358.3,17105,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17105,1,3,0)
  1. ;;=3^Idiopathic Aseptic Necrosis of Pelvis
  1. ;;^UTILITY(U,$J,358.3,17105,1,4,0)
  1. ;;=4^M87.050
  1. ;;^UTILITY(U,$J,358.3,17105,2)
  1. ;;=^5014679
  1. ;;^UTILITY(U,$J,358.3,17106,0)
  1. ;;=M87.051^^61^781^47
  1. ;;^UTILITY(U,$J,358.3,17106,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17106,1,3,0)
  1. ;;=3^Idiopathic Aseptic Necrosis of Right Femur
  1. ;;^UTILITY(U,$J,358.3,17106,1,4,0)
  1. ;;=4^M87.051
  1. ;;^UTILITY(U,$J,358.3,17106,2)
  1. ;;=^5014680
  1. ;;^UTILITY(U,$J,358.3,17107,0)
  1. ;;=M87.052^^61^781^44
  1. ;;^UTILITY(U,$J,358.3,17107,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17107,1,3,0)
  1. ;;=3^Idiopathic Aseptic Necrosis of Left Femur
  1. ;;^UTILITY(U,$J,358.3,17107,1,4,0)
  1. ;;=4^M87.052
  1. ;;^UTILITY(U,$J,358.3,17107,2)
  1. ;;=^5014681
  1. ;;^UTILITY(U,$J,358.3,17108,0)
  1. ;;=M87.111^^61^781^78
  1. ;;^UTILITY(U,$J,358.3,17108,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17108,1,3,0)
  1. ;;=3^Osteonecrosis d/t Drugs,Right Shoulder
  1. ;;^UTILITY(U,$J,358.3,17108,1,4,0)
  1. ;;=4^M87.111
  1. ;;^UTILITY(U,$J,358.3,17108,2)
  1. ;;=^5014701
  1. ;;^UTILITY(U,$J,358.3,17109,0)
  1. ;;=M87.112^^61^781^75
  1. ;;^UTILITY(U,$J,358.3,17109,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17109,1,3,0)
  1. ;;=3^Osteonecrosis d/t Drugs,Left Shoulder
  1. ;;^UTILITY(U,$J,358.3,17109,1,4,0)
  1. ;;=4^M87.112
  1. ;;^UTILITY(U,$J,358.3,17109,2)
  1. ;;=^5014702
  1. ;;^UTILITY(U,$J,358.3,17110,0)
  1. ;;=M87.150^^61^781^76
  1. ;;^UTILITY(U,$J,358.3,17110,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17110,1,3,0)
  1. ;;=3^Osteonecrosis d/t Drugs,Pelvis
  1. ;;^UTILITY(U,$J,358.3,17110,1,4,0)
  1. ;;=4^M87.150
  1. ;;^UTILITY(U,$J,358.3,17110,2)
  1. ;;=^5014722
  1. ;;^UTILITY(U,$J,358.3,17111,0)
  1. ;;=M87.151^^61^781^77
  1. ;;^UTILITY(U,$J,358.3,17111,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17111,1,3,0)
  1. ;;=3^Osteonecrosis d/t Drugs,Right Femur
  1. ;;^UTILITY(U,$J,358.3,17111,1,4,0)
  1. ;;=4^M87.151