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

IBDEI1IF.m

Go to the documentation of this file.
  1. IBDEI1IF ; ; 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,24426,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,24426,1,2,0)
  1. ;;=2^88141
  1. ;;^UTILITY(U,$J,358.3,24426,1,3,0)
  1. ;;=3^CYTO,CRV/VAG (ANY),PHYS INTERP
  1. ;;^UTILITY(U,$J,358.3,24427,0)
  1. ;;=88142^^83^1059^16^^^^1
  1. ;;^UTILITY(U,$J,358.3,24427,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,24427,1,2,0)
  1. ;;=2^88142
  1. ;;^UTILITY(U,$J,358.3,24427,1,3,0)
  1. ;;=3^CYTO,CRV/VAG (ANY),THIN PREP,MAN SCRN,PHYS
  1. ;;^UTILITY(U,$J,358.3,24428,0)
  1. ;;=88150^^83^1059^34^^^^1
  1. ;;^UTILITY(U,$J,358.3,24428,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,24428,1,2,0)
  1. ;;=2^88150
  1. ;;^UTILITY(U,$J,358.3,24428,1,3,0)
  1. ;;=3^SLIDE,CRV/VAG,MAN SCR,PHYS SUPRV
  1. ;;^UTILITY(U,$J,358.3,24429,0)
  1. ;;=88153^^83^1059^36^^^^1
  1. ;;^UTILITY(U,$J,358.3,24429,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,24429,1,2,0)
  1. ;;=2^88153
  1. ;;^UTILITY(U,$J,358.3,24429,1,3,0)
  1. ;;=3^SLIDE,CRV/VAG,MAN SCR/RSCRN,PHYS
  1. ;;^UTILITY(U,$J,358.3,24430,0)
  1. ;;=88155^^83^1059^33^^^^1
  1. ;;^UTILITY(U,$J,358.3,24430,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,24430,1,2,0)
  1. ;;=2^88155
  1. ;;^UTILITY(U,$J,358.3,24430,1,3,0)
  1. ;;=3^SLIDE,CRV/VAG,DEF HORMON EVAL(1ST SEP)
  1. ;;^UTILITY(U,$J,358.3,24431,0)
  1. ;;=88143^^83^1059^15^^^^1
  1. ;;^UTILITY(U,$J,358.3,24431,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,24431,1,2,0)
  1. ;;=2^88143
  1. ;;^UTILITY(U,$J,358.3,24431,1,3,0)
  1. ;;=3^CYTO,CRV/VAG (ANY),THIN PREP,MAN SCR/RSCR
  1. ;;^UTILITY(U,$J,358.3,24432,0)
  1. ;;=88164^^83^1059^31^^^^1
  1. ;;^UTILITY(U,$J,358.3,24432,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,24432,1,2,0)
  1. ;;=2^88164
  1. ;;^UTILITY(U,$J,358.3,24432,1,3,0)
  1. ;;=3^SLIDE,CRV/VAG (BETH),MAN SCR,PHYS SUPRV
  1. ;;^UTILITY(U,$J,358.3,24433,0)
  1. ;;=88165^^83^1059^32^^^^1
  1. ;;^UTILITY(U,$J,358.3,24433,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,24433,1,2,0)
  1. ;;=2^88165
  1. ;;^UTILITY(U,$J,358.3,24433,1,3,0)
  1. ;;=3^SLIDE,CRV/VAG (BETH),MAN SCR/RSCR,PHYS
  1. ;;^UTILITY(U,$J,358.3,24434,0)
  1. ;;=88166^^83^1059^30^^^^1
  1. ;;^UTILITY(U,$J,358.3,24434,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,24434,1,2,0)
  1. ;;=2^88166
  1. ;;^UTILITY(U,$J,358.3,24434,1,3,0)
  1. ;;=3^SLIDE,CR/VAG (BETH),MAN SCR/CMP RSCR,PHYS
  1. ;;^UTILITY(U,$J,358.3,24435,0)
  1. ;;=88167^^83^1059^29^^^^1
  1. ;;^UTILITY(U,$J,358.3,24435,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,24435,1,2,0)
  1. ;;=2^88167
  1. ;;^UTILITY(U,$J,358.3,24435,1,3,0)
  1. ;;=3^SLIDE,CR/VAG (BETH),MAN SCR/CMP RSCR,CELL
  1. ;;^UTILITY(U,$J,358.3,24436,0)
  1. ;;=88174^^83^1059^14^^^^1
  1. ;;^UTILITY(U,$J,358.3,24436,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,24436,1,2,0)
  1. ;;=2^88174
  1. ;;^UTILITY(U,$J,358.3,24436,1,3,0)
  1. ;;=3^CYTO,CRV/VAG (ANY),THIN PREP,AUTO,PHYS SUPRV
  1. ;;^UTILITY(U,$J,358.3,24437,0)
  1. ;;=88175^^83^1059^12^^^^1
  1. ;;^UTILITY(U,$J,358.3,24437,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,24437,1,2,0)
  1. ;;=2^88175
  1. ;;^UTILITY(U,$J,358.3,24437,1,3,0)
  1. ;;=3^CYTO CRV/VAG (ANY),THIN PREP,AUTO/MAN RSCR,PHYS SUPRV
  1. ;;^UTILITY(U,$J,358.3,24438,0)
  1. ;;=J3420^^83^1060^1^^^^1
  1. ;;^UTILITY(U,$J,358.3,24438,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,24438,1,2,0)
  1. ;;=2^J3420
  1. ;;^UTILITY(U,$J,358.3,24438,1,3,0)
  1. ;;=3^B12 INJ UP TO 1,000MCG
  1. ;;^UTILITY(U,$J,358.3,24439,0)
  1. ;;=J0800^^83^1060^2^^^^1
  1. ;;^UTILITY(U,$J,358.3,24439,1,0)
  1. ;;=^358.31IA^3^2
  1. ;;^UTILITY(U,$J,358.3,24439,1,2,0)
  1. ;;=2^J0800
  1. ;;^UTILITY(U,$J,358.3,24439,1,3,0)
  1. ;;=3^CORTICOTROPIN UP TO 40U
  1. ;;^UTILITY(U,$J,358.3,24440,0)
  1. ;;=J9202^^83^1060^6^^^^1
  1. ;;^UTILITY(U,$J,358.3,24440,1,0)
  1. ;;=^358.31IA^3^2