APC6I006.m

APC6I006 ; ; 04-FEB-2003

 ;;2.0;IHS RPMS/PCC Data Entry;**6**;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,"DIE",1943,"DIAB",2,0,9000001,0)

 ;;=LOOKUP:VISIT:

 ;;^UTILITY(U,$J,"DIE",1943,"DR",1,9000001)

 ;;=S APCDPAT=DA D ^APCDVLK S:APCDLOOK APCDLOOK="`"_APCDLOOK;^9000010^AUPNVSIT(^^X DR(99,1,9.2) S Y(101)=$S($D(^AUPNVSIT(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0) S X=$S(D(0)>0:D(0),1:"");

 ;;^UTILITY(U,$J,"DIE",1943,"DR",2,9000010)

 ;;=1108;

 ;;^UTILITY(U,$J,"DIE",1943,"DR",99,1,9.2)

 ;;=X $P(^DD(9000001,9999,0),U,5,99) S Y(1)=X S I(0,0)=$S($D(D0):D0,1:"") S X=Y(1) K DIC S DIC="^AUPNVSIT(",DIC(0)="NMF" D ^DIC S (D,D0,D(0))=+Y

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

 ;;=PCC DATA ENTRY 2.0 PATCH 6^APC6^PCC DATA ENTRY 2.0 PATCH 6

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

 ;;=^9.44PA^^0

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

 ;;=^9.49I^1^1

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

 ;;=2.0^3030204

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

 ;;=

 ;;^UTILITY(U,$J,"PKG",206,"DEV")

 ;;=LAB/TUCSON

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

 ;;=^9.47^38^38

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

 ;;=APCD AL (AL)^9000010

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

 ;;=APCD AL (AL)^9000001

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

 ;;=APCD APPT (APPT)^9000001

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

 ;;=APCD APPT (APPT)^9000010

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

 ;;=APCD ECO2 (ECO2)^9000010

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

 ;;=APCD ECO2 (ECO2)^9000001

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

 ;;=APCD ECO3 (ECO3)^9000010

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

 ;;=APCD ECO3 (ECO3)^9000001

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

 ;;=APCD ECOD (ECOD)^9000010

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

 ;;=APCD ECOD (ECOD)^9000001

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

 ;;=APCD CC (CC)^9000010

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

 ;;=APCD CC (CC)^9000001

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

 ;;=APCD COC (COC)^9000010

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

 ;;=APCD COC (COC)^9000001

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

 ;;=APCD PCF (PCF)^9000001

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

 ;;=APCD PCF (PCF)^9000010

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

 ;;=APCD CIC (CIC)^9000010

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

 ;;=APCD CIC (CIC)^9000001

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

 ;;=APCD CKO (CKO)^9000001

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

 ;;=APCD CKO (CKO)^9000010

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

 ;;=APCD DRG (DRG)^9000010

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

 ;;=APCD DRG (DRG)^9000001

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

 ;;=APCD EM (EM)^9000010

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

 ;;=APCD EM (EM)^9000001

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

 ;;=APCD FL (FL)^9000010

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

 ;;=APCD FL (FL)^9000001

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

 ;;=APCD HL (HL)^9000010

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

 ;;=APCD HL (HL)^9000001

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

 ;;=APCD OLOC (OLOC)^9000010

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

 ;;=APCD OLOC (OLOC)^9000001

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

 ;;=APCD STG (STG)^9000010

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

 ;;=APCD STG (STG)^9000001

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

 ;;=APCD TA (TA)^9000010

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

 ;;=APCD TA (TA)^9000001

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

 ;;=APCD TM (TM)^9000010

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

 ;;=APCD TM (TM)^9000001

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

 ;;=APCD VST (VST)^9000010

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

 ;;=APCD VST (VST)^9000001

 ;;^UTILITY(U,$J,"PKG",206,"INIT")

 ;;=^