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

IBDEI2NE.m

Go to the documentation of this file.
IBDEI2NE ; ; 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,42253,1,3,0)
 ;;=3^Disp body of right calcaneus fx, sequela
 ;;^UTILITY(U,$J,358.3,42253,1,4,0)
 ;;=4^S92.011S
 ;;^UTILITY(U,$J,358.3,42253,2)
 ;;=^5044373
 ;;^UTILITY(U,$J,358.3,42254,0)
 ;;=S92.121S^^155^2068^22
 ;;^UTILITY(U,$J,358.3,42254,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42254,1,3,0)
 ;;=3^Disp body of right talus fx, sequela
 ;;^UTILITY(U,$J,358.3,42254,1,4,0)
 ;;=4^S92.121S
 ;;^UTILITY(U,$J,358.3,42254,2)
 ;;=^5044653
 ;;^UTILITY(U,$J,358.3,42255,0)
 ;;=S92.112S^^155^2068^46
 ;;^UTILITY(U,$J,358.3,42255,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42255,1,3,0)
 ;;=3^Disp neck of left talus fx, sequla
 ;;^UTILITY(U,$J,358.3,42255,1,4,0)
 ;;=4^S92.112S
 ;;^UTILITY(U,$J,358.3,42255,2)
 ;;=^5044618
 ;;^UTILITY(U,$J,358.3,42256,0)
 ;;=S92.111S^^155^2068^47
 ;;^UTILITY(U,$J,358.3,42256,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42256,1,3,0)
 ;;=3^Disp neck of right talus fx, sequela
 ;;^UTILITY(U,$J,358.3,42256,1,4,0)
 ;;=4^S92.111S
 ;;^UTILITY(U,$J,358.3,42256,2)
 ;;=^5044611
 ;;^UTILITY(U,$J,358.3,42257,0)
 ;;=S92.132S^^155^2068^48
 ;;^UTILITY(U,$J,358.3,42257,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42257,1,3,0)
 ;;=3^Disp posterior process fx of left talus, sequela
 ;;^UTILITY(U,$J,358.3,42257,1,4,0)
 ;;=4^S92.132S
 ;;^UTILITY(U,$J,358.3,42257,2)
 ;;=^5044702
 ;;^UTILITY(U,$J,358.3,42258,0)
 ;;=S92.131S^^155^2068^49
 ;;^UTILITY(U,$J,358.3,42258,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42258,1,3,0)
 ;;=3^Disp posterior process fx of right talus, sequela
 ;;^UTILITY(U,$J,358.3,42258,1,4,0)
 ;;=4^S92.131S
 ;;^UTILITY(U,$J,358.3,42258,2)
 ;;=^5044695
 ;;^UTILITY(U,$J,358.3,42259,0)
 ;;=S92.062S^^155^2068^33
 ;;^UTILITY(U,$J,358.3,42259,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42259,1,3,0)
 ;;=3^Disp intraarticular fx of left calcaneus, sequela
 ;;^UTILITY(U,$J,358.3,42259,1,4,0)
 ;;=4^S92.062S
 ;;^UTILITY(U,$J,358.3,42259,2)
 ;;=^5044562
 ;;^UTILITY(U,$J,358.3,42260,0)
 ;;=S92.061S^^155^2068^34
 ;;^UTILITY(U,$J,358.3,42260,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42260,1,3,0)
 ;;=3^Disp intraarticular fx of right calcaneus, sequela
 ;;^UTILITY(U,$J,358.3,42260,1,4,0)
 ;;=4^S92.061S
 ;;^UTILITY(U,$J,358.3,42260,2)
 ;;=^5044555
 ;;^UTILITY(U,$J,358.3,42261,0)
 ;;=S92.155S^^155^2068^68
 ;;^UTILITY(U,$J,358.3,42261,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42261,1,3,0)
 ;;=3^Nondisp avulsion fx of left talus, sequela
 ;;^UTILITY(U,$J,358.3,42261,1,4,0)
 ;;=4^S92.155S
 ;;^UTILITY(U,$J,358.3,42261,2)
 ;;=^5044807
 ;;^UTILITY(U,$J,358.3,42262,0)
 ;;=S92.154S^^155^2068^69
 ;;^UTILITY(U,$J,358.3,42262,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42262,1,3,0)
 ;;=3^Nondisp avulsion fx of right talus, sequela
 ;;^UTILITY(U,$J,358.3,42262,1,4,0)
 ;;=4^S92.154S
 ;;^UTILITY(U,$J,358.3,42262,2)
 ;;=^5044800
 ;;^UTILITY(U,$J,358.3,42263,0)
 ;;=S92.035S^^155^2068^70
 ;;^UTILITY(U,$J,358.3,42263,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42263,1,3,0)
 ;;=3^Nondisp avulsion tuberosity fx of left calcaneus, sequela
 ;;^UTILITY(U,$J,358.3,42263,1,4,0)
 ;;=4^S92.035S
 ;;^UTILITY(U,$J,358.3,42263,2)
 ;;=^5044485
 ;;^UTILITY(U,$J,358.3,42264,0)
 ;;=S92.034S^^155^2068^71
 ;;^UTILITY(U,$J,358.3,42264,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,42264,1,3,0)
 ;;=3^Nondisp avulsion tuberosity fx of right calcaneus, sequela
 ;;^UTILITY(U,$J,358.3,42264,1,4,0)
 ;;=4^S92.034S