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

IBDEI0RC.m

Go to the documentation of this file.
  1. IBDEI0RC ; ; 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,12307,2)
  1. ;;=^5151433
  1. ;;^UTILITY(U,$J,358.3,12308,0)
  1. ;;=L97.116^^49^596^123
  1. ;;^UTILITY(U,$J,358.3,12308,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12308,1,3,0)
  1. ;;=3^Non-Pressure Chr Ulcer Rt Thigh w/ Bone Invl w/o Necrosis
  1. ;;^UTILITY(U,$J,358.3,12308,1,4,0)
  1. ;;=4^L97.116
  1. ;;^UTILITY(U,$J,358.3,12308,2)
  1. ;;=^5151434
  1. ;;^UTILITY(U,$J,358.3,12309,0)
  1. ;;=L97.118^^49^596^128
  1. ;;^UTILITY(U,$J,358.3,12309,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12309,1,3,0)
  1. ;;=3^Non-Pressure Chr Ulcer Rt Thigh w/ Oth Severity
  1. ;;^UTILITY(U,$J,358.3,12309,1,4,0)
  1. ;;=4^L97.118
  1. ;;^UTILITY(U,$J,358.3,12309,2)
  1. ;;=^5151435
  1. ;;^UTILITY(U,$J,358.3,12310,0)
  1. ;;=B00.9^^49^597^26
  1. ;;^UTILITY(U,$J,358.3,12310,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12310,1,3,0)
  1. ;;=3^Herpes Simplex Infection NOS
  1. ;;^UTILITY(U,$J,358.3,12310,1,4,0)
  1. ;;=4^B00.9
  1. ;;^UTILITY(U,$J,358.3,12310,2)
  1. ;;=^5000480
  1. ;;^UTILITY(U,$J,358.3,12311,0)
  1. ;;=K59.00^^49^597^13
  1. ;;^UTILITY(U,$J,358.3,12311,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12311,1,3,0)
  1. ;;=3^Constipation,Unspec
  1. ;;^UTILITY(U,$J,358.3,12311,1,4,0)
  1. ;;=4^K59.00
  1. ;;^UTILITY(U,$J,358.3,12311,2)
  1. ;;=^323537
  1. ;;^UTILITY(U,$J,358.3,12312,0)
  1. ;;=R42.^^49^597^17
  1. ;;^UTILITY(U,$J,358.3,12312,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12312,1,3,0)
  1. ;;=3^Dizziness and Giddiness
  1. ;;^UTILITY(U,$J,358.3,12312,1,4,0)
  1. ;;=4^R42.
  1. ;;^UTILITY(U,$J,358.3,12312,2)
  1. ;;=^5019450
  1. ;;^UTILITY(U,$J,358.3,12313,0)
  1. ;;=G47.00^^49^597^27
  1. ;;^UTILITY(U,$J,358.3,12313,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12313,1,3,0)
  1. ;;=3^Insomnia,Unspec
  1. ;;^UTILITY(U,$J,358.3,12313,1,4,0)
  1. ;;=4^G47.00
  1. ;;^UTILITY(U,$J,358.3,12313,2)
  1. ;;=^332924
  1. ;;^UTILITY(U,$J,358.3,12314,0)
  1. ;;=G47.30^^49^597^40
  1. ;;^UTILITY(U,$J,358.3,12314,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12314,1,3,0)
  1. ;;=3^Sleep Apnea,Unspec
  1. ;;^UTILITY(U,$J,358.3,12314,1,4,0)
  1. ;;=4^G47.30
  1. ;;^UTILITY(U,$J,358.3,12314,2)
  1. ;;=^5003977
  1. ;;^UTILITY(U,$J,358.3,12315,0)
  1. ;;=R50.9^^49^597^23
  1. ;;^UTILITY(U,$J,358.3,12315,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12315,1,3,0)
  1. ;;=3^Fever,Unspec
  1. ;;^UTILITY(U,$J,358.3,12315,1,4,0)
  1. ;;=4^R50.9
  1. ;;^UTILITY(U,$J,358.3,12315,2)
  1. ;;=^5019512
  1. ;;^UTILITY(U,$J,358.3,12316,0)
  1. ;;=R50.82^^49^597^33
  1. ;;^UTILITY(U,$J,358.3,12316,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12316,1,3,0)
  1. ;;=3^Postprocedural Fever
  1. ;;^UTILITY(U,$J,358.3,12316,1,4,0)
  1. ;;=4^R50.82
  1. ;;^UTILITY(U,$J,358.3,12316,2)
  1. ;;=^5019509
  1. ;;^UTILITY(U,$J,358.3,12317,0)
  1. ;;=R50.83^^49^597^34
  1. ;;^UTILITY(U,$J,358.3,12317,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12317,1,3,0)
  1. ;;=3^Postvaccination Fever
  1. ;;^UTILITY(U,$J,358.3,12317,1,4,0)
  1. ;;=4^R50.83
  1. ;;^UTILITY(U,$J,358.3,12317,2)
  1. ;;=^5019510
  1. ;;^UTILITY(U,$J,358.3,12318,0)
  1. ;;=R68.83^^49^597^11
  1. ;;^UTILITY(U,$J,358.3,12318,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12318,1,3,0)
  1. ;;=3^Chills w/o Fever
  1. ;;^UTILITY(U,$J,358.3,12318,1,4,0)
  1. ;;=4^R68.83
  1. ;;^UTILITY(U,$J,358.3,12318,2)
  1. ;;=^5019555
  1. ;;^UTILITY(U,$J,358.3,12319,0)
  1. ;;=R53.81^^49^597^28
  1. ;;^UTILITY(U,$J,358.3,12319,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12319,1,3,0)
  1. ;;=3^Malaise NOS
  1. ;;^UTILITY(U,$J,358.3,12319,1,4,0)
  1. ;;=4^R53.81
  1. ;;^UTILITY(U,$J,358.3,12319,2)
  1. ;;=^5019518
  1. ;;^UTILITY(U,$J,358.3,12320,0)
  1. ;;=R53.83^^49^597^22
  1. ;;^UTILITY(U,$J,358.3,12320,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,12320,1,3,0)
  1. ;;=3^Fatigue NOS