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

IBDEI0RP.m

Go to the documentation of this file.
  1. IBDEI0RP ; ; 01-FEB-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
  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,12470,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12470,1,3,0)
  1. ;;=3^Hemorrhoids,Unspec
  1. ;;^UTILITY(U,$J,358.3,12470,1,4,0)
  1. ;;=4^K64.9
  1. ;;^UTILITY(U,$J,358.3,12470,2)
  1. ;;=^5008775
  1. ;;^UTILITY(U,$J,358.3,12471,0)
  1. ;;=K21.9^^49^602^15
  1. ;;^UTILITY(U,$J,358.3,12471,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12471,1,3,0)
  1. ;;=3^GERD w/o Esophagitis
  1. ;;^UTILITY(U,$J,358.3,12471,1,4,0)
  1. ;;=4^K21.9
  1. ;;^UTILITY(U,$J,358.3,12471,2)
  1. ;;=^5008505
  1. ;;^UTILITY(U,$J,358.3,12472,0)
  1. ;;=K27.9^^49^602^20
  1. ;;^UTILITY(U,$J,358.3,12472,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12472,1,3,0)
  1. ;;=3^Peptic Ulcer w/o Hemorrhage/Perforation,Unspec Site
  1. ;;^UTILITY(U,$J,358.3,12472,1,4,0)
  1. ;;=4^K27.9
  1. ;;^UTILITY(U,$J,358.3,12472,2)
  1. ;;=^5008536
  1. ;;^UTILITY(U,$J,358.3,12473,0)
  1. ;;=K29.00^^49^602^2
  1. ;;^UTILITY(U,$J,358.3,12473,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12473,1,3,0)
  1. ;;=3^Acute Gastritis w/o Bleeding
  1. ;;^UTILITY(U,$J,358.3,12473,1,4,0)
  1. ;;=4^K29.00
  1. ;;^UTILITY(U,$J,358.3,12473,2)
  1. ;;=^5008542
  1. ;;^UTILITY(U,$J,358.3,12474,0)
  1. ;;=K46.9^^49^602^1
  1. ;;^UTILITY(U,$J,358.3,12474,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12474,1,3,0)
  1. ;;=3^Abdominal Hernia w/o Obstruction/Gangrene,Unspec
  1. ;;^UTILITY(U,$J,358.3,12474,1,4,0)
  1. ;;=4^K46.9
  1. ;;^UTILITY(U,$J,358.3,12474,2)
  1. ;;=^5008623
  1. ;;^UTILITY(U,$J,358.3,12475,0)
  1. ;;=K52.9^^49^602^19
  1. ;;^UTILITY(U,$J,358.3,12475,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12475,1,3,0)
  1. ;;=3^Noninfective Gastroenteritis/Colitis,Unspec
  1. ;;^UTILITY(U,$J,358.3,12475,1,4,0)
  1. ;;=4^K52.9
  1. ;;^UTILITY(U,$J,358.3,12475,2)
  1. ;;=^5008704
  1. ;;^UTILITY(U,$J,358.3,12476,0)
  1. ;;=K58.9^^49^602^18
  1. ;;^UTILITY(U,$J,358.3,12476,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12476,1,3,0)
  1. ;;=3^IBS w/o Diarrhea
  1. ;;^UTILITY(U,$J,358.3,12476,1,4,0)
  1. ;;=4^K58.9
  1. ;;^UTILITY(U,$J,358.3,12476,2)
  1. ;;=^5008740
  1. ;;^UTILITY(U,$J,358.3,12477,0)
  1. ;;=K74.60^^49^602^11
  1. ;;^UTILITY(U,$J,358.3,12477,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12477,1,3,0)
  1. ;;=3^Cirrhosis of Liver,Unspec
  1. ;;^UTILITY(U,$J,358.3,12477,1,4,0)
  1. ;;=4^K74.60
  1. ;;^UTILITY(U,$J,358.3,12477,2)
  1. ;;=^5008822
  1. ;;^UTILITY(U,$J,358.3,12478,0)
  1. ;;=B17.10^^49^602^4
  1. ;;^UTILITY(U,$J,358.3,12478,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12478,1,3,0)
  1. ;;=3^Acute Viral Hepatitis C w/o Hepatic Coma
  1. ;;^UTILITY(U,$J,358.3,12478,1,4,0)
  1. ;;=4^B17.10
  1. ;;^UTILITY(U,$J,358.3,12478,2)
  1. ;;=^5000542
  1. ;;^UTILITY(U,$J,358.3,12479,0)
  1. ;;=B17.11^^49^602^3
  1. ;;^UTILITY(U,$J,358.3,12479,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12479,1,3,0)
  1. ;;=3^Acute Viral Hepatitis C w/ Hepatic Coma
  1. ;;^UTILITY(U,$J,358.3,12479,1,4,0)
  1. ;;=4^B17.11
  1. ;;^UTILITY(U,$J,358.3,12479,2)
  1. ;;=^331777
  1. ;;^UTILITY(U,$J,358.3,12480,0)
  1. ;;=K70.30^^49^602^6
  1. ;;^UTILITY(U,$J,358.3,12480,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12480,1,3,0)
  1. ;;=3^Alcoholic Cirrhosis of Liver w/o Ascites
  1. ;;^UTILITY(U,$J,358.3,12480,1,4,0)
  1. ;;=4^K70.30
  1. ;;^UTILITY(U,$J,358.3,12480,2)
  1. ;;=^5008788
  1. ;;^UTILITY(U,$J,358.3,12481,0)
  1. ;;=K70.31^^49^602^5
  1. ;;^UTILITY(U,$J,358.3,12481,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12481,1,3,0)
  1. ;;=3^Alcoholic Cirrhosis of Liver w/ Ascites
  1. ;;^UTILITY(U,$J,358.3,12481,1,4,0)
  1. ;;=4^K70.31
  1. ;;^UTILITY(U,$J,358.3,12481,2)
  1. ;;=^5008789
  1. ;;^UTILITY(U,$J,358.3,12482,0)
  1. ;;=K58.0^^49^602^17
  1. ;;^UTILITY(U,$J,358.3,12482,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12482,1,3,0)
  1. ;;=3^IBS w/ Diarrhea