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

IBDEI11R.m

Go to the documentation of this file.
  1. IBDEI11R ; ; 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,17015,1,3,0)
  1. ;;=3^Systemic Lupus Erythematosus,Glomerular Disease
  1. ;;^UTILITY(U,$J,358.3,17015,1,4,0)
  1. ;;=4^M32.14
  1. ;;^UTILITY(U,$J,358.3,17015,2)
  1. ;;=^5011757
  1. ;;^UTILITY(U,$J,358.3,17016,0)
  1. ;;=M32.12^^61^781^186
  1. ;;^UTILITY(U,$J,358.3,17016,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17016,1,3,0)
  1. ;;=3^Systemic Lupus Erythematosus,Pericarditis
  1. ;;^UTILITY(U,$J,358.3,17016,1,4,0)
  1. ;;=4^M32.12
  1. ;;^UTILITY(U,$J,358.3,17016,2)
  1. ;;=^5011755
  1. ;;^UTILITY(U,$J,358.3,17017,0)
  1. ;;=M05.59^^61^781^165
  1. ;;^UTILITY(U,$J,358.3,17017,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17017,1,3,0)
  1. ;;=3^Rheumatoid Polyneuropathy w/ Rheumatoid Arthritis of Mult Sites
  1. ;;^UTILITY(U,$J,358.3,17017,1,4,0)
  1. ;;=4^M05.59
  1. ;;^UTILITY(U,$J,358.3,17017,2)
  1. ;;=^5009976
  1. ;;^UTILITY(U,$J,358.3,17018,0)
  1. ;;=M05.711^^61^781^159
  1. ;;^UTILITY(U,$J,358.3,17018,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17018,1,3,0)
  1. ;;=3^Rheumatoid Arthritis of Right Shoulder
  1. ;;^UTILITY(U,$J,358.3,17018,1,4,0)
  1. ;;=4^M05.711
  1. ;;^UTILITY(U,$J,358.3,17018,2)
  1. ;;=^5010001
  1. ;;^UTILITY(U,$J,358.3,17019,0)
  1. ;;=M05.712^^61^781^152
  1. ;;^UTILITY(U,$J,358.3,17019,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17019,1,3,0)
  1. ;;=3^Rheumatoid Arthritis of Left Shoulder
  1. ;;^UTILITY(U,$J,358.3,17019,1,4,0)
  1. ;;=4^M05.712
  1. ;;^UTILITY(U,$J,358.3,17019,2)
  1. ;;=^5010002
  1. ;;^UTILITY(U,$J,358.3,17020,0)
  1. ;;=M05.731^^61^781^160
  1. ;;^UTILITY(U,$J,358.3,17020,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17020,1,3,0)
  1. ;;=3^Rheumatoid Arthritis of Right Wrist
  1. ;;^UTILITY(U,$J,358.3,17020,1,4,0)
  1. ;;=4^M05.731
  1. ;;^UTILITY(U,$J,358.3,17020,2)
  1. ;;=^5010007
  1. ;;^UTILITY(U,$J,358.3,17021,0)
  1. ;;=M05.732^^61^781^153
  1. ;;^UTILITY(U,$J,358.3,17021,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17021,1,3,0)
  1. ;;=3^Rheumatoid Arthritis of Left Wrist
  1. ;;^UTILITY(U,$J,358.3,17021,1,4,0)
  1. ;;=4^M05.732
  1. ;;^UTILITY(U,$J,358.3,17021,2)
  1. ;;=^5010008
  1. ;;^UTILITY(U,$J,358.3,17022,0)
  1. ;;=M05.741^^61^781^156
  1. ;;^UTILITY(U,$J,358.3,17022,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17022,1,3,0)
  1. ;;=3^Rheumatoid Arthritis of Right Hand
  1. ;;^UTILITY(U,$J,358.3,17022,1,4,0)
  1. ;;=4^M05.741
  1. ;;^UTILITY(U,$J,358.3,17022,2)
  1. ;;=^5010010
  1. ;;^UTILITY(U,$J,358.3,17023,0)
  1. ;;=M05.742^^61^781^149
  1. ;;^UTILITY(U,$J,358.3,17023,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17023,1,3,0)
  1. ;;=3^Rheumatoid Arthritis of Left Hand
  1. ;;^UTILITY(U,$J,358.3,17023,1,4,0)
  1. ;;=4^M05.742
  1. ;;^UTILITY(U,$J,358.3,17023,2)
  1. ;;=^5010011
  1. ;;^UTILITY(U,$J,358.3,17024,0)
  1. ;;=M05.751^^61^781^157
  1. ;;^UTILITY(U,$J,358.3,17024,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17024,1,3,0)
  1. ;;=3^Rheumatoid Arthritis of Right Hip
  1. ;;^UTILITY(U,$J,358.3,17024,1,4,0)
  1. ;;=4^M05.751
  1. ;;^UTILITY(U,$J,358.3,17024,2)
  1. ;;=^5010013
  1. ;;^UTILITY(U,$J,358.3,17025,0)
  1. ;;=M05.752^^61^781^150
  1. ;;^UTILITY(U,$J,358.3,17025,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17025,1,3,0)
  1. ;;=3^Rheumatoid Arthritis of Left Hip
  1. ;;^UTILITY(U,$J,358.3,17025,1,4,0)
  1. ;;=4^M05.752
  1. ;;^UTILITY(U,$J,358.3,17025,2)
  1. ;;=^5010014
  1. ;;^UTILITY(U,$J,358.3,17026,0)
  1. ;;=M05.761^^61^781^158
  1. ;;^UTILITY(U,$J,358.3,17026,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,17026,1,3,0)
  1. ;;=3^Rheumatoid Arthritis of Right Knee
  1. ;;^UTILITY(U,$J,358.3,17026,1,4,0)
  1. ;;=4^M05.761
  1. ;;^UTILITY(U,$J,358.3,17026,2)
  1. ;;=^5010016
  1. ;;^UTILITY(U,$J,358.3,17027,0)
  1. ;;=M05.762^^61^781^151
  1. ;;^UTILITY(U,$J,358.3,17027,1,0)
  1. ;;=^358.31IA^4^2