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

IBDEI1XZ.m

Go to the documentation of this file.
  1. IBDEI1XZ ; ; 04-FEB-2020
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
  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,31020,1,3,0)
  1. ;;=3^BX OF VULVA/PERINEUM,ADD-ON
  1. ;;^UTILITY(U,$J,358.3,31021,0)
  1. ;;=57456^^124^1603^16^^^^1
  1. ;;^UTILITY(U,$J,358.3,31021,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31021,1,2,0)
  1. ;;=2^57456
  1. ;;^UTILITY(U,$J,358.3,31021,1,3,0)
  1. ;;=3^CURETTAGE W/ SCOPE,ENDOCERV
  1. ;;^UTILITY(U,$J,358.3,31022,0)
  1. ;;=51729^^124^1603^17^^^^1
  1. ;;^UTILITY(U,$J,358.3,31022,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31022,1,2,0)
  1. ;;=2^51729
  1. ;;^UTILITY(U,$J,358.3,31022,1,3,0)
  1. ;;=3^CYSTOMETROGRAM W/ VP & UP
  1. ;;^UTILITY(U,$J,358.3,31023,0)
  1. ;;=57800^^124^1603^22^^^^1
  1. ;;^UTILITY(U,$J,358.3,31023,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31023,1,2,0)
  1. ;;=2^57800
  1. ;;^UTILITY(U,$J,358.3,31023,1,3,0)
  1. ;;=3^DILATION OF CERVICAL CANAL
  1. ;;^UTILITY(U,$J,358.3,31024,0)
  1. ;;=51741^^124^1603^24^^^^1
  1. ;;^UTILITY(U,$J,358.3,31024,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31024,1,2,0)
  1. ;;=2^51741
  1. ;;^UTILITY(U,$J,358.3,31024,1,3,0)
  1. ;;=3^ELECTRO-UROFLOWMETRY,FIRST
  1. ;;^UTILITY(U,$J,358.3,31025,0)
  1. ;;=57452^^124^1603^27^^^^1
  1. ;;^UTILITY(U,$J,358.3,31025,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31025,1,2,0)
  1. ;;=2^57452
  1. ;;^UTILITY(U,$J,358.3,31025,1,3,0)
  1. ;;=3^EXAM OF CERVIX W/SCOPE
  1. ;;^UTILITY(U,$J,358.3,31026,0)
  1. ;;=57420^^124^1603^28^^^^1
  1. ;;^UTILITY(U,$J,358.3,31026,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31026,1,2,0)
  1. ;;=2^57420
  1. ;;^UTILITY(U,$J,358.3,31026,1,3,0)
  1. ;;=3^EXAM OF VAGINA W/SCOPE
  1. ;;^UTILITY(U,$J,358.3,31027,0)
  1. ;;=51701^^124^1603^37^^^^1
  1. ;;^UTILITY(U,$J,358.3,31027,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31027,1,2,0)
  1. ;;=2^51701
  1. ;;^UTILITY(U,$J,358.3,31027,1,3,0)
  1. ;;=3^INSERT BLADDER CATHETER
  1. ;;^UTILITY(U,$J,358.3,31028,0)
  1. ;;=51797^^124^1603^42^^^^1
  1. ;;^UTILITY(U,$J,358.3,31028,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31028,1,2,0)
  1. ;;=2^51797
  1. ;;^UTILITY(U,$J,358.3,31028,1,3,0)
  1. ;;=3^INTRAABDOMINAL PRESSURE TEST
  1. ;;^UTILITY(U,$J,358.3,31029,0)
  1. ;;=51798^^124^1603^54^^^^1
  1. ;;^UTILITY(U,$J,358.3,31029,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31029,1,2,0)
  1. ;;=2^51798
  1. ;;^UTILITY(U,$J,358.3,31029,1,3,0)
  1. ;;=3^US URINE CAPACITY MEASURE
  1. ;;^UTILITY(U,$J,358.3,31030,0)
  1. ;;=17000^^124^1603^43^^^^1
  1. ;;^UTILITY(U,$J,358.3,31030,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31030,1,2,0)
  1. ;;=2^17000
  1. ;;^UTILITY(U,$J,358.3,31030,1,3,0)
  1. ;;=3^LIQUID N2,1ST LESION
  1. ;;^UTILITY(U,$J,358.3,31031,0)
  1. ;;=17003^^124^1603^44^^^^1
  1. ;;^UTILITY(U,$J,358.3,31031,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31031,1,2,0)
  1. ;;=2^17003
  1. ;;^UTILITY(U,$J,358.3,31031,1,3,0)
  1. ;;=3^LIQUID N2,2-14 LESIONS
  1. ;;^UTILITY(U,$J,358.3,31032,0)
  1. ;;=51784^^124^1603^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,31032,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31032,1,2,0)
  1. ;;=2^51784
  1. ;;^UTILITY(U,$J,358.3,31032,1,3,0)
  1. ;;=3^ANAL/URINARY MUSCLE STUDY
  1. ;;^UTILITY(U,$J,358.3,31033,0)
  1. ;;=74740^^124^1603^34^^^^1
  1. ;;^UTILITY(U,$J,358.3,31033,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31033,1,2,0)
  1. ;;=2^74740
  1. ;;^UTILITY(U,$J,358.3,31033,1,3,0)
  1. ;;=3^HYSTEROSALPINGOGRAM
  1. ;;^UTILITY(U,$J,358.3,31034,0)
  1. ;;=58340^^124^1603^12^^^^1
  1. ;;^UTILITY(U,$J,358.3,31034,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,31034,1,2,0)
  1. ;;=2^58340
  1. ;;^UTILITY(U,$J,358.3,31034,1,3,0)
  1. ;;=3^CATH FOR SIS OR HYSTEROSALPINGOGRAPHY
  1. ;;^UTILITY(U,$J,358.3,31035,0)
  1. ;;=58345^^124^1603^52^^^^1
  1. ;;^UTILITY(U,$J,358.3,31035,1,0)
  1. ;;=^358.31IA^3^2