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

IBDEI2IP.m

Go to the documentation of this file.
IBDEI2IP ; ; 04-FEB-2020
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
 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,40197,2)
 ;;=^5014854
 ;;^UTILITY(U,$J,358.3,40198,0)
 ;;=M88.0^^152^2006^70
 ;;^UTILITY(U,$J,358.3,40198,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40198,1,3,0)
 ;;=3^Osteitis Deformans of Skull
 ;;^UTILITY(U,$J,358.3,40198,1,4,0)
 ;;=4^M88.0
 ;;^UTILITY(U,$J,358.3,40198,2)
 ;;=^5014874
 ;;^UTILITY(U,$J,358.3,40199,0)
 ;;=M88.1^^152^2006^71
 ;;^UTILITY(U,$J,358.3,40199,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40199,1,3,0)
 ;;=3^Osteitis Deformans of Vertebrae
 ;;^UTILITY(U,$J,358.3,40199,1,4,0)
 ;;=4^M88.1
 ;;^UTILITY(U,$J,358.3,40199,2)
 ;;=^5014875
 ;;^UTILITY(U,$J,358.3,40200,0)
 ;;=M88.89^^152^2006^69
 ;;^UTILITY(U,$J,358.3,40200,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40200,1,3,0)
 ;;=3^Osteitis Deformans of Mult Sites
 ;;^UTILITY(U,$J,358.3,40200,1,4,0)
 ;;=4^M88.89
 ;;^UTILITY(U,$J,358.3,40200,2)
 ;;=^5014898
 ;;^UTILITY(U,$J,358.3,40201,0)
 ;;=M94.0^^152^2006^16
 ;;^UTILITY(U,$J,358.3,40201,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40201,1,3,0)
 ;;=3^Chondrocostal Junction Syndrome/Costochondritis
 ;;^UTILITY(U,$J,358.3,40201,1,4,0)
 ;;=4^M94.0
 ;;^UTILITY(U,$J,358.3,40201,2)
 ;;=^5015327
 ;;^UTILITY(U,$J,358.3,40202,0)
 ;;=M94.20^^152^2006^19
 ;;^UTILITY(U,$J,358.3,40202,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40202,1,3,0)
 ;;=3^Chondromalacia,Unspec Site
 ;;^UTILITY(U,$J,358.3,40202,1,4,0)
 ;;=4^M94.20
 ;;^UTILITY(U,$J,358.3,40202,2)
 ;;=^5015329
 ;;^UTILITY(U,$J,358.3,40203,0)
 ;;=M94.261^^152^2006^18
 ;;^UTILITY(U,$J,358.3,40203,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40203,1,3,0)
 ;;=3^Chondromalacia,Right Knee
 ;;^UTILITY(U,$J,358.3,40203,1,4,0)
 ;;=4^M94.261
 ;;^UTILITY(U,$J,358.3,40203,2)
 ;;=^5015345
 ;;^UTILITY(U,$J,358.3,40204,0)
 ;;=M94.262^^152^2006^17
 ;;^UTILITY(U,$J,358.3,40204,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40204,1,3,0)
 ;;=3^Chondromalacia,Left Knee
 ;;^UTILITY(U,$J,358.3,40204,1,4,0)
 ;;=4^M94.262
 ;;^UTILITY(U,$J,358.3,40204,2)
 ;;=^5015346
 ;;^UTILITY(U,$J,358.3,40205,0)
 ;;=R25.2^^152^2006^37
 ;;^UTILITY(U,$J,358.3,40205,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40205,1,3,0)
 ;;=3^Cramp and Spasm
 ;;^UTILITY(U,$J,358.3,40205,1,4,0)
 ;;=4^R25.2
 ;;^UTILITY(U,$J,358.3,40205,2)
 ;;=^5019301
 ;;^UTILITY(U,$J,358.3,40206,0)
 ;;=R70.0^^152^2006^39
 ;;^UTILITY(U,$J,358.3,40206,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40206,1,3,0)
 ;;=3^Elevated Erythrocyte Sedimentation Rate
 ;;^UTILITY(U,$J,358.3,40206,1,4,0)
 ;;=4^R70.0
 ;;^UTILITY(U,$J,358.3,40206,2)
 ;;=^5019559
 ;;^UTILITY(U,$J,358.3,40207,0)
 ;;=M25.511^^152^2006^119
 ;;^UTILITY(U,$J,358.3,40207,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40207,1,3,0)
 ;;=3^Pain in Right Shoulder
 ;;^UTILITY(U,$J,358.3,40207,1,4,0)
 ;;=4^M25.511
 ;;^UTILITY(U,$J,358.3,40207,2)
 ;;=^5011602
 ;;^UTILITY(U,$J,358.3,40208,0)
 ;;=M25.512^^152^2006^109
 ;;^UTILITY(U,$J,358.3,40208,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40208,1,3,0)
 ;;=3^Pain in Left Shoulder
 ;;^UTILITY(U,$J,358.3,40208,1,4,0)
 ;;=4^M25.512
 ;;^UTILITY(U,$J,358.3,40208,2)
 ;;=^5011603
 ;;^UTILITY(U,$J,358.3,40209,0)
 ;;=M25.521^^152^2006^113
 ;;^UTILITY(U,$J,358.3,40209,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,40209,1,3,0)
 ;;=3^Pain in Right Elbow
 ;;^UTILITY(U,$J,358.3,40209,1,4,0)
 ;;=4^M25.521
 ;;^UTILITY(U,$J,358.3,40209,2)
 ;;=^5011605
 ;;^UTILITY(U,$J,358.3,40210,0)
 ;;=M25.522^^152^2006^103