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

IBDEI13H.m

Go to the documentation of this file.
IBDEI13H ; ; 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,17777,2)
 ;;=^5044168
 ;;^UTILITY(U,$J,358.3,17778,0)
 ;;=S61.401A^^61^792^18
 ;;^UTILITY(U,$J,358.3,17778,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17778,1,3,0)
 ;;=3^Open Wound,Right Hand,Unspec
 ;;^UTILITY(U,$J,358.3,17778,1,4,0)
 ;;=4^S61.401A
 ;;^UTILITY(U,$J,358.3,17778,2)
 ;;=^5032981
 ;;^UTILITY(U,$J,358.3,17779,0)
 ;;=S71.001A^^61^792^19
 ;;^UTILITY(U,$J,358.3,17779,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17779,1,3,0)
 ;;=3^Open Wound,Right Hip,Unspec
 ;;^UTILITY(U,$J,358.3,17779,1,4,0)
 ;;=4^S71.001A
 ;;^UTILITY(U,$J,358.3,17779,2)
 ;;=^5036969
 ;;^UTILITY(U,$J,358.3,17780,0)
 ;;=S91.105A^^61^792^10
 ;;^UTILITY(U,$J,358.3,17780,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17780,1,3,0)
 ;;=3^Open Wound,Left Lesser Toe(s) w/o Damage to Nail,Unspec
 ;;^UTILITY(U,$J,358.3,17780,1,4,0)
 ;;=4^S91.105A
 ;;^UTILITY(U,$J,358.3,17780,2)
 ;;=^5044177
 ;;^UTILITY(U,$J,358.3,17781,0)
 ;;=S81.801A^^61^792^21
 ;;^UTILITY(U,$J,358.3,17781,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17781,1,3,0)
 ;;=3^Open Wound,Right Lower Leg,Unspec
 ;;^UTILITY(U,$J,358.3,17781,1,4,0)
 ;;=4^S81.801A
 ;;^UTILITY(U,$J,358.3,17781,2)
 ;;=^5040065
 ;;^UTILITY(U,$J,358.3,17782,0)
 ;;=S71.102A^^61^792^12
 ;;^UTILITY(U,$J,358.3,17782,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17782,1,3,0)
 ;;=3^Open Wound,Left Thigh,Unspec
 ;;^UTILITY(U,$J,358.3,17782,1,4,0)
 ;;=4^S71.102A
 ;;^UTILITY(U,$J,358.3,17782,2)
 ;;=^5037011
 ;;^UTILITY(U,$J,358.3,17783,0)
 ;;=S71.101A^^61^792^22
 ;;^UTILITY(U,$J,358.3,17783,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17783,1,3,0)
 ;;=3^Open Wound,Right Thigh,Unspec
 ;;^UTILITY(U,$J,358.3,17783,1,4,0)
 ;;=4^S71.101A
 ;;^UTILITY(U,$J,358.3,17783,2)
 ;;=^5037008
 ;;^UTILITY(U,$J,358.3,17784,0)
 ;;=S41.101A^^61^792^23
 ;;^UTILITY(U,$J,358.3,17784,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17784,1,3,0)
 ;;=3^Open Wound,Right Upper Arm,Unspec
 ;;^UTILITY(U,$J,358.3,17784,1,4,0)
 ;;=4^S41.101A
 ;;^UTILITY(U,$J,358.3,17784,2)
 ;;=^5026330
 ;;^UTILITY(U,$J,358.3,17785,0)
 ;;=E03.5^^61^793^37
 ;;^UTILITY(U,$J,358.3,17785,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17785,1,3,0)
 ;;=3^Myxedema Coma
 ;;^UTILITY(U,$J,358.3,17785,1,4,0)
 ;;=4^E03.5
 ;;^UTILITY(U,$J,358.3,17785,2)
 ;;=^5002474
 ;;^UTILITY(U,$J,358.3,17786,0)
 ;;=R40.2121^^61^793^33
 ;;^UTILITY(U,$J,358.3,17786,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17786,1,3,0)
 ;;=3^Coma Scale,Eyes Open,to Pain,In the Field
 ;;^UTILITY(U,$J,358.3,17786,1,4,0)
 ;;=4^R40.2121
 ;;^UTILITY(U,$J,358.3,17786,2)
 ;;=^5019361
 ;;^UTILITY(U,$J,358.3,17787,0)
 ;;=R40.2120^^61^793^34
 ;;^UTILITY(U,$J,358.3,17787,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17787,1,3,0)
 ;;=3^Coma Scale,Eyes Open,to Pain,Unspec Time
 ;;^UTILITY(U,$J,358.3,17787,1,4,0)
 ;;=4^R40.2120
 ;;^UTILITY(U,$J,358.3,17787,2)
 ;;=^5019360
 ;;^UTILITY(U,$J,358.3,17788,0)
 ;;=R40.2114^^61^793^26
 ;;^UTILITY(U,$J,358.3,17788,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17788,1,3,0)
 ;;=3^Coma Scale,Eyes Open,Never,24+ hrs
 ;;^UTILITY(U,$J,358.3,17788,1,4,0)
 ;;=4^R40.2114
 ;;^UTILITY(U,$J,358.3,17788,2)
 ;;=^5019359
 ;;^UTILITY(U,$J,358.3,17789,0)
 ;;=R40.2113^^61^793^30
 ;;^UTILITY(U,$J,358.3,17789,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,17789,1,3,0)
 ;;=3^Coma Scale,Eyes Open,Never,at Hospital Admission
 ;;^UTILITY(U,$J,358.3,17789,1,4,0)
 ;;=4^R40.2113
 ;;^UTILITY(U,$J,358.3,17789,2)
 ;;=^5019358