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

IBDEI0GQ.m

Go to the documentation of this file.
  1. IBDEI0GQ ; ; 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,7513,1,3,0)
  1. ;;=3^Flex Sig w/ Decompression
  1. ;;^UTILITY(U,$J,358.3,7514,0)
  1. ;;=45346^^37^372^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,7514,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,7514,1,2,0)
  1. ;;=2^45346
  1. ;;^UTILITY(U,$J,358.3,7514,1,3,0)
  1. ;;=3^Flex Sig w/ Ablation
  1. ;;^UTILITY(U,$J,358.3,7515,0)
  1. ;;=45350^^37^372^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,7515,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,7515,1,2,0)
  1. ;;=2^45350
  1. ;;^UTILITY(U,$J,358.3,7515,1,3,0)
  1. ;;=3^Flex Sig w/ Band Ligation
  1. ;;^UTILITY(U,$J,358.3,7516,0)
  1. ;;=45340^^37^372^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,7516,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,7516,1,2,0)
  1. ;;=2^45340
  1. ;;^UTILITY(U,$J,358.3,7516,1,3,0)
  1. ;;=3^Flex Sig w/ Dilation
  1. ;;^UTILITY(U,$J,358.3,7517,0)
  1. ;;=45349^^37^372^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,7517,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,7517,1,2,0)
  1. ;;=2^45349
  1. ;;^UTILITY(U,$J,358.3,7517,1,3,0)
  1. ;;=3^Flex Sig w/ EMR
  1. ;;^UTILITY(U,$J,358.3,7518,0)
  1. ;;=45338^^37^372^10^^^^1
  1. ;;^UTILITY(U,$J,358.3,7518,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,7518,1,2,0)
  1. ;;=2^45338
  1. ;;^UTILITY(U,$J,358.3,7518,1,3,0)
  1. ;;=3^Flex Sig w/ Snare
  1. ;;^UTILITY(U,$J,358.3,7519,0)
  1. ;;=45347^^37^372^11^^^^1
  1. ;;^UTILITY(U,$J,358.3,7519,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,7519,1,2,0)
  1. ;;=2^45347
  1. ;;^UTILITY(U,$J,358.3,7519,1,3,0)
  1. ;;=3^Flex Sig w/ Stent Placement
  1. ;;^UTILITY(U,$J,358.3,7520,0)
  1. ;;=45378^^37^373^12^^^^1
  1. ;;^UTILITY(U,$J,358.3,7520,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,7520,1,2,0)
  1. ;;=2^45378
  1. ;;^UTILITY(U,$J,358.3,7520,1,3,0)
  1. ;;=3^Colonoscopy,Diagnostic
  1. ;;^UTILITY(U,$J,358.3,7521,0)
  1. ;;=45380^^37^373^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,7521,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,7521,1,2,0)
  1. ;;=2^45380
  1. ;;^UTILITY(U,$J,358.3,7521,1,3,0)
  1. ;;=3^Colonoscopy w/ Biopsy
  1. ;;^UTILITY(U,$J,358.3,7522,0)
  1. ;;=45384^^37^373^8^^^^1
  1. ;;^UTILITY(U,$J,358.3,7522,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,7522,1,2,0)
  1. ;;=2^45384
  1. ;;^UTILITY(U,$J,358.3,7522,1,3,0)
  1. ;;=3^Colonoscopy w/ Hot Forceps
  1. ;;^UTILITY(U,$J,358.3,7523,0)
  1. ;;=45385^^37^373^9^^^^1
  1. ;;^UTILITY(U,$J,358.3,7523,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,7523,1,2,0)
  1. ;;=2^45385
  1. ;;^UTILITY(U,$J,358.3,7523,1,3,0)
  1. ;;=3^Colonoscopy w/ Snare
  1. ;;^UTILITY(U,$J,358.3,7524,0)
  1. ;;=45379^^37^373^7^^^^1
  1. ;;^UTILITY(U,$J,358.3,7524,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,7524,1,2,0)
  1. ;;=2^45379
  1. ;;^UTILITY(U,$J,358.3,7524,1,3,0)
  1. ;;=3^Colonoscopy w/ Foreign Body Removal
  1. ;;^UTILITY(U,$J,358.3,7525,0)
  1. ;;=45382^^37^373^3^^^^1
  1. ;;^UTILITY(U,$J,358.3,7525,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,7525,1,2,0)
  1. ;;=2^45382
  1. ;;^UTILITY(U,$J,358.3,7525,1,3,0)
  1. ;;=3^Colonoscopy w/ Control of Bleeding
  1. ;;^UTILITY(U,$J,358.3,7526,0)
  1. ;;=45386^^37^373^5^^^^1
  1. ;;^UTILITY(U,$J,358.3,7526,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,7526,1,2,0)
  1. ;;=2^45386
  1. ;;^UTILITY(U,$J,358.3,7526,1,3,0)
  1. ;;=3^Colonoscopy w/ Dilation
  1. ;;^UTILITY(U,$J,358.3,7527,0)
  1. ;;=45381^^37^373^11^^^^1
  1. ;;^UTILITY(U,$J,358.3,7527,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,7527,1,2,0)
  1. ;;=2^45381
  1. ;;^UTILITY(U,$J,358.3,7527,1,3,0)
  1. ;;=3^Colonoscopy w/ Submucosal Injection
  1. ;;^UTILITY(U,$J,358.3,7528,0)
  1. ;;=45389^^37^373^10^^^^1
  1. ;;^UTILITY(U,$J,358.3,7528,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,7528,1,2,0)
  1. ;;=2^45389
  1. ;;^UTILITY(U,$J,358.3,7528,1,3,0)
  1. ;;=3^Colonoscopy w/ Stent