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

IBDEI1FE.m

Go to the documentation of this file.
  1. IBDEI1FE ; ; 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,23062,1,4,0)
  1. ;;=4^G43.909
  1. ;;^UTILITY(U,$J,358.3,23062,2)
  1. ;;=^5003909
  1. ;;^UTILITY(U,$J,358.3,23063,0)
  1. ;;=G47.00^^78^998^9
  1. ;;^UTILITY(U,$J,358.3,23063,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23063,1,3,0)
  1. ;;=3^Insomnia, unspecified
  1. ;;^UTILITY(U,$J,358.3,23063,1,4,0)
  1. ;;=4^G47.00
  1. ;;^UTILITY(U,$J,358.3,23063,2)
  1. ;;=^332924
  1. ;;^UTILITY(U,$J,358.3,23064,0)
  1. ;;=G47.30^^78^998^14
  1. ;;^UTILITY(U,$J,358.3,23064,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23064,1,3,0)
  1. ;;=3^Sleep apnea, unspecified
  1. ;;^UTILITY(U,$J,358.3,23064,1,4,0)
  1. ;;=4^G47.30
  1. ;;^UTILITY(U,$J,358.3,23064,2)
  1. ;;=^5003977
  1. ;;^UTILITY(U,$J,358.3,23065,0)
  1. ;;=G47.9^^78^998^15
  1. ;;^UTILITY(U,$J,358.3,23065,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23065,1,3,0)
  1. ;;=3^Sleep disorder, unspecified
  1. ;;^UTILITY(U,$J,358.3,23065,1,4,0)
  1. ;;=4^G47.9
  1. ;;^UTILITY(U,$J,358.3,23065,2)
  1. ;;=^5003990
  1. ;;^UTILITY(U,$J,358.3,23066,0)
  1. ;;=G56.01^^78^998^3
  1. ;;^UTILITY(U,$J,358.3,23066,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23066,1,3,0)
  1. ;;=3^Carpal tunnel syndrome, right upper limb
  1. ;;^UTILITY(U,$J,358.3,23066,1,4,0)
  1. ;;=4^G56.01
  1. ;;^UTILITY(U,$J,358.3,23066,2)
  1. ;;=^5004018
  1. ;;^UTILITY(U,$J,358.3,23067,0)
  1. ;;=G56.02^^78^998^2
  1. ;;^UTILITY(U,$J,358.3,23067,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23067,1,3,0)
  1. ;;=3^Carpal tunnel syndrome, left upper limb
  1. ;;^UTILITY(U,$J,358.3,23067,1,4,0)
  1. ;;=4^G56.02
  1. ;;^UTILITY(U,$J,358.3,23067,2)
  1. ;;=^5004019
  1. ;;^UTILITY(U,$J,358.3,23068,0)
  1. ;;=G60.9^^78^998^8
  1. ;;^UTILITY(U,$J,358.3,23068,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23068,1,3,0)
  1. ;;=3^Hereditary & idiopathic neuropathy, unspecified
  1. ;;^UTILITY(U,$J,358.3,23068,1,4,0)
  1. ;;=4^G60.9
  1. ;;^UTILITY(U,$J,358.3,23068,2)
  1. ;;=^5004071
  1. ;;^UTILITY(U,$J,358.3,23069,0)
  1. ;;=G62.9^^78^998^13
  1. ;;^UTILITY(U,$J,358.3,23069,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23069,1,3,0)
  1. ;;=3^Polyneuropathy, unspecified
  1. ;;^UTILITY(U,$J,358.3,23069,1,4,0)
  1. ;;=4^G62.9
  1. ;;^UTILITY(U,$J,358.3,23069,2)
  1. ;;=^5004079
  1. ;;^UTILITY(U,$J,358.3,23070,0)
  1. ;;=G81.90^^78^998^7
  1. ;;^UTILITY(U,$J,358.3,23070,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23070,1,3,0)
  1. ;;=3^Hemiplegia, unspecified
  1. ;;^UTILITY(U,$J,358.3,23070,1,4,0)
  1. ;;=4^G81.90
  1. ;;^UTILITY(U,$J,358.3,23070,2)
  1. ;;=^5004120
  1. ;;^UTILITY(U,$J,358.3,23071,0)
  1. ;;=G81.91^^78^998^6
  1. ;;^UTILITY(U,$J,358.3,23071,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23071,1,3,0)
  1. ;;=3^Hemiplegia, affecting right dominant side
  1. ;;^UTILITY(U,$J,358.3,23071,1,4,0)
  1. ;;=4^G81.91
  1. ;;^UTILITY(U,$J,358.3,23071,2)
  1. ;;=^5004121
  1. ;;^UTILITY(U,$J,358.3,23072,0)
  1. ;;=G81.92^^78^998^5
  1. ;;^UTILITY(U,$J,358.3,23072,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23072,1,3,0)
  1. ;;=3^Hemiplegia, affecting left dominant side
  1. ;;^UTILITY(U,$J,358.3,23072,1,4,0)
  1. ;;=4^G81.92
  1. ;;^UTILITY(U,$J,358.3,23072,2)
  1. ;;=^5004122
  1. ;;^UTILITY(U,$J,358.3,23073,0)
  1. ;;=K21.9^^78^999^16
  1. ;;^UTILITY(U,$J,358.3,23073,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23073,1,3,0)
  1. ;;=3^GERD w/o Esophagitis
  1. ;;^UTILITY(U,$J,358.3,23073,1,4,0)
  1. ;;=4^K21.9
  1. ;;^UTILITY(U,$J,358.3,23073,2)
  1. ;;=^5008505
  1. ;;^UTILITY(U,$J,358.3,23074,0)
  1. ;;=K29.70^^78^999^19
  1. ;;^UTILITY(U,$J,358.3,23074,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,23074,1,3,0)
  1. ;;=3^Gastritis w/o Bleeding,Unspec
  1. ;;^UTILITY(U,$J,358.3,23074,1,4,0)
  1. ;;=4^K29.70
  1. ;;^UTILITY(U,$J,358.3,23074,2)
  1. ;;=^5008552