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

IBDEI1F8.m

Go to the documentation of this file.
  1. IBDEI1F8 ; ; 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,22988,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22988,1,3,0)
  1. ;;=3^Hepatitis C w/o Hepatic Coma,Acute
  1. ;;^UTILITY(U,$J,358.3,22988,1,4,0)
  1. ;;=4^B17.10
  1. ;;^UTILITY(U,$J,358.3,22988,2)
  1. ;;=^5000542
  1. ;;^UTILITY(U,$J,358.3,22989,0)
  1. ;;=B18.2^^78^994^3
  1. ;;^UTILITY(U,$J,358.3,22989,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22989,1,3,0)
  1. ;;=3^Hepatitis C,Chr
  1. ;;^UTILITY(U,$J,358.3,22989,1,4,0)
  1. ;;=4^B18.2
  1. ;;^UTILITY(U,$J,358.3,22989,2)
  1. ;;=^5000548
  1. ;;^UTILITY(U,$J,358.3,22990,0)
  1. ;;=B35.6^^78^994^4
  1. ;;^UTILITY(U,$J,358.3,22990,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22990,1,3,0)
  1. ;;=3^Tinea Cruris
  1. ;;^UTILITY(U,$J,358.3,22990,1,4,0)
  1. ;;=4^B35.6
  1. ;;^UTILITY(U,$J,358.3,22990,2)
  1. ;;=^119711
  1. ;;^UTILITY(U,$J,358.3,22991,0)
  1. ;;=B35.3^^78^994^5
  1. ;;^UTILITY(U,$J,358.3,22991,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22991,1,3,0)
  1. ;;=3^Tinea Pedis
  1. ;;^UTILITY(U,$J,358.3,22991,1,4,0)
  1. ;;=4^B35.3
  1. ;;^UTILITY(U,$J,358.3,22991,2)
  1. ;;=^119732
  1. ;;^UTILITY(U,$J,358.3,22992,0)
  1. ;;=B97.89^^78^994^6
  1. ;;^UTILITY(U,$J,358.3,22992,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22992,1,3,0)
  1. ;;=3^Viral Agents as the Cause of Diseases Classified Elsewhere
  1. ;;^UTILITY(U,$J,358.3,22992,1,4,0)
  1. ;;=4^B97.89
  1. ;;^UTILITY(U,$J,358.3,22992,2)
  1. ;;=^5000879
  1. ;;^UTILITY(U,$J,358.3,22993,0)
  1. ;;=B02.9^^78^994^7
  1. ;;^UTILITY(U,$J,358.3,22993,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22993,1,3,0)
  1. ;;=3^Zoster w/o Complications
  1. ;;^UTILITY(U,$J,358.3,22993,1,4,0)
  1. ;;=4^B02.9
  1. ;;^UTILITY(U,$J,358.3,22993,2)
  1. ;;=^5000501
  1. ;;^UTILITY(U,$J,358.3,22994,0)
  1. ;;=C44.91^^78^995^1
  1. ;;^UTILITY(U,$J,358.3,22994,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22994,1,3,0)
  1. ;;=3^Basal cell carcinoma of skin, unspecified
  1. ;;^UTILITY(U,$J,358.3,22994,1,4,0)
  1. ;;=4^C44.91
  1. ;;^UTILITY(U,$J,358.3,22994,2)
  1. ;;=^5001092
  1. ;;^UTILITY(U,$J,358.3,22995,0)
  1. ;;=D17.9^^78^995^2
  1. ;;^UTILITY(U,$J,358.3,22995,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22995,1,3,0)
  1. ;;=3^Benign lipomatous neoplasm, unspecified
  1. ;;^UTILITY(U,$J,358.3,22995,1,4,0)
  1. ;;=4^D17.9
  1. ;;^UTILITY(U,$J,358.3,22995,2)
  1. ;;=^5002020
  1. ;;^UTILITY(U,$J,358.3,22996,0)
  1. ;;=C67.9^^78^995^3
  1. ;;^UTILITY(U,$J,358.3,22996,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22996,1,3,0)
  1. ;;=3^Malignant neoplasm of bladder, unspecified
  1. ;;^UTILITY(U,$J,358.3,22996,1,4,0)
  1. ;;=4^C67.9
  1. ;;^UTILITY(U,$J,358.3,22996,2)
  1. ;;=^5001263
  1. ;;^UTILITY(U,$J,358.3,22997,0)
  1. ;;=C18.9^^78^995^4
  1. ;;^UTILITY(U,$J,358.3,22997,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22997,1,3,0)
  1. ;;=3^Malignant neoplasm of colon, unspecified
  1. ;;^UTILITY(U,$J,358.3,22997,1,4,0)
  1. ;;=4^C18.9
  1. ;;^UTILITY(U,$J,358.3,22997,2)
  1. ;;=^5000929
  1. ;;^UTILITY(U,$J,358.3,22998,0)
  1. ;;=C15.9^^78^995^5
  1. ;;^UTILITY(U,$J,358.3,22998,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22998,1,3,0)
  1. ;;=3^Malignant neoplasm of esophagus, unspecified
  1. ;;^UTILITY(U,$J,358.3,22998,1,4,0)
  1. ;;=4^C15.9
  1. ;;^UTILITY(U,$J,358.3,22998,2)
  1. ;;=^5000919
  1. ;;^UTILITY(U,$J,358.3,22999,0)
  1. ;;=C32.9^^78^995^6
  1. ;;^UTILITY(U,$J,358.3,22999,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,22999,1,3,0)
  1. ;;=3^Malignant neoplasm of larynx, unspecified
  1. ;;^UTILITY(U,$J,358.3,22999,1,4,0)
  1. ;;=4^C32.9
  1. ;;^UTILITY(U,$J,358.3,22999,2)
  1. ;;=^5000956
  1. ;;^UTILITY(U,$J,358.3,23000,0)
  1. ;;=C34.92^^78^995^7
  1. ;;^UTILITY(U,$J,358.3,23000,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23000,1,3,0)
  1. ;;=3^Malignant neoplasm of left bronchus/lung,unspec part