APC5I003.m

APC5I003 ; ; 09-JUL-2002

 ;;2.0;IHS RPMS/PCC Data Entry;**5**;MAR 09, 1999

 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",326,0)

 ;;=APC5 - PCC DATA ENTRY V2.0 P5^APC5^APC5 - DATA ENTRY PATCH 5

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

 ;;=^9.49I^1^1

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

 ;;=1.0^3020709^3010327

 ;;^UTILITY(U,$J,"PKG",326,22,"B","1.0",1)

 ;;=

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

 ;;=^9.47^12^12

 ;;^UTILITY(U,$J,"PKG",326,"DIE",1,0)

 ;;=APCD ECO2 (ECO2)^9000010

 ;;^UTILITY(U,$J,"PKG",326,"DIE",2,0)

 ;;=APCD ECO2 (ECO2)^9000001

 ;;^UTILITY(U,$J,"PKG",326,"DIE",3,0)

 ;;=APCD ECO3 (ECO3)^9000010

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

 ;;=APCD ECO3 (ECO3)^9000001

 ;;^UTILITY(U,$J,"PKG",326,"DIE",5,0)

 ;;=APCD ECOD (ECOD)^9000010

 ;;^UTILITY(U,$J,"PKG",326,"DIE",6,0)

 ;;=APCD ECOD (ECOD)^9000001

 ;;^UTILITY(U,$J,"PKG",326,"DIE",7,0)

 ;;=APCD CC (CC)^9000010

 ;;^UTILITY(U,$J,"PKG",326,"DIE",8,0)

 ;;=APCD CC (CC)^9000001

 ;;^UTILITY(U,$J,"PKG",326,"DIE",9,0)

 ;;=APCD COC (COC)^9000010

 ;;^UTILITY(U,$J,"PKG",326,"DIE",10,0)

 ;;=APCD COC (COC)^9000001

 ;;^UTILITY(U,$J,"PKG",326,"DIE",11,0)

 ;;=APCD PCF (PCF)^9000001

 ;;^UTILITY(U,$J,"PKG",326,"DIE",12,0)

 ;;=APCD PCF (PCF)^9000010