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

IBDEI2J0.m

Go to the documentation of this file.
  1. IBDEI2J0 ; ; 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,40332,1,4,0)
  1. ;;=4^Z12.39
  1. ;;^UTILITY(U,$J,358.3,40332,2)
  1. ;;=^5062686
  1. ;;^UTILITY(U,$J,358.3,40333,0)
  1. ;;=Z12.4^^152^2009^5
  1. ;;^UTILITY(U,$J,358.3,40333,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40333,1,3,0)
  1. ;;=3^Cervix Malignant Neoplasm Screen
  1. ;;^UTILITY(U,$J,358.3,40333,1,4,0)
  1. ;;=4^Z12.4
  1. ;;^UTILITY(U,$J,358.3,40333,2)
  1. ;;=^5062687
  1. ;;^UTILITY(U,$J,358.3,40334,0)
  1. ;;=Z13.5^^152^2009^8
  1. ;;^UTILITY(U,$J,358.3,40334,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40334,1,3,0)
  1. ;;=3^Eye and Ear Disorder Screen
  1. ;;^UTILITY(U,$J,358.3,40334,1,4,0)
  1. ;;=4^Z13.5
  1. ;;^UTILITY(U,$J,358.3,40334,2)
  1. ;;=^5062706
  1. ;;^UTILITY(U,$J,358.3,40335,0)
  1. ;;=Z01.89^^152^2009^6
  1. ;;^UTILITY(U,$J,358.3,40335,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40335,1,3,0)
  1. ;;=3^Diabetic Foot Exam
  1. ;;^UTILITY(U,$J,358.3,40335,1,4,0)
  1. ;;=4^Z01.89
  1. ;;^UTILITY(U,$J,358.3,40335,2)
  1. ;;=^5062632
  1. ;;^UTILITY(U,$J,358.3,40336,0)
  1. ;;=Z11.59^^152^2009^17
  1. ;;^UTILITY(U,$J,358.3,40336,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40336,1,3,0)
  1. ;;=3^Viral Diseases Screen
  1. ;;^UTILITY(U,$J,358.3,40336,1,4,0)
  1. ;;=4^Z11.59
  1. ;;^UTILITY(U,$J,358.3,40336,2)
  1. ;;=^5062675
  1. ;;^UTILITY(U,$J,358.3,40337,0)
  1. ;;=Z13.6^^152^2009^4
  1. ;;^UTILITY(U,$J,358.3,40337,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40337,1,3,0)
  1. ;;=3^Cardiovascular Disorder Screen
  1. ;;^UTILITY(U,$J,358.3,40337,1,4,0)
  1. ;;=4^Z13.6
  1. ;;^UTILITY(U,$J,358.3,40337,2)
  1. ;;=^5062707
  1. ;;^UTILITY(U,$J,358.3,40338,0)
  1. ;;=Z12.12^^152^2009^15
  1. ;;^UTILITY(U,$J,358.3,40338,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40338,1,3,0)
  1. ;;=3^Rectum Malignant Neoplasm Screen
  1. ;;^UTILITY(U,$J,358.3,40338,1,4,0)
  1. ;;=4^Z12.12
  1. ;;^UTILITY(U,$J,358.3,40338,2)
  1. ;;=^5062682
  1. ;;^UTILITY(U,$J,358.3,40339,0)
  1. ;;=Z71.89^^152^2009^13
  1. ;;^UTILITY(U,$J,358.3,40339,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40339,1,3,0)
  1. ;;=3^Other Specified Counseling
  1. ;;^UTILITY(U,$J,358.3,40339,1,4,0)
  1. ;;=4^Z71.89
  1. ;;^UTILITY(U,$J,358.3,40339,2)
  1. ;;=^5063253
  1. ;;^UTILITY(U,$J,358.3,40340,0)
  1. ;;=Z12.5^^152^2009^14
  1. ;;^UTILITY(U,$J,358.3,40340,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40340,1,3,0)
  1. ;;=3^Prostate Malignant Neoplasm Screen
  1. ;;^UTILITY(U,$J,358.3,40340,1,4,0)
  1. ;;=4^Z12.5
  1. ;;^UTILITY(U,$J,358.3,40340,2)
  1. ;;=^5062688
  1. ;;^UTILITY(U,$J,358.3,40341,0)
  1. ;;=Z00.00^^152^2009^10
  1. ;;^UTILITY(U,$J,358.3,40341,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40341,1,3,0)
  1. ;;=3^General Adult Medical Exam w/o Abnormal Findings
  1. ;;^UTILITY(U,$J,358.3,40341,1,4,0)
  1. ;;=4^Z00.00
  1. ;;^UTILITY(U,$J,358.3,40341,2)
  1. ;;=^5062599
  1. ;;^UTILITY(U,$J,358.3,40342,0)
  1. ;;=Z02.79^^152^2009^12
  1. ;;^UTILITY(U,$J,358.3,40342,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40342,1,3,0)
  1. ;;=3^Medical Certificate Encounter
  1. ;;^UTILITY(U,$J,358.3,40342,1,4,0)
  1. ;;=4^Z02.79
  1. ;;^UTILITY(U,$J,358.3,40342,2)
  1. ;;=^5062641
  1. ;;^UTILITY(U,$J,358.3,40343,0)
  1. ;;=Z71.3^^152^2009^7
  1. ;;^UTILITY(U,$J,358.3,40343,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40343,1,3,0)
  1. ;;=3^Dietary Counseling
  1. ;;^UTILITY(U,$J,358.3,40343,1,4,0)
  1. ;;=4^Z71.3
  1. ;;^UTILITY(U,$J,358.3,40343,2)
  1. ;;=^5063245
  1. ;;^UTILITY(U,$J,358.3,40344,0)
  1. ;;=Z71.7^^152^2009^11
  1. ;;^UTILITY(U,$J,358.3,40344,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,40344,1,3,0)
  1. ;;=3^HIV Counseling
  1. ;;^UTILITY(U,$J,358.3,40344,1,4,0)
  1. ;;=4^Z71.7
  1. ;;^UTILITY(U,$J,358.3,40344,2)
  1. ;;=^5063251
  1. ;;^UTILITY(U,$J,358.3,40345,0)
  1. ;;=Z71.6^^152^2009^16