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

IBDEI3KB.m

Go to the documentation of this file.
IBDEI3KB ; ; 19-NOV-2015
 ;;3.0;IB ENCOUNTER FORM IMP/EXP;;JUN 29, 2015
 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,99) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
Q Q
 ;;^UTILITY(U,$J,"PKG",207,4,14,0)
 ;;=358.98
 ;;^UTILITY(U,$J,"PKG",207,4,14,1,0)
 ;;=^9.45A^1^1
 ;;^UTILITY(U,$J,"PKG",207,4,14,1,1,0)
 ;;=NAME
 ;;^UTILITY(U,$J,"PKG",207,4,14,1,"B","NAME",1)
 ;;=
 ;;^UTILITY(U,$J,"PKG",207,4,14,222)
 ;;=n^n^^n^^^y^o^n
 ;;^UTILITY(U,$J,"PKG",207,4,"B",358,1)
 ;;=
 ;;^UTILITY(U,$J,"PKG",207,4,"B",358.1,2)
 ;;=
 ;;^UTILITY(U,$J,"PKG",207,4,"B",358.2,3)
 ;;=
 ;;^UTILITY(U,$J,"PKG",207,4,"B",358.3,4)
 ;;=
 ;;^UTILITY(U,$J,"PKG",207,4,"B",358.4,5)
 ;;=
 ;;^UTILITY(U,$J,"PKG",207,4,"B",358.5,6)
 ;;=
 ;;^UTILITY(U,$J,"PKG",207,4,"B",358.6,7)
 ;;=
 ;;^UTILITY(U,$J,"PKG",207,4,"B",358.7,8)
 ;;=
 ;;^UTILITY(U,$J,"PKG",207,4,"B",358.8,9)
 ;;=
 ;;^UTILITY(U,$J,"PKG",207,4,"B",358.91,10)
 ;;=
 ;;^UTILITY(U,$J,"PKG",207,4,"B",358.93,12)
 ;;=
 ;;^UTILITY(U,$J,"PKG",207,4,"B",358.94,11)
 ;;=
 ;;^UTILITY(U,$J,"PKG",207,4,"B",358.98,14)
 ;;=
 ;;^UTILITY(U,$J,"PKG",207,4,"B",358.99,13)
 ;;=
 ;;^UTILITY(U,$J,"PKG",207,5)
 ;;=ALBANY
 ;;^UTILITY(U,$J,"PKG",207,11)
 ;;=358^358.99
 ;;^UTILITY(U,$J,"PKG",207,22,0)
 ;;=^9.49I^2^2
 ;;^UTILITY(U,$J,"PKG",207,22,1,0)
 ;;=2.1^2960403^2980601
 ;;^UTILITY(U,$J,"PKG",207,22,2,0)
 ;;=3.0^3150629^3150629
 ;;^UTILITY(U,$J,"PKG",207,22,"B",2.1,1)
 ;;=
 ;;^UTILITY(U,$J,"PKG",207,22,"B","3.0",2)
 ;;=
 ;;^UTILITY(U,$J,"PKG",207,"INI")
 ;;=IBDE2^
 ;;^UTILITY(U,$J,"PKG",207,"INIT")
 ;;=IBDEPT^
 ;;^UTILITY(U,$J,"PKG",207,"PRE")
 ;;=IBDEPRE^
 ;;^UTILITY(U,$J,"SBF",358,358)
 ;;=
 ;;^UTILITY(U,$J,"SBF",358.1,358.1)
 ;;=
 ;;^UTILITY(U,$J,"SBF",358.2,358.2)
 ;;=
 ;;^UTILITY(U,$J,"SBF",358.3,358.3)
 ;;=
 ;;^UTILITY(U,$J,"SBF",358.4,358.4)
 ;;=
 ;;^UTILITY(U,$J,"SBF",358.5,358.5)
 ;;=
 ;;^UTILITY(U,$J,"SBF",358.6,358.6)
 ;;=
 ;;^UTILITY(U,$J,"SBF",358.7,358.7)
 ;;=
 ;;^UTILITY(U,$J,"SBF",358.8,358.8)
 ;;=
 ;;^UTILITY(U,$J,"SBF",358.91,358.91)
 ;;=
 ;;^UTILITY(U,$J,"SBF",358.93,358.93)
 ;;=
 ;;^UTILITY(U,$J,"SBF",358.94,358.94)
 ;;=
 ;;^UTILITY(U,$J,"SBF",358.98,358.98)
 ;;=
 ;;^UTILITY(U,$J,"SBF",358.99,358.99)
 ;;=