Global: ^AUPNVDLV

FileMan FileNo	FileMan Filename	Package
9000010.64	V DELIVERY	IHS Patient

Package	Total	Routines
Patient Care Component	2	APCDAUTL APCDEWHA

Package	Total	FileMan Files
IHS Patient	3	PATIENT(#9000001)[.02] V AMI(#9000010.62)[1208] VISIT(#9000010)[.03]
Scheduling	2	CLINIC STOP(#40.7)[1203] HOSPITAL LOCATION(#44)[1215]
Kernel	1	NEW PERSON(#200)[5.02, 1202, 1204, 1217, 1219]

Fields, Total: 27

Field #	Name	Loc	Type	Details
.01	LABOR ESTABLISHED	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X I $D(X),X>$$NOW^XLFDT K X` LAST EDITED: `MAY 17, 2018` HELP-PROMPT: `Enter the date/time that labor was established. Must not be a future date/time.` AUDIT: `YES, ALWAYS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000010.64^B` 1)= S ^AUPNVDLV("B",$E(X,1,30),DA)="" 2)= K ^AUPNVDLV("B",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.64^AV9^MUMPS` 1)= S:$D(APCDLOOK) DIC("DR")="" 2)= Q CROSS-REFERENCE: `9000010.64^AATOO^MUMPS` 1)= I $P(^AUPNVDLV(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVDLV("AA",$P(^AUPNVDLV(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVDLV(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVDLV(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVDLV("AA",$P(^AUPNVDLV(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVDLV(DA,0),U,3),0),".",1)),DA) This cross-reference is used for searches in sequence by patient, measurement type, inverted visit date, and internal entry number. "AA",PATIENT,TYPE,VISIT,DA
.02	PATIENT NAME	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `MAY 17, 2018` HELP-PROMPT: `Enter the patient name.` DESCRIPTION: Patient Name. UNEDITABLE CROSS-REFERENCE: `9000010.64^AC` 1)= S ^AUPNVDLV("AC",$E(X,1,30),DA)="" 2)= K ^AUPNVDLV("AC",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.64^AATOO2^MUMPS` 1)= I $P(^AUPNVDLV(DA,0),U,1)]"",$P(^(0),U,3)]"" S ^AUPNVDLV("AA",X,$P(^AUPNVDLV(DA,0),U,1),(9999999-$P(+^AUPNVSIT($P(^AUPNVDLV(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVDLV(DA,0),U,1)]"",$P(^(0),U,3)]"" K ^AUPNVDLV("AA",X,$P(^AUPNVDLV(DA,0),U,1),(9999999-$P(+^AUPNVSIT($P(^AUPNVDLV(DA,0),U,3),0),".",1)),DA)
.03	VISIT	0;3	POINTER TO VISIT FILE (#9000010)	**********************REQUIRED FIELD********************** VISIT(#9000010) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVDLV(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAY 17, 2018` HELP-PROMPT: `Enter the encounter from the Visit file. Always stuffed.` SCREEN: `S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVDLV(DA,0),U,2)"` EXPLANATION: `VISIT MUST BE FOR CURRENT PATIENT` UNEDITABLE NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000010.64^AD` 1)= S ^AUPNVDLV("AD",$E(X,1,30),DA)="" 2)= K ^AUPNVDLV("AD",$E(X,1,30),DA) This is used for programmed lookup by visit internal entry number. CROSS-REFERENCE: `9000010.64^AA^MUMPS` 1)= Q:$P(^AUPNVDLV(DA,0),U,2)="" S ^AUPNVDLV("AA",$P(^AUPNVDLV(DA,0),U,2),$P(^AUPNVDLV(DA,0),U,1),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)="" 2)= Q:$P(^AUPNVDLV(DA,0),U,2)="" K ^AUPNVDLV("AA",$P(^AUPNVDLV(DA,0),U,2),$P(^AUPNVDLV(DA,0),U,1),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA) This cross-reference is used for searches in sequence by patient, measurement type, inverted visit date, and internal entry number. "AA",PATIENT,TYPE,VISIT,DA CROSS-REFERENCE: `9000010.64^AV10^MUMPS` 1)= D ADD^AUPNVSIT 2)= D SUB^AUPNVSIT This cross-reference is used to add "1" to the Dependent Entry Count field (#.09) of the related Visit file (9000010) entry to indicate that there is a file (in this case measurement) pointing to the Visit. When the measurement entry is deleted, this cross-reference is used to subtract "1" from the Dependent Entry Count field (#.09) of the related Visit file (9000010) entry.
.04	LABOR ESTABLISHED SNOMED	0;4	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X I $D(X) D IN6404^AUPNVUTL` LAST EDITED: `MAY 21, 2018` HELP-PROMPT: `Answer with a SNOMED Concept ID from the EHR LABOR ESTABLISHED subset.` AUDIT: `YES, ALWAYS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.0419	LABOR ESTAB PREFERRED TERM		COMPUTED	MUMPS CODE: `S Y(9000010.64,.0419,1)=$S($D(^AUPNVDLV(D0,0)):^(0),1:"") S X=$P(Y(9000010.64,.0419,1),U,4),X=$$CONCPT^AUPNVUTL(X)` ALGORITHM: `AUPNPT(#.04)` LAST EDITED: `MAY 02, 2018`
.05	LABOR INDUCED?	0;5	SET	**********************REQUIRED FIELD********************** '1' FOR YES; '0' FOR NO; LAST EDITED: `MAY 17, 2018` AUDIT: `YES, ALWAYS`
.06	DATE/TIME LABOR INDUCTION INIT	0;6	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X I $D(X),X>$$NOW^XLFDT K X` LAST EDITED: `MAY 17, 2018` HELP-PROMPT: `Enter date/time labored induced. Must not be a date/time in the future.` AUDIT: `YES, ALWAYS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.07	LABOR INDUCTION SNOMED	0;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X I $D(X) D IN6407^AUPNVUTL` LAST EDITED: `MAY 21, 2018` HELP-PROMPT: `Enter a SNOMED CONCEPT ID from the EHR LABOR INDUCTION TYPE subset.` AUDIT: `YES, ALWAYS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.0719	LABOR INDUCTION PREFERRED TERM		COMPUTED	MUMPS CODE: `S Y(9000010.64,.0719,1)=$S($D(^AUPNVDLV(D0,0)):^(0),1:"") S X=$P(Y(9000010.64,.0719,1),U,7),X=$$CONCPT^AUPNVUTL(X)` ALGORITHM: `AUPNPT(#.07)` LAST EDITED: `MAY 02, 2018`
5.01	ENTERED IN ERROR?	5;1	SET	'1' FOR YES; LAST EDITED: `MAR 01, 2013`
5.02	ENTERED IN ERROR BY	5;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 01, 2013`
5.03	DATE/TIME ENTERED IN ERROR	5;3	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 01, 2013`
5.04	REASON ENTERED IN ERROR	5;4	SET	'1' FOR DUPLICATE; '2' FOR ENTERED IN ERROR; '3' FOR OTHER; LAST EDITED: `MAR 01, 2013`
5.05	REASON IF OTHER	5;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>100!($L(X)<1) X` LAST EDITED: `MAR 01, 2013` HELP-PROMPT: `Answer must be 1-100 characters in length.`
1100	NEWBORN	11;0	DATE Multiple #9000010.6411	9000010.6411
1201	EVENT DATE & TIME	12;1	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X I $D(X),$E(X,1,12)>$E($$NOW^XLFDT,1,12) K X` LAST EDITED: `JAN 27, 2011` HELP-PROMPT: `Enter the date and time` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000010.64^AB` 1)= S ^AUPNVDLV("AB",$E(X,1,30),DA)="" 2)= K ^AUPNVDLV("AB",$E(X,1,30),DA) This is in place of the "B" xref on the GMRV VITAL MEASUREMENT .01 field. CROSS-REFERENCE: `9000010.64^AE^MUMPS` 1)= Q:$P(^AUPNVDLV(DA,0),U,2)="" S ^AUPNVDLV("AE",$P(^AUPNVDLV(DA,0),U,2),$P(^AUPNVDLV(DA,0),U,1),9999999-X,DA)="" 2)= Q:$P(^AUPNVDLV(DA,0),U,2)="" K ^AUPNVDLV("AE",$P(^AUPNVDLV(DA,0),U,2),$P(^AUPNVDLV(DA,0),U,1),9999999-X,DA) Used for flowsheets. Cross-reference by patient,vitals type,date/time vitals take,ien of vital ent ry "AE",PATIENT,TYPE,DATE/TIME VITALS TAKEN,DA
1202	ORDERING PROVIDER	12;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 26, 1994` HELP-PROMPT: `Enter the provider.` SCREEN: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"` EXPLANATION: `Must be a Provider.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1203	CLINIC	12;3	POINTER TO CLINIC STOP FILE (#40.7)	CLINIC STOP(#40.7) LAST EDITED: `JUL 09, 1996`
1204	ENCOUNTER PROVIDER	12;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `SEP 01, 1995` HELP-PROMPT: `Enter the provider.`
1208	PARENT	12;8	POINTER TO V DELIVERY FILE (#9000010.62)	V AMI(#9000010.62) LAST EDITED: `MAY 19, 2016` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTPNT")
1209	EXTERNAL KEY	12;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `SEP 24, 1996` 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: `SEP 24, 1996` HELP-PROMPT: `Answer must be 1-30 characters in length.`
1215	ORDERING LOCATION	12;15	POINTER TO HOSPITAL LOCATION FILE (#44)	HOSPITAL LOCATION(#44) LAST EDITED: `FEB 19, 2008`
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` CROSS-REFERENCE: `^^TRIGGER^9000010.64^1217` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVDLV(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.64,1216,1,1,1.4) 1.4)= S DIH=$G(^AUPNVDLV(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.64,DIG=1217 D ^DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ DELETE VALUE)= NO EFFECT FIELD)= #1217 CROSS-REFERENCE: `^^TRIGGER^9000010.64^1218` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVDLV(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.64,1216,1,2,1.4) 1.4)= S DIH=$G(^AUPNVDLV(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.64,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 DELIVERY 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 DELIVERY File` CROSS-REFERENCE: `^^TRIGGER^9000010.64^1219` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVDLV(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.64,1218,1,1,1.4) 1.4)= S DIH=$G(^AUPNVDLV(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.64,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 DELIVERY File`

Customize PDF page

Package: IHS Patient

Global: ^AUPNVDLV

Information

Description

Directly Accessed By Routines, Total: 2

Pointer To FileMan Files, Total: 6

Fields, Total: 27