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