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

IBDEI2VS.m

Go to the documentation of this file.
IBDEI2VS ; ; 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,45957,1,4,0)
 ;;=4^H02.051
 ;;^UTILITY(U,$J,358.3,45957,2)
 ;;=^5004298
 ;;^UTILITY(U,$J,358.3,45958,0)
 ;;=H02.054^^176^2294^10
 ;;^UTILITY(U,$J,358.3,45958,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,45958,1,3,0)
 ;;=3^Trichiasis w/o Entropion,Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,45958,1,4,0)
 ;;=4^H02.054
 ;;^UTILITY(U,$J,358.3,45958,2)
 ;;=^5004301
 ;;^UTILITY(U,$J,358.3,45959,0)
 ;;=H57.813^^176^2294^17
 ;;^UTILITY(U,$J,358.3,45959,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,45959,1,3,0)
 ;;=3^Brow Ptosis,Bilateral
 ;;^UTILITY(U,$J,358.3,45959,1,4,0)
 ;;=4^H57.813
 ;;^UTILITY(U,$J,358.3,45959,2)
 ;;=^5157366
 ;;^UTILITY(U,$J,358.3,45960,0)
 ;;=D23.111^^176^2294^25
 ;;^UTILITY(U,$J,358.3,45960,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,45960,1,3,0)
 ;;=3^Benign Eyelid Lesion,Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,45960,1,4,0)
 ;;=4^D23.111
 ;;^UTILITY(U,$J,358.3,45960,2)
 ;;=^5157290
 ;;^UTILITY(U,$J,358.3,45961,0)
 ;;=D23.121^^176^2294^26
 ;;^UTILITY(U,$J,358.3,45961,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,45961,1,3,0)
 ;;=3^Benign Eyelid Lesion,Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,45961,1,4,0)
 ;;=4^D23.121
 ;;^UTILITY(U,$J,358.3,45961,2)
 ;;=^5157292
 ;;^UTILITY(U,$J,358.3,45962,0)
 ;;=C44.1021^^176^2294^27
 ;;^UTILITY(U,$J,358.3,45962,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,45962,1,3,0)
 ;;=3^Malignant Eyelid Lesion,Right Upper Eyelid
 ;;^UTILITY(U,$J,358.3,45962,1,4,0)
 ;;=4^C44.1021
 ;;^UTILITY(U,$J,358.3,45962,2)
 ;;=^5157253
 ;;^UTILITY(U,$J,358.3,45963,0)
 ;;=C44.1091^^176^2294^28
 ;;^UTILITY(U,$J,358.3,45963,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,45963,1,3,0)
 ;;=3^Malignant Eyelid Lesion,Left Upper Eyelid
 ;;^UTILITY(U,$J,358.3,45963,1,4,0)
 ;;=4^C44.1091
 ;;^UTILITY(U,$J,358.3,45963,2)
 ;;=^5157255
 ;;^UTILITY(U,$J,358.3,45964,0)
 ;;=H02.132^^176^2294^13
 ;;^UTILITY(U,$J,358.3,45964,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,45964,1,3,0)
 ;;=3^Ectropion,Senile,Right Lower Eyelid
 ;;^UTILITY(U,$J,358.3,45964,1,4,0)
 ;;=4^H02.132
 ;;^UTILITY(U,$J,358.3,45964,2)
 ;;=^5004318
 ;;^UTILITY(U,$J,358.3,45965,0)
 ;;=H02.135^^176^2294^14
 ;;^UTILITY(U,$J,358.3,45965,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,45965,1,3,0)
 ;;=3^Ectropion,Senile,Left Lower Eyelid
 ;;^UTILITY(U,$J,358.3,45965,1,4,0)
 ;;=4^H02.135
 ;;^UTILITY(U,$J,358.3,45965,2)
 ;;=^5133414
 ;;^UTILITY(U,$J,358.3,45966,0)
 ;;=B02.8^^176^2294^29
 ;;^UTILITY(U,$J,358.3,45966,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,45966,1,3,0)
 ;;=3^Herpes Zoster w/o Complications
 ;;^UTILITY(U,$J,358.3,45966,1,4,0)
 ;;=4^B02.8
 ;;^UTILITY(U,$J,358.3,45966,2)
 ;;=^5000500
 ;;^UTILITY(U,$J,358.3,45967,0)
 ;;=G24.5^^176^2295^32
 ;;^UTILITY(U,$J,358.3,45967,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,45967,1,3,0)
 ;;=3^Blepharospasm
 ;;^UTILITY(U,$J,358.3,45967,1,4,0)
 ;;=4^G24.5
 ;;^UTILITY(U,$J,358.3,45967,2)
 ;;=^15293
 ;;^UTILITY(U,$J,358.3,45968,0)
 ;;=G43.909^^176^2295^31
 ;;^UTILITY(U,$J,358.3,45968,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,45968,1,3,0)
 ;;=3^Migraine Not Intractable w/o Status Migrainosus
 ;;^UTILITY(U,$J,358.3,45968,1,4,0)
 ;;=4^G43.909
 ;;^UTILITY(U,$J,358.3,45968,2)
 ;;=^5003909
 ;;^UTILITY(U,$J,358.3,45969,0)
 ;;=G93.2^^176^2295^9
 ;;^UTILITY(U,$J,358.3,45969,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,45969,1,3,0)
 ;;=3^Benign Intracranial Hypertension