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

IBDEI32D.m

Go to the documentation of this file.
  1. IBDEI32D ; ; 04-FEB-2020
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 04, 2020
  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,48924,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48924,1,3,0)
  1. ;;=3^Sleep Disorder,Nightmare
  1. ;;^UTILITY(U,$J,358.3,48924,1,4,0)
  1. ;;=4^F51.5
  1. ;;^UTILITY(U,$J,358.3,48924,2)
  1. ;;=^5003615
  1. ;;^UTILITY(U,$J,358.3,48925,0)
  1. ;;=F51.9^^185^2427^22
  1. ;;^UTILITY(U,$J,358.3,48925,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48925,1,3,0)
  1. ;;=3^Sleep Disorder,Unspec
  1. ;;^UTILITY(U,$J,358.3,48925,1,4,0)
  1. ;;=4^F51.9
  1. ;;^UTILITY(U,$J,358.3,48925,2)
  1. ;;=^5003617
  1. ;;^UTILITY(U,$J,358.3,48926,0)
  1. ;;=G47.14^^185^2427^5
  1. ;;^UTILITY(U,$J,358.3,48926,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48926,1,3,0)
  1. ;;=3^Hypersomnia d/t Medical Condition
  1. ;;^UTILITY(U,$J,358.3,48926,1,4,0)
  1. ;;=4^G47.14
  1. ;;^UTILITY(U,$J,358.3,48926,2)
  1. ;;=^5003972
  1. ;;^UTILITY(U,$J,358.3,48927,0)
  1. ;;=G47.10^^185^2427^8
  1. ;;^UTILITY(U,$J,358.3,48927,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48927,1,3,0)
  1. ;;=3^Hypersomnia,Unspec
  1. ;;^UTILITY(U,$J,358.3,48927,1,4,0)
  1. ;;=4^G47.10
  1. ;;^UTILITY(U,$J,358.3,48927,2)
  1. ;;=^332926
  1. ;;^UTILITY(U,$J,358.3,48928,0)
  1. ;;=G47.01^^185^2427^9
  1. ;;^UTILITY(U,$J,358.3,48928,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48928,1,3,0)
  1. ;;=3^Insomnia d/t Medical Condition
  1. ;;^UTILITY(U,$J,358.3,48928,1,4,0)
  1. ;;=4^G47.01
  1. ;;^UTILITY(U,$J,358.3,48928,2)
  1. ;;=^5003969
  1. ;;^UTILITY(U,$J,358.3,48929,0)
  1. ;;=G47.00^^185^2427^17
  1. ;;^UTILITY(U,$J,358.3,48929,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48929,1,3,0)
  1. ;;=3^Insomnia,Unspec
  1. ;;^UTILITY(U,$J,358.3,48929,1,4,0)
  1. ;;=4^G47.00
  1. ;;^UTILITY(U,$J,358.3,48929,2)
  1. ;;=^332924
  1. ;;^UTILITY(U,$J,358.3,48930,0)
  1. ;;=Z72.821^^185^2427^23
  1. ;;^UTILITY(U,$J,358.3,48930,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48930,1,3,0)
  1. ;;=3^Sleep Hygiene,Inadequate
  1. ;;^UTILITY(U,$J,358.3,48930,1,4,0)
  1. ;;=4^Z72.821
  1. ;;^UTILITY(U,$J,358.3,48930,2)
  1. ;;=^5063265
  1. ;;^UTILITY(U,$J,358.3,48931,0)
  1. ;;=G47.63^^185^2427^24
  1. ;;^UTILITY(U,$J,358.3,48931,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48931,1,3,0)
  1. ;;=3^Sleep Related Bruxism
  1. ;;^UTILITY(U,$J,358.3,48931,1,4,0)
  1. ;;=4^G47.63
  1. ;;^UTILITY(U,$J,358.3,48931,2)
  1. ;;=^332783
  1. ;;^UTILITY(U,$J,358.3,48932,0)
  1. ;;=G47.9^^185^2427^25
  1. ;;^UTILITY(U,$J,358.3,48932,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48932,1,3,0)
  1. ;;=3^Sleep Related Disorder,Unspec
  1. ;;^UTILITY(U,$J,358.3,48932,1,4,0)
  1. ;;=4^G47.9
  1. ;;^UTILITY(U,$J,358.3,48932,2)
  1. ;;=^5003990
  1. ;;^UTILITY(U,$J,358.3,48933,0)
  1. ;;=G47.62^^185^2427^26
  1. ;;^UTILITY(U,$J,358.3,48933,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48933,1,3,0)
  1. ;;=3^Sleep Related Leg Cramps
  1. ;;^UTILITY(U,$J,358.3,48933,1,4,0)
  1. ;;=4^G47.62
  1. ;;^UTILITY(U,$J,358.3,48933,2)
  1. ;;=^332782
  1. ;;^UTILITY(U,$J,358.3,48934,0)
  1. ;;=G47.61^^185^2427^27
  1. ;;^UTILITY(U,$J,358.3,48934,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48934,1,3,0)
  1. ;;=3^Sleep Related Movement Disorder,Periodic
  1. ;;^UTILITY(U,$J,358.3,48934,1,4,0)
  1. ;;=4^G47.61
  1. ;;^UTILITY(U,$J,358.3,48934,2)
  1. ;;=^5003987
  1. ;;^UTILITY(U,$J,358.3,48935,0)
  1. ;;=F51.12^^185^2427^28
  1. ;;^UTILITY(U,$J,358.3,48935,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48935,1,3,0)
  1. ;;=3^Sleep Syndrome,Insufficient Sleep
  1. ;;^UTILITY(U,$J,358.3,48935,1,4,0)
  1. ;;=4^F51.12
  1. ;;^UTILITY(U,$J,358.3,48935,2)
  1. ;;=^5003610
  1. ;;^UTILITY(U,$J,358.3,48936,0)
  1. ;;=F51.4^^185^2427^29
  1. ;;^UTILITY(U,$J,358.3,48936,1,0)
  1. ;;=^358.31IA^4^2
  1. ;;^UTILITY(U,$J,358.3,48936,1,3,0)
  1. ;;=3^Sleep Terrors
  1. ;;^UTILITY(U,$J,358.3,48936,1,4,0)
  1. ;;=4^F51.4