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