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

IBDEI0P7.m

Go to the documentation of this file.
  1. IBDEI0P7 ; ; 01-FEB-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
  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,11312,1,3,0)
  1. ;;=3^Noncompliance w/ Renal Dialysis
  1. ;;^UTILITY(U,$J,358.3,11312,1,4,0)
  1. ;;=4^Z91.15
  1. ;;^UTILITY(U,$J,358.3,11312,2)
  1. ;;=^5063617
  1. ;;^UTILITY(U,$J,358.3,11313,0)
  1. ;;=Z98.890^^42^524^3
  1. ;;^UTILITY(U,$J,358.3,11313,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11313,1,3,0)
  1. ;;=3^Postprocedural States,Oth Spec
  1. ;;^UTILITY(U,$J,358.3,11313,1,4,0)
  1. ;;=4^Z98.890
  1. ;;^UTILITY(U,$J,358.3,11313,2)
  1. ;;=^5063754
  1. ;;^UTILITY(U,$J,358.3,11314,0)
  1. ;;=Z56.0^^42^525^14
  1. ;;^UTILITY(U,$J,358.3,11314,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11314,1,3,0)
  1. ;;=3^Unemployment,Unspec
  1. ;;^UTILITY(U,$J,358.3,11314,1,4,0)
  1. ;;=4^Z56.0
  1. ;;^UTILITY(U,$J,358.3,11314,2)
  1. ;;=^5063107
  1. ;;^UTILITY(U,$J,358.3,11315,0)
  1. ;;=Z65.5^^42^525^4
  1. ;;^UTILITY(U,$J,358.3,11315,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11315,1,3,0)
  1. ;;=3^Disaster/War/Hostility Exposure
  1. ;;^UTILITY(U,$J,358.3,11315,1,4,0)
  1. ;;=4^Z65.5
  1. ;;^UTILITY(U,$J,358.3,11315,2)
  1. ;;=^5063184
  1. ;;^UTILITY(U,$J,358.3,11316,0)
  1. ;;=Z56.1^^42^525^2
  1. ;;^UTILITY(U,$J,358.3,11316,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11316,1,3,0)
  1. ;;=3^Change of Job
  1. ;;^UTILITY(U,$J,358.3,11316,1,4,0)
  1. ;;=4^Z56.1
  1. ;;^UTILITY(U,$J,358.3,11316,2)
  1. ;;=^5063108
  1. ;;^UTILITY(U,$J,358.3,11317,0)
  1. ;;=Z55.9^^42^525^5
  1. ;;^UTILITY(U,$J,358.3,11317,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11317,1,3,0)
  1. ;;=3^Education/Literacy Problems,Unspec
  1. ;;^UTILITY(U,$J,358.3,11317,1,4,0)
  1. ;;=4^Z55.9
  1. ;;^UTILITY(U,$J,358.3,11317,2)
  1. ;;=^5063106
  1. ;;^UTILITY(U,$J,358.3,11318,0)
  1. ;;=Z60.3^^42^525^1
  1. ;;^UTILITY(U,$J,358.3,11318,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11318,1,3,0)
  1. ;;=3^Acculturation Difficulty
  1. ;;^UTILITY(U,$J,358.3,11318,1,4,0)
  1. ;;=4^Z60.3
  1. ;;^UTILITY(U,$J,358.3,11318,2)
  1. ;;=^5063141
  1. ;;^UTILITY(U,$J,358.3,11319,0)
  1. ;;=Z65.3^^42^525^8
  1. ;;^UTILITY(U,$J,358.3,11319,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11319,1,3,0)
  1. ;;=3^Legal Circumstance Problems
  1. ;;^UTILITY(U,$J,358.3,11319,1,4,0)
  1. ;;=4^Z65.3
  1. ;;^UTILITY(U,$J,358.3,11319,2)
  1. ;;=^5063182
  1. ;;^UTILITY(U,$J,358.3,11320,0)
  1. ;;=Z53.1^^42^525^11
  1. ;;^UTILITY(U,$J,358.3,11320,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11320,1,3,0)
  1. ;;=3^Procedure/Treatment not Done d/t Pt Belief/Group Pressure
  1. ;;^UTILITY(U,$J,358.3,11320,1,4,0)
  1. ;;=4^Z53.1
  1. ;;^UTILITY(U,$J,358.3,11320,2)
  1. ;;=^5063094
  1. ;;^UTILITY(U,$J,358.3,11321,0)
  1. ;;=Z63.4^^42^525^3
  1. ;;^UTILITY(U,$J,358.3,11321,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11321,1,3,0)
  1. ;;=3^Disappearance/Death of Family Member
  1. ;;^UTILITY(U,$J,358.3,11321,1,4,0)
  1. ;;=4^Z63.4
  1. ;;^UTILITY(U,$J,358.3,11321,2)
  1. ;;=^5063168
  1. ;;^UTILITY(U,$J,358.3,11322,0)
  1. ;;=Z69.021^^42^525^10
  1. ;;^UTILITY(U,$J,358.3,11322,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11322,1,3,0)
  1. ;;=3^Mental Hlth Svc for Perpetrator of Non-Parental Child Abuse
  1. ;;^UTILITY(U,$J,358.3,11322,1,4,0)
  1. ;;=4^Z69.021
  1. ;;^UTILITY(U,$J,358.3,11322,2)
  1. ;;=^5063231
  1. ;;^UTILITY(U,$J,358.3,11323,0)
  1. ;;=Z69.82^^42^525^9
  1. ;;^UTILITY(U,$J,358.3,11323,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11323,1,3,0)
  1. ;;=3^Mental Hlth Svc for Perpetrator of Abuse
  1. ;;^UTILITY(U,$J,358.3,11323,1,4,0)
  1. ;;=4^Z69.82
  1. ;;^UTILITY(U,$J,358.3,11323,2)
  1. ;;=^5063235
  1. ;;^UTILITY(U,$J,358.3,11324,0)
  1. ;;=R45.851^^42^525^13
  1. ;;^UTILITY(U,$J,358.3,11324,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,11324,1,3,0)
  1. ;;=3^Suicidal Ideations
  1. ;;^UTILITY(U,$J,358.3,11324,1,4,0)
  1. ;;=4^R45.851