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

IBDEI15P.m

Go to the documentation of this file.
IBDEI15P ; ; 01-FEB-2022
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
 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,18772,1,3,0)
 ;;=3^AC Recurrent Sinusitis,Unspec
 ;;^UTILITY(U,$J,358.3,18772,1,4,0)
 ;;=4^J01.91
 ;;^UTILITY(U,$J,358.3,18772,2)
 ;;=^5008128
 ;;^UTILITY(U,$J,358.3,18773,0)
 ;;=J03.81^^64^840^36
 ;;^UTILITY(U,$J,358.3,18773,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18773,1,3,0)
 ;;=3^AC Recurrent Tonsillitis d/t Specified Organisms
 ;;^UTILITY(U,$J,358.3,18773,1,4,0)
 ;;=4^J03.81
 ;;^UTILITY(U,$J,358.3,18773,2)
 ;;=^5008134
 ;;^UTILITY(U,$J,358.3,18774,0)
 ;;=J03.91^^64^840^37
 ;;^UTILITY(U,$J,358.3,18774,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18774,1,3,0)
 ;;=3^AC Recurrent Tonsillitis,Unspec
 ;;^UTILITY(U,$J,358.3,18774,1,4,0)
 ;;=4^J03.91
 ;;^UTILITY(U,$J,358.3,18774,2)
 ;;=^5008136
 ;;^UTILITY(U,$J,358.3,18775,0)
 ;;=J01.90^^64^840^38
 ;;^UTILITY(U,$J,358.3,18775,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18775,1,3,0)
 ;;=3^AC Sinusitis,Unspec
 ;;^UTILITY(U,$J,358.3,18775,1,4,0)
 ;;=4^J01.90
 ;;^UTILITY(U,$J,358.3,18775,2)
 ;;=^5008127
 ;;^UTILITY(U,$J,358.3,18776,0)
 ;;=J03.80^^64^840^39
 ;;^UTILITY(U,$J,358.3,18776,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18776,1,3,0)
 ;;=3^AC Tonsillitis d/t Specified Organisms
 ;;^UTILITY(U,$J,358.3,18776,1,4,0)
 ;;=4^J03.80
 ;;^UTILITY(U,$J,358.3,18776,2)
 ;;=^5008133
 ;;^UTILITY(U,$J,358.3,18777,0)
 ;;=J03.90^^64^840^40
 ;;^UTILITY(U,$J,358.3,18777,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18777,1,3,0)
 ;;=3^AC Tonsillitis,Unspec
 ;;^UTILITY(U,$J,358.3,18777,1,4,0)
 ;;=4^J03.90
 ;;^UTILITY(U,$J,358.3,18777,2)
 ;;=^5008135
 ;;^UTILITY(U,$J,358.3,18778,0)
 ;;=B44.81^^64^840^43
 ;;^UTILITY(U,$J,358.3,18778,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18778,1,3,0)
 ;;=3^Allergic Bronchopulmonary Aspergillosis
 ;;^UTILITY(U,$J,358.3,18778,1,4,0)
 ;;=4^B44.81
 ;;^UTILITY(U,$J,358.3,18778,2)
 ;;=^10945
 ;;^UTILITY(U,$J,358.3,18779,0)
 ;;=B44.9^^64^840^45
 ;;^UTILITY(U,$J,358.3,18779,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18779,1,3,0)
 ;;=3^Aspergillosis,Unspec
 ;;^UTILITY(U,$J,358.3,18779,1,4,0)
 ;;=4^B44.9
 ;;^UTILITY(U,$J,358.3,18779,2)
 ;;=^5000668
 ;;^UTILITY(U,$J,358.3,18780,0)
 ;;=B40.9^^64^840^47
 ;;^UTILITY(U,$J,358.3,18780,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18780,1,3,0)
 ;;=3^Blastomycosis,Unspec
 ;;^UTILITY(U,$J,358.3,18780,1,4,0)
 ;;=4^B40.9
 ;;^UTILITY(U,$J,358.3,18780,2)
 ;;=^5000646
 ;;^UTILITY(U,$J,358.3,18781,0)
 ;;=J18.0^^64^840^48
 ;;^UTILITY(U,$J,358.3,18781,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18781,1,3,0)
 ;;=3^Bronchopneumonia,Unspec Organism
 ;;^UTILITY(U,$J,358.3,18781,1,4,0)
 ;;=4^J18.0
 ;;^UTILITY(U,$J,358.3,18781,2)
 ;;=^5008182
 ;;^UTILITY(U,$J,358.3,18782,0)
 ;;=B45.1^^64^840^49
 ;;^UTILITY(U,$J,358.3,18782,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18782,1,3,0)
 ;;=3^Cerebral Cryptococcosis
 ;;^UTILITY(U,$J,358.3,18782,1,4,0)
 ;;=4^B45.1
 ;;^UTILITY(U,$J,358.3,18782,2)
 ;;=^5000670
 ;;^UTILITY(U,$J,358.3,18783,0)
 ;;=J16.0^^64^840^50
 ;;^UTILITY(U,$J,358.3,18783,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18783,1,3,0)
 ;;=3^Chlamydial Pneumonia
 ;;^UTILITY(U,$J,358.3,18783,1,4,0)
 ;;=4^J16.0
 ;;^UTILITY(U,$J,358.3,18783,2)
 ;;=^5008179
 ;;^UTILITY(U,$J,358.3,18784,0)
 ;;=B40.1^^64^840^51
 ;;^UTILITY(U,$J,358.3,18784,1,0)
 ;;=^358.31IA^4^2
 ;;^UTILITY(U,$J,358.3,18784,1,3,0)
 ;;=3^Chr Pulmonary Blastomycosis
 ;;^UTILITY(U,$J,358.3,18784,1,4,0)
 ;;=4^B40.1
 ;;^UTILITY(U,$J,358.3,18784,2)
 ;;=^5000640