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

IBDEI0UH.m

Go to the documentation of this file.
  1. IBDEI0UH ; ; 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,13753,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13753,1,2,0)
  1. ;;=2^REMOV/BIVALV;SHOULDER/HIP SPICA
  1. ;;^UTILITY(U,$J,358.3,13753,1,3,0)
  1. ;;=3^29710
  1. ;;^UTILITY(U,$J,358.3,13754,0)
  1. ;;=29720^^53^654^11^^^^1
  1. ;;^UTILITY(U,$J,358.3,13754,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13754,1,2,0)
  1. ;;=2^REPR SPICA BODY CAST/JACKET
  1. ;;^UTILITY(U,$J,358.3,13754,1,3,0)
  1. ;;=3^29720
  1. ;;^UTILITY(U,$J,358.3,13755,0)
  1. ;;=29730^^53^654^13^^^^1
  1. ;;^UTILITY(U,$J,358.3,13755,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13755,1,2,0)
  1. ;;=2^WINDOWING CAST
  1. ;;^UTILITY(U,$J,358.3,13755,1,3,0)
  1. ;;=3^29730
  1. ;;^UTILITY(U,$J,358.3,13756,0)
  1. ;;=29740^^53^654^12^^^^1
  1. ;;^UTILITY(U,$J,358.3,13756,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13756,1,2,0)
  1. ;;=2^WEDGING CAST
  1. ;;^UTILITY(U,$J,358.3,13756,1,3,0)
  1. ;;=3^29740
  1. ;;^UTILITY(U,$J,358.3,13757,0)
  1. ;;=11042^^53^654^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,13757,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13757,1,2,0)
  1. ;;=2^DEBRID; SKIN & SUBQ TISS
  1. ;;^UTILITY(U,$J,358.3,13757,1,3,0)
  1. ;;=3^11042
  1. ;;^UTILITY(U,$J,358.3,13758,0)
  1. ;;=24200^^53^654^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,13758,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13758,1,2,0)
  1. ;;=2^REMOV FB UPPER ARM/ELBOW;SUPERFICIAL
  1. ;;^UTILITY(U,$J,358.3,13758,1,3,0)
  1. ;;=3^24200
  1. ;;^UTILITY(U,$J,358.3,13759,0)
  1. ;;=24201^^53^654^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,13759,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13759,1,2,0)
  1. ;;=2^REMOV FB UPPER ARM/ELBOW;DEEP
  1. ;;^UTILITY(U,$J,358.3,13759,1,3,0)
  1. ;;=3^24201
  1. ;;^UTILITY(U,$J,358.3,13760,0)
  1. ;;=20670^^53^654^10^^^^1
  1. ;;^UTILITY(U,$J,358.3,13760,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13760,1,2,0)
  1. ;;=2^REMOVAL OF PINS/WIRE/ROD
  1. ;;^UTILITY(U,$J,358.3,13760,1,3,0)
  1. ;;=3^20670
  1. ;;^UTILITY(U,$J,358.3,13761,0)
  1. ;;=26115^^53^654^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,13761,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13761,1,2,0)
  1. ;;=2^EXC TMR/VASC MALF/SFT TIS HND/FNGR
  1. ;;^UTILITY(U,$J,358.3,13761,1,3,0)
  1. ;;=3^26115
  1. ;;^UTILITY(U,$J,358.3,13762,0)
  1. ;;=26341^^53^654^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,13762,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13762,1,2,0)
  1. ;;=2^MANIPULATION PLAMAR FASCIAL CORD
  1. ;;^UTILITY(U,$J,358.3,13762,1,3,0)
  1. ;;=3^26341
  1. ;;^UTILITY(U,$J,358.3,13763,0)
  1. ;;=99070^^53^655^22^^^^1
  1. ;;^UTILITY(U,$J,358.3,13763,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13763,1,2,0)
  1. ;;=2^SPECIAL SUPPLIES
  1. ;;^UTILITY(U,$J,358.3,13763,1,3,0)
  1. ;;=3^99070
  1. ;;^UTILITY(U,$J,358.3,13764,0)
  1. ;;=L3485^^53^655^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,13764,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13764,1,2,0)
  1. ;;=2^ACHILLES HEEL PAD
  1. ;;^UTILITY(U,$J,358.3,13764,1,3,0)
  1. ;;=3^L3485
  1. ;;^UTILITY(U,$J,358.3,13765,0)
  1. ;;=L1906^^53^655^19^^^^1
  1. ;;^UTILITY(U,$J,358.3,13765,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13765,1,2,0)
  1. ;;=2^MALLEOTRAIN
  1. ;;^UTILITY(U,$J,358.3,13765,1,3,0)
  1. ;;=3^L1906
  1. ;;^UTILITY(U,$J,358.3,13766,0)
  1. ;;=L1845^^53^655^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,13766,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13766,1,2,0)
  1. ;;=2^ACL BRACE
  1. ;;^UTILITY(U,$J,358.3,13766,1,3,0)
  1. ;;=3^L1845
  1. ;;^UTILITY(U,$J,358.3,13767,0)
  1. ;;=L1930^^53^655^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,13767,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,13767,1,2,0)
  1. ;;=2^AFO NIGHT SPLINT
  1. ;;^UTILITY(U,$J,358.3,13767,1,3,0)
  1. ;;=3^L1930
  1. ;;^UTILITY(U,$J,358.3,13768,0)
  1. ;;=L4360^^53^655^4^^^^1
  1. ;;^UTILITY(U,$J,358.3,13768,1,0)
  1. ;;=^358.31IA^3^2