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

IBDEI1A8.m

Go to the documentation of this file.
IBDEI1A8 ; ; 01-FEB-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
 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,20728,1,4,0)
 ;;=4^S52.122S
 ;;^UTILITY(U,$J,358.3,20728,2)
 ;;=^5029078
 ;;^UTILITY(U,$J,358.3,20729,0)
 ;;=S52.121S^^67^890^23
 ;;^UTILITY(U,$J,358.3,20729,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20729,1,3,0)
 ;;=3^Disp fx of head of right radius, sequela     
 ;;^UTILITY(U,$J,358.3,20729,1,4,0)
 ;;=4^S52.121S
 ;;^UTILITY(U,$J,358.3,20729,2)
 ;;=^5029062
 ;;^UTILITY(U,$J,358.3,20730,0)
 ;;=S52.132S^^67^890^32
 ;;^UTILITY(U,$J,358.3,20730,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20730,1,3,0)
 ;;=3^Disp fx of neck of left radius, sequela      
 ;;^UTILITY(U,$J,358.3,20730,1,4,0)
 ;;=4^S52.132S
 ;;^UTILITY(U,$J,358.3,20730,2)
 ;;=^5029174
 ;;^UTILITY(U,$J,358.3,20731,0)
 ;;=S52.131S^^67^890^33
 ;;^UTILITY(U,$J,358.3,20731,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20731,1,3,0)
 ;;=3^Disp fx of neck of right radius, sequela     
 ;;^UTILITY(U,$J,358.3,20731,1,4,0)
 ;;=4^S52.131S
 ;;^UTILITY(U,$J,358.3,20731,2)
 ;;=^5029158
 ;;^UTILITY(U,$J,358.3,20732,0)
 ;;=S52.332S^^67^890^34
 ;;^UTILITY(U,$J,358.3,20732,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20732,1,3,0)
 ;;=3^Disp fx of oblique shaft of left radius, sequela
 ;;^UTILITY(U,$J,358.3,20732,1,4,0)
 ;;=4^S52.332S
 ;;^UTILITY(U,$J,358.3,20732,2)
 ;;=^5030094
 ;;^UTILITY(U,$J,358.3,20733,0)
 ;;=S52.331S^^67^890^36
 ;;^UTILITY(U,$J,358.3,20733,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20733,1,3,0)
 ;;=3^Disp fx of oblique shaft of right radius, sequela
 ;;^UTILITY(U,$J,358.3,20733,1,4,0)
 ;;=4^S52.331S
 ;;^UTILITY(U,$J,358.3,20733,2)
 ;;=^5030078
 ;;^UTILITY(U,$J,358.3,20734,0)
 ;;=S52.362S^^67^890^47
 ;;^UTILITY(U,$J,358.3,20734,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20734,1,3,0)
 ;;=3^Disp fx of segmental shaft of radius, left arm, sequela
 ;;^UTILITY(U,$J,358.3,20734,1,4,0)
 ;;=4^S52.362S
 ;;^UTILITY(U,$J,358.3,20734,2)
 ;;=^5030382
 ;;^UTILITY(U,$J,358.3,20735,0)
 ;;=S52.361S^^67^890^48
 ;;^UTILITY(U,$J,358.3,20735,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20735,1,3,0)
 ;;=3^Disp fx of segmental shaft of radius, right arm, sequela
 ;;^UTILITY(U,$J,358.3,20735,1,4,0)
 ;;=4^S52.361S
 ;;^UTILITY(U,$J,358.3,20735,2)
 ;;=^5030366
 ;;^UTILITY(U,$J,358.3,20736,0)
 ;;=S52.342S^^67^890^51
 ;;^UTILITY(U,$J,358.3,20736,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20736,1,3,0)
 ;;=3^Disp fx of spiral shaft of radius, left arm, sequela 
 ;;^UTILITY(U,$J,358.3,20736,1,4,0)
 ;;=4^S52.342S
 ;;^UTILITY(U,$J,358.3,20736,2)
 ;;=^5030190
 ;;^UTILITY(U,$J,358.3,20737,0)
 ;;=S52.341S^^67^890^52
 ;;^UTILITY(U,$J,358.3,20737,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20737,1,3,0)
 ;;=3^Disp fx of spiral shaft of radius, right arm, sequela
 ;;^UTILITY(U,$J,358.3,20737,1,4,0)
 ;;=4^S52.341S
 ;;^UTILITY(U,$J,358.3,20737,2)
 ;;=^5030174
 ;;^UTILITY(U,$J,358.3,20738,0)
 ;;=S52.322S^^67^890^55
 ;;^UTILITY(U,$J,358.3,20738,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20738,1,3,0)
 ;;=3^Disp fx of transverse shaft of left radius, sequela   
 ;;^UTILITY(U,$J,358.3,20738,1,4,0)
 ;;=4^S52.322S
 ;;^UTILITY(U,$J,358.3,20738,2)
 ;;=^5029998
 ;;^UTILITY(U,$J,358.3,20739,0)
 ;;=S52.321S^^67^890^57
 ;;^UTILITY(U,$J,358.3,20739,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,20739,1,3,0)
 ;;=3^Disp fx of transverse shaft of right radius, sequela
 ;;^UTILITY(U,$J,358.3,20739,1,4,0)
 ;;=4^S52.321S
 ;;^UTILITY(U,$J,358.3,20739,2)
 ;;=^5029982
 ;;^UTILITY(U,$J,358.3,20740,0)
 ;;=S52.372S^^67^890^65