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

IBDEI1JK.m

Go to the documentation of this file.
IBDEI1JK ; ; 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,24959,0)
 ;;=00813^^86^1106^2^^^^1
 ;;^UTILITY(U,$J,358.3,24959,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24959,1,2,0)
 ;;=2^ENDOSCOPIC COMBO LOW & UPPER GI,ANESTH
 ;;^UTILITY(U,$J,358.3,24959,1,4,0)
 ;;=4^00813
 ;;^UTILITY(U,$J,358.3,24960,0)
 ;;=01520^^86^1107^1^^^^1
 ;;^UTILITY(U,$J,358.3,24960,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24960,1,2,0)
 ;;=2^VENOUS ANGIO LOWER LEG,ANESTH
 ;;^UTILITY(U,$J,358.3,24960,1,4,0)
 ;;=4^01520
 ;;^UTILITY(U,$J,358.3,24961,0)
 ;;=00350^^86^1108^1^^^^1
 ;;^UTILITY(U,$J,358.3,24961,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24961,1,2,0)
 ;;=2^CAROTID ANGIOGRAPHY,ANESTH
 ;;^UTILITY(U,$J,358.3,24961,1,4,0)
 ;;=4^00350
 ;;^UTILITY(U,$J,358.3,24962,0)
 ;;=00350^^86^1108^2^^^^1
 ;;^UTILITY(U,$J,358.3,24962,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24962,1,2,0)
 ;;=2^NECK VESSEL SURG,ANESTH
 ;;^UTILITY(U,$J,358.3,24962,1,4,0)
 ;;=4^00350
 ;;^UTILITY(U,$J,358.3,24963,0)
 ;;=00320^^86^1108^3^^^^1
 ;;^UTILITY(U,$J,358.3,24963,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24963,1,2,0)
 ;;=2^PERCUTANEOUS TRACHEOSTOMY
 ;;^UTILITY(U,$J,358.3,24963,1,4,0)
 ;;=4^00320
 ;;^UTILITY(U,$J,358.3,24964,0)
 ;;=36620^^86^1109^2^^^^1
 ;;^UTILITY(U,$J,358.3,24964,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24964,1,2,0)
 ;;=2^ARTERIAL CATH,PERCUTANEOUS
 ;;^UTILITY(U,$J,358.3,24964,1,4,0)
 ;;=4^36620
 ;;^UTILITY(U,$J,358.3,24965,0)
 ;;=36600^^86^1109^3^^^^1
 ;;^UTILITY(U,$J,358.3,24965,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24965,1,2,0)
 ;;=2^ARTERIAL PUNCTURE (ABG)
 ;;^UTILITY(U,$J,358.3,24965,1,4,0)
 ;;=4^36600
 ;;^UTILITY(U,$J,358.3,24966,0)
 ;;=01916^^86^1109^1^^^^1
 ;;^UTILITY(U,$J,358.3,24966,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24966,1,2,0)
 ;;=2^ANESTH ARTERIOGRAPHY,DIAGNOSTIC
 ;;^UTILITY(U,$J,358.3,24966,1,4,0)
 ;;=4^01916
 ;;^UTILITY(U,$J,358.3,24967,0)
 ;;=92950^^86^1110^22^^^^1
 ;;^UTILITY(U,$J,358.3,24967,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24967,1,2,0)
 ;;=2^CPR
 ;;^UTILITY(U,$J,358.3,24967,1,4,0)
 ;;=4^92950
 ;;^UTILITY(U,$J,358.3,24968,0)
 ;;=31500^^86^1110^23^^^^1
 ;;^UTILITY(U,$J,358.3,24968,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24968,1,2,0)
 ;;=2^INTUBATION,EMERGENCY PROCEDURE
 ;;^UTILITY(U,$J,358.3,24968,1,4,0)
 ;;=4^31500
 ;;^UTILITY(U,$J,358.3,24969,0)
 ;;=31612^^86^1110^26^^^^1
 ;;^UTILITY(U,$J,358.3,24969,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24969,1,2,0)
 ;;=2^TRACH PUNC,PERC W/TRANS ASPIR/INJEC
 ;;^UTILITY(U,$J,358.3,24969,1,4,0)
 ;;=4^31612
 ;;^UTILITY(U,$J,358.3,24970,0)
 ;;=31605^^86^1110^27^^^^1
 ;;^UTILITY(U,$J,358.3,24970,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24970,1,2,0)
 ;;=2^TRACHEOSTOMY,EMERGENCY
 ;;^UTILITY(U,$J,358.3,24970,1,4,0)
 ;;=4^31605
 ;;^UTILITY(U,$J,358.3,24971,0)
 ;;=01999^^86^1110^28^^^^1
 ;;^UTILITY(U,$J,358.3,24971,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24971,1,2,0)
 ;;=2^UNLISTED ANESTH PROCEDURE
 ;;^UTILITY(U,$J,358.3,24971,1,4,0)
 ;;=4^01999
 ;;^UTILITY(U,$J,358.3,24972,0)
 ;;=00190^^86^1110^4^^^^1
 ;;^UTILITY(U,$J,358.3,24972,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24972,1,2,0)
 ;;=2^ANESTH FACE/SKULL BONE SURG
 ;;^UTILITY(U,$J,358.3,24972,1,4,0)
 ;;=4^00190
 ;;^UTILITY(U,$J,358.3,24973,0)
 ;;=00300^^86^1110^5^^^^1
 ;;^UTILITY(U,$J,358.3,24973,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,24973,1,2,0)
 ;;=2^ANESTH HEAD/NECK/TRUNK,WND DEBRIDEMENT