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

IBDEI2X5.m

Go to the documentation of this file.
IBDEI2X5 ; ; 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,46553,0)
 ;;=99244^^177^2317^4
 ;;^UTILITY(U,$J,358.3,46553,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,46553,1,1,0)
 ;;=1^Comprehensive, Moderate
 ;;^UTILITY(U,$J,358.3,46553,1,2,0)
 ;;=2^99244
 ;;^UTILITY(U,$J,358.3,46554,0)
 ;;=99245^^177^2317^5
 ;;^UTILITY(U,$J,358.3,46554,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,46554,1,1,0)
 ;;=1^Comprehensive, High
 ;;^UTILITY(U,$J,358.3,46554,1,2,0)
 ;;=2^99245
 ;;^UTILITY(U,$J,358.3,46555,0)
 ;;=99024^^177^2318^1
 ;;^UTILITY(U,$J,358.3,46555,1,0)
 ;;=^358.31IA^2^2
 ;;^UTILITY(U,$J,358.3,46555,1,1,0)
 ;;=1^Post Op F/U Visit (Global)
 ;;^UTILITY(U,$J,358.3,46555,1,2,0)
 ;;=2^99024
 ;;^UTILITY(U,$J,358.3,46556,0)
 ;;=51792^^178^2319^20^^^^1
 ;;^UTILITY(U,$J,358.3,46556,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46556,1,2,0)
 ;;=2^51792
 ;;^UTILITY(U,$J,358.3,46556,1,3,0)
 ;;=3^Vib Stimulation Study
 ;;^UTILITY(U,$J,358.3,46557,0)
 ;;=54050^^178^2319^14^^^^1
 ;;^UTILITY(U,$J,358.3,46557,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46557,1,2,0)
 ;;=2^54050
 ;;^UTILITY(U,$J,358.3,46557,1,3,0)
 ;;=3^Penile Lesion Destruc;Simp/Chem
 ;;^UTILITY(U,$J,358.3,46558,0)
 ;;=54055^^178^2319^5^^^^1
 ;;^UTILITY(U,$J,358.3,46558,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46558,1,2,0)
 ;;=2^54055
 ;;^UTILITY(U,$J,358.3,46558,1,3,0)
 ;;=3^Fulgurate Penile Wart/Lesion;Simple
 ;;^UTILITY(U,$J,358.3,46559,0)
 ;;=54056^^178^2319^12^^^^1
 ;;^UTILITY(U,$J,358.3,46559,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46559,1,2,0)
 ;;=2^54056
 ;;^UTILITY(U,$J,358.3,46559,1,3,0)
 ;;=3^Penile Les Dest by Cryosurg
 ;;^UTILITY(U,$J,358.3,46560,0)
 ;;=54057^^178^2319^13^^^^1
 ;;^UTILITY(U,$J,358.3,46560,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46560,1,2,0)
 ;;=2^54057
 ;;^UTILITY(U,$J,358.3,46560,1,3,0)
 ;;=3^Penile Les Dest by Laser
 ;;^UTILITY(U,$J,358.3,46561,0)
 ;;=54060^^178^2319^3^^^^1
 ;;^UTILITY(U,$J,358.3,46561,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46561,1,2,0)
 ;;=2^54060
 ;;^UTILITY(U,$J,358.3,46561,1,3,0)
 ;;=3^Excise Penile Adhesions
 ;;^UTILITY(U,$J,358.3,46562,0)
 ;;=54100^^178^2319^16^^^^1
 ;;^UTILITY(U,$J,358.3,46562,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46562,1,2,0)
 ;;=2^54100
 ;;^UTILITY(U,$J,358.3,46562,1,3,0)
 ;;=3^Penis Biopsy
 ;;^UTILITY(U,$J,358.3,46563,0)
 ;;=54162^^178^2319^8^^^^1
 ;;^UTILITY(U,$J,358.3,46563,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46563,1,2,0)
 ;;=2^54162
 ;;^UTILITY(U,$J,358.3,46563,1,3,0)
 ;;=3^Lysis Penil Circumic Lesion
 ;;^UTILITY(U,$J,358.3,46564,0)
 ;;=54200^^178^2319^17^^^^1
 ;;^UTILITY(U,$J,358.3,46564,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46564,1,2,0)
 ;;=2^54200
 ;;^UTILITY(U,$J,358.3,46564,1,3,0)
 ;;=3^Peyronie's Dis Inj Proc
 ;;^UTILITY(U,$J,358.3,46565,0)
 ;;=54220^^178^2319^7^^^^1
 ;;^UTILITY(U,$J,358.3,46565,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46565,1,2,0)
 ;;=2^54220
 ;;^UTILITY(U,$J,358.3,46565,1,3,0)
 ;;=3^Irrigation for Priapism
 ;;^UTILITY(U,$J,358.3,46566,0)
 ;;=54235^^178^2319^6^^^^1
 ;;^UTILITY(U,$J,358.3,46566,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46566,1,2,0)
 ;;=2^54235
 ;;^UTILITY(U,$J,358.3,46566,1,3,0)
 ;;=3^Inj for Corpora Cavernosa
 ;;^UTILITY(U,$J,358.3,46567,0)
 ;;=54240^^178^2319^11^^^^1
 ;;^UTILITY(U,$J,358.3,46567,1,0)
 ;;=^358.31IA^3^2
 ;;^UTILITY(U,$J,358.3,46567,1,2,0)
 ;;=2^54240
 ;;^UTILITY(U,$J,358.3,46567,1,3,0)
 ;;=3^Penile Blood Pressure