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

IBDEI1JM.m

Go to the documentation of this file.
  1. IBDEI1JM ; ; 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,24988,1,2,0)
  1. ;;=2^ANESTH ECT
  1. ;;^UTILITY(U,$J,358.3,24988,1,4,0)
  1. ;;=4^00104
  1. ;;^UTILITY(U,$J,358.3,24989,0)
  1. ;;=01937^^86^1110^10^^^^1
  1. ;;^UTILITY(U,$J,358.3,24989,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24989,1,2,0)
  1. ;;=2^ANESTH PERC W/IMG INJ DRAIN/ASP SPINAL CORD,CERV/THORACIC
  1. ;;^UTILITY(U,$J,358.3,24989,1,4,0)
  1. ;;=4^01937
  1. ;;^UTILITY(U,$J,358.3,24990,0)
  1. ;;=01938^^86^1110^11^^^^1
  1. ;;^UTILITY(U,$J,358.3,24990,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24990,1,2,0)
  1. ;;=2^ANESTH PERC W/IMG INJ DRAIN/ASP SPINAL CORD,LMBR/SACR
  1. ;;^UTILITY(U,$J,358.3,24990,1,4,0)
  1. ;;=4^01938
  1. ;;^UTILITY(U,$J,358.3,24991,0)
  1. ;;=01939^^86^1110^9^^^^1
  1. ;;^UTILITY(U,$J,358.3,24991,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24991,1,2,0)
  1. ;;=2^ANESTH PERC W/IMG DESTRUC SPINAL CORD,CERV/THORACIC
  1. ;;^UTILITY(U,$J,358.3,24991,1,4,0)
  1. ;;=4^01939
  1. ;;^UTILITY(U,$J,358.3,24992,0)
  1. ;;=01940^^86^1110^8^^^^1
  1. ;;^UTILITY(U,$J,358.3,24992,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24992,1,2,0)
  1. ;;=2^ANESTH PERC W/IMG DESTRUC BY NEURO AGENT SPINAL CORD,LMBR/SACR
  1. ;;^UTILITY(U,$J,358.3,24992,1,4,0)
  1. ;;=4^01940
  1. ;;^UTILITY(U,$J,358.3,24993,0)
  1. ;;=01941^^86^1110^12^^^^1
  1. ;;^UTILITY(U,$J,358.3,24993,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24993,1,2,0)
  1. ;;=2^ANESTH PERC W/IMG NEUROMOD/INTRAVERT SPINAL CORD,CERV/THORACIC
  1. ;;^UTILITY(U,$J,358.3,24993,1,4,0)
  1. ;;=4^01941
  1. ;;^UTILITY(U,$J,358.3,24994,0)
  1. ;;=01942^^86^1110^13^^^^1
  1. ;;^UTILITY(U,$J,358.3,24994,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24994,1,2,0)
  1. ;;=2^ANESTH PERC W/IMG NEUROMOD/INTRAVERT SPINAL CORD,LMBR/SACR
  1. ;;^UTILITY(U,$J,358.3,24994,1,4,0)
  1. ;;=4^01942
  1. ;;^UTILITY(U,$J,358.3,24995,0)
  1. ;;=01112^^86^1111^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,24995,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24995,1,2,0)
  1. ;;=2^BONE ASPIRATE/BX,ANESTH
  1. ;;^UTILITY(U,$J,358.3,24995,1,4,0)
  1. ;;=4^01112
  1. ;;^UTILITY(U,$J,358.3,24996,0)
  1. ;;=01120^^86^1111^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,24996,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24996,1,2,0)
  1. ;;=2^ANESTH PELVIS SURG,CLSD PROC UPPER FEMUR
  1. ;;^UTILITY(U,$J,358.3,24996,1,4,0)
  1. ;;=4^01120
  1. ;;^UTILITY(U,$J,358.3,24997,0)
  1. ;;=01931^^86^1112^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,24997,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24997,1,2,0)
  1. ;;=2^INTRAHEPATIC CIRCULATION (TIPS)
  1. ;;^UTILITY(U,$J,358.3,24997,1,4,0)
  1. ;;=4^01931
  1. ;;^UTILITY(U,$J,358.3,24998,0)
  1. ;;=01922^^86^1112^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,24998,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24998,1,2,0)
  1. ;;=2^NON-INVASIVE IMAGE (CT/MRI)/RAD TX
  1. ;;^UTILITY(U,$J,358.3,24998,1,4,0)
  1. ;;=4^01922
  1. ;;^UTILITY(U,$J,358.3,24999,0)
  1. ;;=01924^^86^1112^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,24999,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,24999,1,2,0)
  1. ;;=2^INTRVN RAD ARTERIAL SYS NOS
  1. ;;^UTILITY(U,$J,358.3,24999,1,4,0)
  1. ;;=4^01924
  1. ;;^UTILITY(U,$J,358.3,25000,0)
  1. ;;=01925^^86^1112^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,25000,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,25000,1,2,0)
  1. ;;=2^INTRVN RAD CAROTID/CORONARY
  1. ;;^UTILITY(U,$J,358.3,25000,1,4,0)
  1. ;;=4^01925
  1. ;;^UTILITY(U,$J,358.3,25001,0)
  1. ;;=01926^^86^1112^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,25001,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,25001,1,2,0)
  1. ;;=2^INTRVN RAD INTRA-CRANIAL/CARDIAC/AORTA
  1. ;;^UTILITY(U,$J,358.3,25001,1,4,0)
  1. ;;=4^01926
  1. ;;^UTILITY(U,$J,358.3,25002,0)
  1. ;;=00700^^86^1112^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,25002,1,0)
  1. ;;=^358.31IA^4^2