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

IBDEI20Q.m

Go to the documentation of this file.
IBDEI20Q ; ; 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,32215,1,3,0)
 ;;=3^Removal of Sutures
 ;;^UTILITY(U,$J,358.3,32215,1,4,0)
 ;;=4^Z48.02
 ;;^UTILITY(U,$J,358.3,32215,2)
 ;;=^5063035
 ;;^UTILITY(U,$J,358.3,32216,0)
 ;;=Z48.03^^126^1651^28
 ;;^UTILITY(U,$J,358.3,32216,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32216,1,3,0)
 ;;=3^Removal of Drains
 ;;^UTILITY(U,$J,358.3,32216,1,4,0)
 ;;=4^Z48.03
 ;;^UTILITY(U,$J,358.3,32216,2)
 ;;=^5063036
 ;;^UTILITY(U,$J,358.3,32217,0)
 ;;=Z48.816^^126^1651^2
 ;;^UTILITY(U,$J,358.3,32217,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32217,1,3,0)
 ;;=3^Aftercare Following Surgery,GU System
 ;;^UTILITY(U,$J,358.3,32217,1,4,0)
 ;;=4^Z48.816
 ;;^UTILITY(U,$J,358.3,32217,2)
 ;;=^5063053
 ;;^UTILITY(U,$J,358.3,32218,0)
 ;;=Z48.3^^126^1651^3
 ;;^UTILITY(U,$J,358.3,32218,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32218,1,3,0)
 ;;=3^Aftercare Following Surgery,Neoplasm
 ;;^UTILITY(U,$J,358.3,32218,1,4,0)
 ;;=4^Z48.3
 ;;^UTILITY(U,$J,358.3,32218,2)
 ;;=^5063046
 ;;^UTILITY(U,$J,358.3,32219,0)
 ;;=Z48.817^^126^1651^4
 ;;^UTILITY(U,$J,358.3,32219,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32219,1,3,0)
 ;;=3^Aftercare Following Surgery,Skin
 ;;^UTILITY(U,$J,358.3,32219,1,4,0)
 ;;=4^Z48.817
 ;;^UTILITY(U,$J,358.3,32219,2)
 ;;=^5063054
 ;;^UTILITY(U,$J,358.3,32220,0)
 ;;=Z68.1^^126^1651^5
 ;;^UTILITY(U,$J,358.3,32220,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32220,1,3,0)
 ;;=3^BMI 19.9 or Less,Adult
 ;;^UTILITY(U,$J,358.3,32220,1,4,0)
 ;;=4^Z68.1
 ;;^UTILITY(U,$J,358.3,32220,2)
 ;;=^5063198
 ;;^UTILITY(U,$J,358.3,32221,0)
 ;;=Z71.82^^126^1651^10
 ;;^UTILITY(U,$J,358.3,32221,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32221,1,3,0)
 ;;=3^Exercise Counseling
 ;;^UTILITY(U,$J,358.3,32221,1,4,0)
 ;;=4^Z71.82
 ;;^UTILITY(U,$J,358.3,32221,2)
 ;;=^303466
 ;;^UTILITY(U,$J,358.3,32222,0)
 ;;=Z71.83^^126^1651^19
 ;;^UTILITY(U,$J,358.3,32222,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32222,1,3,0)
 ;;=3^Nonprocreative Genetic Counseling
 ;;^UTILITY(U,$J,358.3,32222,1,4,0)
 ;;=4^Z71.83
 ;;^UTILITY(U,$J,358.3,32222,2)
 ;;=^5151860
 ;;^UTILITY(U,$J,358.3,32223,0)
 ;;=Z87.890^^126^1651^31
 ;;^UTILITY(U,$J,358.3,32223,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32223,1,3,0)
 ;;=3^Sex Reassignment,Personal Hx
 ;;^UTILITY(U,$J,358.3,32223,1,4,0)
 ;;=4^Z87.890
 ;;^UTILITY(U,$J,358.3,32223,2)
 ;;=^5063517
 ;;^UTILITY(U,$J,358.3,32224,0)
 ;;=F64.0^^126^1651^33
 ;;^UTILITY(U,$J,358.3,32224,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32224,1,3,0)
 ;;=3^Transsexualism
 ;;^UTILITY(U,$J,358.3,32224,1,4,0)
 ;;=4^F64.0
 ;;^UTILITY(U,$J,358.3,32224,2)
 ;;=^121404^Z87.890
 ;;^UTILITY(U,$J,358.3,32225,0)
 ;;=Z91.5^^126^1652^1
 ;;^UTILITY(U,$J,358.3,32225,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32225,1,3,0)
 ;;=3^Personal Hx of Suicide Attempt(s)
 ;;^UTILITY(U,$J,358.3,32225,1,4,0)
 ;;=4^Z91.5
 ;;^UTILITY(U,$J,358.3,32225,2)
 ;;=^5063624
 ;;^UTILITY(U,$J,358.3,32226,0)
 ;;=R45.851^^126^1652^2
 ;;^UTILITY(U,$J,358.3,32226,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32226,1,3,0)
 ;;=3^Suicidal Ideations
 ;;^UTILITY(U,$J,358.3,32226,1,4,0)
 ;;=4^R45.851
 ;;^UTILITY(U,$J,358.3,32226,2)
 ;;=^5019474
 ;;^UTILITY(U,$J,358.3,32227,0)
 ;;=T14.91XA^^126^1652^3
 ;;^UTILITY(U,$J,358.3,32227,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,32227,1,3,0)
 ;;=3^Suicide Attempt,Initial Encounter
 ;;^UTILITY(U,$J,358.3,32227,1,4,0)
 ;;=4^T14.91XA