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

IBDEI1N7.m

Go to the documentation of this file.
  1. IBDEI1N7 ; ; 01-FEB-2022
  1. ;;3.0;IB ENCOUNTER FORM IMP/EXP;;FEB 01, 2022
  1. 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,"OR",207,0)
  1. ;;=207^IBDE^^OE/RR-CLEVELAND
  1. ;;^UTILITY(U,$J,"PKG",207,0)
  1. ;;=IB ENCOUNTER FORM IMP/EXP^IBDE^The import/export utilities for encounter forms.
  1. ;;^UTILITY(U,$J,"PKG",207,4,0)
  1. ;;=^9.44PA^14^14
  1. ;;^UTILITY(U,$J,"PKG",207,4,1,0)
  1. ;;=358
  1. ;;^UTILITY(U,$J,"PKG",207,4,1,1,0)
  1. ;;=^9.45A^1^1
  1. ;;^UTILITY(U,$J,"PKG",207,4,1,1,1,0)
  1. ;;=NAME
  1. ;;^UTILITY(U,$J,"PKG",207,4,1,1,"B","NAME",1)
  1. ;;=
  1. ;;^UTILITY(U,$J,"PKG",207,4,1,222)
  1. ;;=n^n^^n^^^y^o^y
  1. ;;^UTILITY(U,$J,"PKG",207,4,2,0)
  1. ;;=358.1
  1. ;;^UTILITY(U,$J,"PKG",207,4,2,1,0)
  1. ;;=^9.45A^1^1
  1. ;;^UTILITY(U,$J,"PKG",207,4,2,1,1,0)
  1. ;;=NAME
  1. ;;^UTILITY(U,$J,"PKG",207,4,2,1,"B","NAME",1)
  1. ;;=
  1. ;;^UTILITY(U,$J,"PKG",207,4,2,222)
  1. ;;=y^y^^n^^^y^o^y
  1. ;;^UTILITY(U,$J,"PKG",207,4,3,0)
  1. ;;=358.2
  1. ;;^UTILITY(U,$J,"PKG",207,4,3,1,0)
  1. ;;=^9.45A^1^1
  1. ;;^UTILITY(U,$J,"PKG",207,4,3,1,1,0)
  1. ;;=NAME
  1. ;;^UTILITY(U,$J,"PKG",207,4,3,1,"B","NAME",1)
  1. ;;=
  1. ;;^UTILITY(U,$J,"PKG",207,4,3,222)
  1. ;;=y^n^^y^^^y^o^n
  1. ;;^UTILITY(U,$J,"PKG",207,4,4,0)
  1. ;;=358.3
  1. ;;^UTILITY(U,$J,"PKG",207,4,4,1,0)
  1. ;;=^9.45A^2^2
  1. ;;^UTILITY(U,$J,"PKG",207,4,4,1,1,0)
  1. ;;=SELECTION ID
  1. ;;^UTILITY(U,$J,"PKG",207,4,4,1,2,0)
  1. ;;=SELECTION ID
  1. ;;^UTILITY(U,$J,"PKG",207,4,4,1,"B","SELECTION ID",1)
  1. ;;=
  1. ;;^UTILITY(U,$J,"PKG",207,4,4,1,"B","SELECTION ID",2)
  1. ;;=
  1. ;;^UTILITY(U,$J,"PKG",207,4,4,222)
  1. ;;=y^n^^y^^^y^o^y
  1. ;;^UTILITY(U,$J,"PKG",207,4,5,0)
  1. ;;=358.4
  1. ;;^UTILITY(U,$J,"PKG",207,4,5,1,0)
  1. ;;=^9.45A^1^1
  1. ;;^UTILITY(U,$J,"PKG",207,4,5,1,1,0)
  1. ;;=HEADER
  1. ;;^UTILITY(U,$J,"PKG",207,4,5,1,"B","HEADER",1)
  1. ;;=
  1. ;;^UTILITY(U,$J,"PKG",207,4,5,222)
  1. ;;=y^n^^y^^^y^o^y
  1. ;;^UTILITY(U,$J,"PKG",207,4,6,0)
  1. ;;=358.5
  1. ;;^UTILITY(U,$J,"PKG",207,4,6,1,0)
  1. ;;=^9.45A^1^1
  1. ;;^UTILITY(U,$J,"PKG",207,4,6,1,1,0)
  1. ;;=NAME
  1. ;;^UTILITY(U,$J,"PKG",207,4,6,1,"B","NAME",1)
  1. ;;=
  1. ;;^UTILITY(U,$J,"PKG",207,4,6,222)
  1. ;;=y^y^^y^^^y^o^y
  1. ;;^UTILITY(U,$J,"PKG",207,4,7,0)
  1. ;;=358.6
  1. ;;^UTILITY(U,$J,"PKG",207,4,7,1,0)
  1. ;;=^9.45A^1^1
  1. ;;^UTILITY(U,$J,"PKG",207,4,7,1,1,0)
  1. ;;=NAME
  1. ;;^UTILITY(U,$J,"PKG",207,4,7,1,"B","NAME",1)
  1. ;;=
  1. ;;^UTILITY(U,$J,"PKG",207,4,7,222)
  1. ;;=n^n^^y^^^y^o^y
  1. ;;^UTILITY(U,$J,"PKG",207,4,8,0)
  1. ;;=358.7
  1. ;;^UTILITY(U,$J,"PKG",207,4,8,1,0)
  1. ;;=^9.45A^1^1
  1. ;;^UTILITY(U,$J,"PKG",207,4,8,1,1,0)
  1. ;;=NAME
  1. ;;^UTILITY(U,$J,"PKG",207,4,8,1,"B","NAME",1)
  1. ;;=
  1. ;;^UTILITY(U,$J,"PKG",207,4,8,222)
  1. ;;=n^n^^n^^^n^o^n
  1. ;;^UTILITY(U,$J,"PKG",207,4,9,0)
  1. ;;=358.8
  1. ;;^UTILITY(U,$J,"PKG",207,4,9,1,0)
  1. ;;=^9.45A^1^1
  1. ;;^UTILITY(U,$J,"PKG",207,4,9,1,1,0)
  1. ;;=NAME
  1. ;;^UTILITY(U,$J,"PKG",207,4,9,1,"B","NAME",1)
  1. ;;=
  1. ;;^UTILITY(U,$J,"PKG",207,4,9,222)
  1. ;;=n^n^^n^^^y^o^n
  1. ;;^UTILITY(U,$J,"PKG",207,4,10,0)
  1. ;;=358.91
  1. ;;^UTILITY(U,$J,"PKG",207,4,10,1,0)
  1. ;;=^9.45A^1^1
  1. ;;^UTILITY(U,$J,"PKG",207,4,10,1,1,0)
  1. ;;=NAME
  1. ;;^UTILITY(U,$J,"PKG",207,4,10,1,"B","NAME",1)
  1. ;;=
  1. ;;^UTILITY(U,$J,"PKG",207,4,10,222)
  1. ;;=n^n^^n^^^y^o^n
  1. ;;^UTILITY(U,$J,"PKG",207,4,11,0)
  1. ;;=358.94
  1. ;;^UTILITY(U,$J,"PKG",207,4,11,1,0)
  1. ;;=^9.45A^1^1
  1. ;;^UTILITY(U,$J,"PKG",207,4,11,1,1,0)
  1. ;;=NAME
  1. ;;^UTILITY(U,$J,"PKG",207,4,11,1,"B","NAME",1)
  1. ;;=
  1. ;;^UTILITY(U,$J,"PKG",207,4,11,222)
  1. ;;=n^y^^n^^^y^o^n
  1. ;;^UTILITY(U,$J,"PKG",207,4,12,0)
  1. ;;=358.93
  1. ;;^UTILITY(U,$J,"PKG",207,4,12,1,0)
  1. ;;=^9.45A^1^1
  1. ;;^UTILITY(U,$J,"PKG",207,4,12,1,1,0)
  1. ;;=NAME
  1. ;;^UTILITY(U,$J,"PKG",207,4,12,1,"B","NAME",1)
  1. ;;=
  1. ;;^UTILITY(U,$J,"PKG",207,4,12,222)
  1. ;;=n^n^^n^^^y^o^n
  1. ;;^UTILITY(U,$J,"PKG",207,4,13,0)
  1. ;;=358.99