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