APC7I003.m

APC7I003 ; ; 29-OCT-2002

 ;;2.0;APC7;;OCT 29, 2002

 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

Q Q

 ;;^UTILITY(U,$J,"PKG",61,0)

 ;;=APC7^APC7^POST INIT TO PATCH 6

 ;;^UTILITY(U,$J,"PKG",61,4,0)

 ;;=^9.44PA^1^1

 ;;^UTILITY(U,$J,"PKG",61,4,1,0)

 ;;=9000010.09

 ;;^UTILITY(U,$J,"PKG",61,4,1,1,0)

 ;;=^9.45A^2^2

 ;;^UTILITY(U,$J,"PKG",61,4,1,1,1,0)

 ;;=ORDERING PROVIDER

 ;;^UTILITY(U,$J,"PKG",61,4,1,1,2,0)

 ;;=ENCOUNTER PROVIDER

 ;;^UTILITY(U,$J,"PKG",61,4,1,1,"B","ENCOUNTER PROVIDER",2)

 ;;=

 ;;^UTILITY(U,$J,"PKG",61,4,1,1,"B","ORDERING PROVIDER",1)

 ;;=

 ;;^UTILITY(U,$J,"PKG",61,4,1,222)

 ;;=y^n^^n^^^n

 ;;^UTILITY(U,$J,"PKG",61,4,"B",9000010.09,1)

 ;;=

 ;;^UTILITY(U,$J,"PKG",61,22,0)

 ;;=^9.49I^1^1

 ;;^UTILITY(U,$J,"PKG",61,22,1,0)

 ;;=2.0^3021029

 ;;^UTILITY(U,$J,"PKG",61,22,"B","2.0",1)

 ;;=

 ;;^UTILITY(U,$J,"SBF",9000010.09,9000010.09)

 ;;=