Global: ^AUPNVRUP

FileMan FileNo	FileMan Filename	Package
9000010.54	V UPDATED/REVIEWED	IHS Patient

Package	Total	Routines
Patient Care Component Table Maintiance	14	APCM11E2 APCM13E2 APCM14E2 APCM14E5 APCM14E6 APCM24E2 APCM24E5 APCM24E6 APCM24E7 APCM25E2 APCM25E5 APCM25E6 APCM25E7 APCM2AE2
Patient Care Component	10	APCDAALG APCDAMED APCDAPRB APCDEWHA APCDPL1 APCDSWU APCDVDSB APCDVDSG APCDVDSP BJPC2PMU
GUI Objects	2	BGOVUPD BGOVUPD2
Patient Care Component Reports	2	APCLAPI6 APCLAPI7

Package	Total	Routines
Patient Care Component Table Maintiance	6	APCM14E5 APCM14E6 APCM24E6 APCM24E7 APCM25E6 APCM25E7
GUI Objects	2	BGOVUPD BGOVUPD2
iCare	2	BQIMUVFL BQIRPL
Patient Care Component	1	APCDSWU

Package	Total	FileMan Files
IHS Patient	1	V UPDATED/REVIEWED(#9000010.54)[1208]

Package	Total	FileMan Files
IHS Patient	3	PATIENT(#9000001)[.02] V UPDATED/REVIEWED(#9000010.54)[1208] VISIT(#9000010)[.03]
Scheduling	2	CLINIC STOP(#40.7)[1203] HOSPITAL LOCATION(#44)[1215]
Kernel	1	NEW PERSON(#200)[1.02, 2.02, 1202, 1204, 1217, 1219]
Utility Tables	1	CLINICAL REVIEW ACTION(#9999999.101)[.01]

Fields, Total: 23

Field #	Name	Loc	Type	Details
.01	CLINICAL ACTION	0;1	POINTER TO CLINICAL REVIEW ACTION FILE (#9999999.101)	**********************REQUIRED FIELD********************** CLINICAL REVIEW ACTION(#9999999.101) LAST EDITED: `APR 11, 2013` UNEDITABLE CROSS-REFERENCE: `9000010.54^B` 1)= S ^AUPNVRUP("B",$E(X,1,30),DA)="" 2)= K ^AUPNVRUP("B",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.54^AZ9^MUMPS` 1)= S:$D(APCDLOOK) DIC("DR")="" 2)= Q CROSS-REFERENCE: `^^TRIGGER^9000010.54^1.01` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVRUP(D0,1)):^(1),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=$$NOW^XLFDT X ^DD(9000010.54,.01,1,3,1.4) 1.4)= S DIH=$G(^AUPNVRUP(DIV(0),1)),DIV=X S $P(^(1),U,1)=DIV,DIH=9000010.54,DIG=1.01 D ^DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=$$NOW^XLFDT DELETE VALUE)= NO EFFECT FIELD)= #1.01 CROSS-REFERENCE: `^^TRIGGER^9000010.54^1.02` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVRUP(D0,1)):^(1),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=DUZ S DIH=$G(^AUPNVRUP(DIV(0),1)),DIV=X S $P(^(1),U,2)=DIV,DIH=9000010.54,DIG=1.02 D ^ DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ DELETE VALUE)= NO EFFECT FIELD)= #1.02 CROSS-REFERENCE: `9000010.54^AA^MUMPS` 1)= I $P($G(^AUPNVRUP(DA,12)),U,1),$P(^AUPNVRUP(DA,0),U,2) NEW % S %=$P(^AUPNVRUP(DA,12),U,1) S ^AUPNVRUP("AA",$P(^AUPNVRUP(DA,0),U,2),X,(9999999-$P(%,"."))_$S($P(%,".",2):"."_$P(%,".",2),1:""),DA)="" 2)= I $P($G(^AUPNVRUP(DA,12)),U,1),$P(^AUPNVRUP(DA,0),U,2) NEW % S %=$P(^AUPNVRUP(DA,12),U,1) K ^AUPNVRUP("AA",$P(^AUPNVRUP(DA,0),U,2),X,(9999999-$P(%,"."))_$S($P(%,".",2):"."_$P(%,".",2),1:""),DA) CROSS-REFERENCE: `9000010.54^AE^MUMPS` 1)= I $P($G(^AUPNVRUP(DA,12)),U,1),$P(^AUPNVRUP(DA,0),U,2) NEW % S %=$P(^AUPNVRUP(DA,12),U,1) S ^AUPNVRUP("AE",$P(^AUPNVRUP(DA,0),U,2),(9999999-$P(%,"."))_$S($P(%,".",2):"."_$P(%,".",2),1:""),X,DA)="" 2)= I $P($G(^AUPNVRUP(DA,12)),U,1),$P(^AUPNVRUP(DA,0),U,2) NEW % S %=$P(^AUPNVRUP(DA,12),U,1) K ^AUPNVRUP("AE",$P(^AUPNVRUP(DA,0),U,2),(9999999=$P(%,".",2))_$P(%,".",2),X,DA) This is a xref by patient, event date/time, action. It can be used to get all actions for 1 patient in order by latest first. RECORD INDEXES: `AMAP (#497)`
.02	PATIENT NAME	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `JUN 16, 2010` CROSS-REFERENCE: `9000010.54^AC` 1)= S ^AUPNVRUP("AC",$E(X,1,30),DA)="" 2)= K ^AUPNVRUP("AC",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.54^AATOO^MUMPS` 1)= I $P($G(^AUPNVRUP(DA,12)),U,1) NEW % S %=$P(^AUPNVRUP(DA,12),U,1) S ^AUPNVRUP("AA",X,+^AUPNVRUP(DA,0),(9999999-$P(%,"."))_$S($P(%,".",2):"."_$P(%,".",2),1:""),DA)="" 2)= I $P($G(^AUPNVRUP(DA,12)),U,1) NEW % S %=$P(^AUPNVRUP(DA,12),U,1) K ^AUPNVRUP("AA",X,+^AUPNVRUP(DA,0),(9999999-$P(%,"."))_$S($P(%,".",2):"."_$P(%,".",2),1:""),DA) CROSS-REFERENCE: `9000010.54^AETOO^MUMPS` 1)= I $P($G(^AUPNVRUP(DA,12)),U,1) NEW % S %=$P(^AUPNVRUP(DA,12),U,1) S ^AUPNVRUP("AE",X,(9999999-$P(%,".",1))_$S($P(%,".",2):"."_$P(%,".",2),1:""),+^AUPNVRUP(DA,0),DA)="" 2)= I $P($G(^AUPNVRUP(DA,12)),U,1) NEW % S %=$P(^AUPNVRUP(DA,12),U) K ^AUPNVRUP("AE",X,(9999999-$P(%,"."))_$S($P(%,".",2):"."_$P(%,".",2),1:""),+^AUPNVRUP(DA,0),DA)
.03	VISIT	0;3	POINTER TO VISIT FILE (#9000010)	**********************REQUIRED FIELD********************** VISIT(#9000010) LAST EDITED: `JUN 16, 2010` CROSS-REFERENCE: `9000010.54^AD` 1)= S ^AUPNVRUP("AD",$E(X,1,30),DA)="" 2)= K ^AUPNVRUP("AD",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.54^AZ10^MUMPS` 1)= D ADD^AUPNVSIT 2)= D SUB^AUPNVSIT
1.01	DATE/TIME ENTERED	1;1	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 25, 2012` NOTES: `TRIGGERED by the CLINICAL ACTION field of the V UPDATED/REVIEWED File` CROSS-REFERENCE: `^^TRIGGER^9000010.54^1216` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVRUP(D0,12)):^(12),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=$$NOW^XLFDT X ^DD(9000010.54,1.01,1,1,1.4) 1.4)= S DIH=$G(^AUPNVRUP(DIV(0),12)),DIV=X S $P(^(12),U,16)=DIV,DIH=9000010.54,DIG=1216 D ^DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=$$NOW^XLFDT DELETE VALUE)= NO EFFECT FIELD)= #1216
1.02	ENTERED BY	1;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 10, 2010` NOTES: `TRIGGERED by the CLINICAL ACTION field of the V UPDATED/REVIEWED File`
2.01	DELETED/ENTERED IN ERROR	2;1	SET	'1' FOR YES; LAST EDITED: `JUN 15, 2010`
2.02	DELETED/ENTERED IN ERROR BY	2;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 15, 2010`
2.03	REASON DELETED	2;3	SET	'D' FOR DUPLICATE; 'E' FOR ENTERED IN ERROR; 'O' FOR OTHER; LAST EDITED: `JUN 15, 2010`
2.04	REASON IF OTHER	2;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<2) X` LAST EDITED: `JUN 15, 2010` HELP-PROMPT: `Answer must be 2-30 characters in length.`
1201	EVENT DATE AND TIME	12;1	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 10, 2010` HELP-PROMPT: `Enter the date and time the measurement was taken.` DESCRIPTION: Date and time that the assessment was made. May be different than visit timestamp. Date must be precise. Must be within 30 days before or after visit date, but not a future date. TECHNICAL DESCR: Refer to V MEASUREMENT CROSS-REFERENCE: `9000010.54^AATOOO^MUMPS` 1)= I $P(^AUPNVRUP(DA,0),U,2),+^AUPNVRUP(DA,0) S ^AUPNVRUP("AA",$P(^AUPNVRUP(DA,0),U,2),+^AUPNVRUP(DA,0),(9999999-$P(X,"."))_$S($P(X,".",2):"."_$P(X,".",2),1:""),DA)="" 2)= I $P(^AUPNVRUP(DA,0),U,2),+^AUPNVRUP(DA,0) K ^AUPNVRUP("AA",$P(^AUPNVRUP(DA,0),U,2),+^AUPNVRUP(DA,0),(9999999-$P(X,"."))_$S($P(X,".",2):"."_$P(X,".",2),1:""),DA) CROSS-REFERENCE: `9000010.54^AETOOO^MUMPS` 1)= I $P(^AUPNVRUP(DA,0),U,2),+^AUPNVRUP(DA,0) S ^AUPNVRUP("AE",$P(^AUPNVRUP(DA,0),U,2),(9999999-$P(X,"."))_$S($P(X,".",2):"."_$P(X,".",2),1:""),+^AUPNVRUP(DA,0),DA)="" 2)= I $P(^AUPNVRUP(DA,0),U,2),+^AUPNVRUP(DA,0) K ^AUPNVRUP("AE",$P(^AUPNVRUP(DA,0),U,2),(9999999-$P(X,"."))_$S($P(X,".",2):"."_$P(X,".",2),1:""),+^AUPNVRUP(DA,0),DA)
1202	ORDERING PROVIDER	12;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `APR 15, 2010` HELP-PROMPT: `Enter the provider who ordered the assessment` DESCRIPTION: Provider who ordered the assessment
1203	CLINIC	12;3	POINTER TO CLINIC STOP FILE (#40.7)	CLINIC STOP(#40.7) LAST EDITED: `APR 15, 2010`
1204	ENCOUNTER PROVIDER	12;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `JUN 10, 2010` HELP-PROMPT: `Enter the provider that made the assessment` DESCRIPTION: Provider that made the assessment TECHNICAL DESCR: Refer to technical description of field 1204 in V MEASUREMENT
1208	PARENT ASSESSMENT	12;8	POINTER TO V UPDATED/REVIEWED FILE (#9000010.54)	V UPDATED/REVIEWED(#9000010.54) LAST EDITED: `APR 15, 2010`
1209	EXTERNAL KEY	12;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `APR 15, 2010` HELP-PROMPT: `Answer must be 1-20 characters in length.` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTEXK")
1210	OUTSIDE PROVIDER NAME	12;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `APR 15, 2010` HELP-PROMPT: `Answer must be 1-30 characters in length.` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTOPR")
1215	ORDERING LOCATION	12;15	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `APR 15, 2010`
1216	DATE/TIME ENTERED	12;16	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 23, 2012` NOTES: `TRIGGERED by the DATE/TIME ENTERED field of the V UPDATED/REVIEWED File` CROSS-REFERENCE: `^^TRIGGER^9000010.54^1217` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVRUP(D0,12)):^(12),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=DUZ X ^DD(9000010.54,1216,1,1,1.4) 1.4)= S DIH=$G(^AUPNVRUP(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.54,DIG=1217 D ^DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ DELETE VALUE)= NO EFFECT FIELD)= #1217 CROSS-REFERENCE: `^^TRIGGER^9000010.54^1218` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVRUP(D0,12)):^(12),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=$$NOW^XLFDT X ^DD(9000010.54,1216,1,2,1.4) 1.4)= S DIH=$G(^AUPNVRUP(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.54,DIG=1218 D ^DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=$$NOW^XLFDT DELETE VALUE)= NO EFFECT FIELD)= #1218
1217	ENTERED BY	12;17	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 01, 2012` NOTES: `TRIGGERED by the DATE/TIME ENTERED field of the V UPDATED/REVIEWED File`
1218	DATE/TIME LAST MODIFIED	12;18	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 23, 2012` NOTES: `TRIGGERED by the DATE/TIME ENTERED field of the V UPDATED/REVIEWED File` CROSS-REFERENCE: `^^TRIGGER^9000010.54^1219` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVRUP(D0,12)):^(12),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=DUZ X ^DD(9000010.54,1218,1,1,1.4) 1.4)= S DIH=$G(^AUPNVRUP(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.54,DIG=1219 D ^DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ DELETE VALUE)= NO EFFECT FIELD)= #1219
1219	LAST MODIFIED BY	12;19	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 01, 2012` NOTES: `TRIGGERED by the DATE/TIME LAST MODIFIED field of the V UPDATED/REVIEWED File`
2601	SNOMED CT	26;0	Multiple #9000010.5426	9000010.5426 LAST EDITED: `MAY 07, 2013`
2701	LOINC CODES	27;0	Multiple #9000010.5427	9000010.5427

Customize PDF page

Package: IHS Patient

Global: ^AUPNVRUP

Information

Description

Directly Accessed By Routines, Total: 30

Accessed By FileMan Db Calls, Total: 11

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 7

Fields, Total: 23