Global: ^AUPNVDXP

FileMan FileNo	FileMan Filename	Package
9000010.21	V DIAGNOSTIC PROCEDURE RESULT	IHS Patient

Package	Total	Routines
IHS Patient	4	AUPNPOST AUPNVDXP AUPNVDXQ AUPNVDXT
PCC Medical Query	3	AMQQMGR1 AMQQMULP AMQQMULT
Patient Care Component	3	APCD20P8 APCDDMU2 APCHS8A
IHS Support HL7 Interfaces	2	BHLOBRI BHLOBXI
Clinical Scheduling for Windows	1	BSDX41D
Diabetes Registry	1	BDMEDMU2
Health Summary Components	1	BHSEYEKG
Local Area Programs	1	AZAXDPM1
Utilities	1	AUP2POST

Package	Total	FileMan Files
IHS Patient	1	V DIAGNOSTIC PROCEDURE RESULT(#9000010.21)[.07, 1208]

Package	Total	FileMan Files
IHS Patient	3	PATIENT(#9000001)[.02] V DIAGNOSTIC PROCEDURE RESULT(#9000010.21)[.07, 1208] VISIT(#9000010)[.03]
Scheduling	2	CLINIC STOP(#40.7)[1203] HOSPITAL LOCATION(#44)[1215]
DRG Grouper	1	ICD DIAGNOSIS(#80)[1213]
Kernel	1	NEW PERSON(#200)[1202, 1204, 1217, 1219]
Utility Tables	1	DIAGNOSTIC PROCEDURE RESULT(#9999999.68)[.01]

Fields, Total: 20

Field #	Name	Loc	Type	Details
.01	TYPE	0;1	POINTER TO DIAGNOSTIC PROCEDURE RESULT FILE (#9999999.68)	**********************REQUIRED FIELD********************** DIAGNOSTIC PROCEDURE RESULT(#9999999.68) LAST EDITED: `JAN 07, 1992` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTDXR") CROSS-REFERENCE: `9000010.21^B` 1)= S ^AUPNVDXP("B",$E(X,1,30),DA)="" 2)= K ^AUPNVDXP("B",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.21^AV9^MUMPS` 1)= S:$D(APCDLOOK) DIC("DR")="" 2)= Q CROSS-REFERENCE: `9000010.21^AATOO^MUMPS` 1)= I $P(^AUPNVDXP(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVDXP("AA",$P(^AUPNVDXP(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVDXP(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVDXP(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVDXP("AA",$P(^AUPNVDXP(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVDXP(DA,0),U,3),0),".",1)),DA) CROSS-REFERENCE: `9000010.21^AE^MUMPS` 1)= S AUPNDXQF="S1" D ^AUPNVDXP 2)= S AUPNDXQF="K1" D ^AUPNVDXP CROSS-REFERENCE: `9000010.21^APTOO^MUMPS` 1)= N % S %=$P($G(^AUPNVDXP(DA,0)),U,7) I X,% S ^AUPNVDXP("AP",X,%,DA)="" 2)= N % S %=$P($G(^AUPNVDXP(DA,0)),U,7) I X,% K ^AUPNVDXP("AP",X,%,DA) CROSS-REFERENCE: `9000010.21^AQTOO^MUMPS` 1)= S AUPNDXQF="S1" D ^AUPNVDXP 2)= S AUPNDXQF="K1" D ^AUPNVDXP
.02	PATIENT NAME	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `APR 05, 1988` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDPAT") UNEDITABLE CROSS-REFERENCE: `9000010.21^AC` 1)= S ^AUPNVDXP("AC",$E(X,1,30),DA)="" 2)= K ^AUPNVDXP("AC",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.21^AATOO2^MUMPS` 1)= I $P(^AUPNVDXP(DA,0),U,1)]"",$P(^(0),U,3)]"" S ^AUPNVDXP("AA",X,$P(^AUPNVDXP(DA,0),U,1),(9999999-$P(+^AUPNVSIT($P(^AUPNVDXP(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVDXP(DA,0),U,1)]"",$P(^(0),U,3)]"" K ^AUPNVDXP("AA",X,$P(^AUPNVDXP(DA,0),U,1),(9999999-$P(+^AUPNVSIT($P(^AUPNVDXP(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(^AUPNVDXP(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAR 09, 1988` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDVSIT") SCREEN: `S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVDXP(DA,0),U,2)"` EXPLANATION: `VISIT MUST BE FOR CURRENT PATIENT` UNEDITABLE NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000010.21^AD` 1)= S ^AUPNVDXP("AD",$E(X,1,30),DA)="" 2)= K ^AUPNVDXP("AD",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.21^AA^MUMPS` 1)= Q:$P(^AUPNVDXP(DA,0),U,2)="" S ^AUPNVDXP("AA",$P(^AUPNVDXP(DA,0),U,2),$P(^AUPNVDXP(DA,0),U,1),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)="" 2)= Q:$P(^AUPNVDXP(DA,0),U,2)="" K ^AUPNVDXP("AA",$P(^AUPNVDXP(DA,0),U,2),$P(^AUPNVDXP(DA,0),U,1),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA) CROSS-REFERENCE: `9000010.21^AV10^MUMPS` 1)= D ADD^AUPNVSIT 2)= D SUB^AUPNVSIT
.04	VALUE	0;4	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>100!($L(X)<1) X D:$D(X) ^AUPNVDXP` OUTPUT TRANSFORM: `D ^AUPNVDXT` LAST EDITED: `OCT 04, 1994` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTRQ") EXECUTABLE HELP: `D HELP^AUPNVDXP` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `^^TRIGGER^9000010.21^.05` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVDXP(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S AUPNDXTF=0 D ^AUPNVDXP X ^DD(9000010.21,.04,1,1,1.4) 1.4)= S DIH=$S($D(^AUPNVDXP(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=9000010.21,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVDXP(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(9000010.21,.04,1,1,2.4) 2.4)= S DIH=$S($D(^AUPNVDXP(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=9000010.21,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= S AUPNDXTF=0 D ^AUPNVDXP DELETE VALUE)= @ FIELD)= #.05 CROSS-REFERENCE: `9000010.21^AQ^MUMPS` 1)= S AUPNDXQF="S" D ^AUPNVDXP 2)= S AUPNDXQF="K" D ^AUPNVDXP
.05	ABNORMAL	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` LAST EDITED: `OCT 26, 1991` HELP-PROMPT: `Answer must be 1-3 characters in length.` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTABN") WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the VALUE field of the V DIAGNOSTIC PROCEDURE RESULT File` TRIGGERED by the PARAMS field of the V DIAGNOSTIC PROCEDURE RESULT File
.06	PARAMS	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<1) X` LAST EDITED: `NOV 06, 1998` HELP-PROMPT: `Answer must be 1-60 characters in length.` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTPAR") CROSS-REFERENCE: `^^TRIGGER^9000010.21^.05` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVDXP(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S AUPNDXTF=1 D ^AUPNVDXP X ^DD(9000010.21,.06,1,1,1.4) 1.4)= S DIH=$S($D(^AUPNVDXP(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=9000010.21,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVDXP(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(9000010.21,.06,1,1,2.4) 2.4)= S DIH=$S($D(^AUPNVDXP(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=9000010.21,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= S AUPNDXTF=1 D ^AUPNVDXP DELETE VALUE)= @ FIELD)= #.05
.07	*PARENT	0;7	POINTER TO V DIAGNOSTIC PROCEDURE RESULT FILE (#9000010.21)	V DIAGNOSTIC PROCEDURE RESULT(#9000010.21) LAST EDITED: `SEP 25, 1996` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTPNT") CROSS-REFERENCE: `9000010.21^AP^MUMPS` 1)= N % S %=+$G(^AUPNVDXP(DA,0)) I X,% S ^AUPNVDXP("AP",%,X,DA)="" 2)= N % S %=+$G(^AUPNVDXP(DA,0)) I X,% K ^AUPNVDXP("AP",%,X,DA) Index to find non-value attribute given the parent
1201	EVENT DATE&TIME	12;1	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 29, 1993` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTCDT")
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($G(^VA(200,+Y,0)),U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 15, 1993` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTPRV") SCREEN: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y))"` EXPLANATION: `Must be a provider.`
1203	CLINIC	12;3	POINTER TO CLINIC STOP FILE (#40.7)	CLINIC STOP(#40.7) LAST EDITED: `APR 29, 1993` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTCLN")
1204	ENCOUNTER PROVIDER	12;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 15, 1993` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTEPR") SCREEN: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y))"` EXPLANATION: `Must be a provider.`
1208	PARENT	12;8	POINTER TO V DIAGNOSTIC PROCEDURE RESULT FILE (#9000010.21)	V DIAGNOSTIC PROCEDURE RESULT(#9000010.21) LAST EDITED: `SEP 25, 1996` 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 25, 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 25, 1996` HELP-PROMPT: `Answer must be 1-30 characters in length.` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTOPR")
1213	ANCILLARY POV	12;13	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `SEP 19, 2003`
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.21^1217` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVDXP(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.21,1216,1,1,1.4) 1.4)= S DIH=$G(^AUPNVDXP(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.21,DIG=1217 D ^DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ DELETE VALUE)= NO EFFECT FIELD)= #1217 CROSS-REFERENCE: `^^TRIGGER^9000010.21^1218` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVDXP(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.21,1216,1,2,1.4) 1.4)= S DIH=$G(^AUPNVDXP(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.21,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 DIAGNOSTIC PROCEDURE RESULT 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 DIAGNOSTIC PROCEDURE RESULT File` CROSS-REFERENCE: `^^TRIGGER^9000010.21^1219` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVDXP(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.21,1218,1,1,1.4) 1.4)= S DIH=$G(^AUPNVDXP(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.21,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 DIAGNOSTIC PROCEDURE RESULT File`

Customize PDF page

Package: IHS Patient

Global: ^AUPNVDXP

Information

Description

Directly Accessed By Routines, Total: 17

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 8

Fields, Total: 20