Global: ^AUPNVPTH

FileMan FileNo	FileMan Filename	Package
9000010.24	V PATHOLOGY	IHS Patient

Package	Total	Routines
Local Area Programs	1	AZAXDPM1
Third Party Billing	1	ABMDVCK3

Package	Total	FileMan Files
IHS Patient	1	V PATHOLOGY(#9000010.24)[1208]

Package	Total	FileMan Files
Lab Service	6	TOPOGRAPHY FIELD(#61)[.05] MORPHOLOGY FIELD(#61.1)[#9000010.2422(.01)] ETIOLOGY FIELD(#61.2)[#9000010.2423(.01)] FUNCTION FIELD(#61.3)[#9000010.2424(.01)] DISEASE FIELD(#61.4)[#9000010.2421(.01)] PROCEDURE FIELD(#61.5)[#9000010.2425(.01)]
IHS Patient	3	PATIENT(#9000001)[.02] V PATHOLOGY(#9000010.24)[1208] VISIT(#9000010)[.03]
Kernel	2	INSTITUTION(#4)[1701] NEW PERSON(#200)[1202, 1204, 1217, 1219]
Scheduling	2	CLINIC STOP(#40.7)[1203] HOSPITAL LOCATION(#44)[1215]
DRG Grouper	1	ICD DIAGNOSIS(#80)[1112, 1213]
IHS Changes To Lab	1	IHS LAB CPT CODE(#9009021)[1401]
Utility Tables	1	PROVIDER NARRATIVE(#9999999.27)[.04]

Fields, Total: 38

Field #	Name	Loc	Type	Details
.01	TYPE	0;1	SET	**********************REQUIRED FIELD********************** 'C' FOR CYTOLOGY; 'E' FOR ELECTRON MICROSCOPY; 'S' FOR SURGICAL PATHOLOGY; LAST EDITED: `JUN 07, 2001` DESCRIPTION: Type. CROSS-REFERENCE: `9000010.24^B` 1)= S ^AUPNVPTH("B",$E(X,1,30),DA)="" 2)= K ^AUPNVPTH("B",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.24^AV9^MUMPS` 1)= S:$D(APCDLOOK) DIC("DR")="" 2)= Q CROSS-REFERENCE: `9000010.24^AATOO^MUMPS` 1)= I $P(^AUPNVPTH(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVPTH("AA",$P(^AUPNVPTH(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVPTH(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVPTH(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVPTH("AA",$P(^AUPNVPTH(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVPTH(DA,0),U,3),0),".",1)),DA)
.019	SNOMED CODE		COMPUTED	MUMPS CODE: `X ^DD(9000010.24,.019,9.3) S X=$P(Y(9000010.24,.019,101),U,2) S D0=Y(9000010.24,.019,80) S D1=Y(9000010.24,.019,81)` 9.2 = S Y(9000010.24,.019,81)=$S($D(D1):D1,1:""),Y(9000010.24,.019,80)=$S($D(D0):D0,1:""),Y(9000010.24,.019,1)=$S($D(^AUPNVPTH(D0,22,D1,0)):^(0),1:"") 9.3 = X ^DD(9000010.24,.019,9.2) S D0=$P(Y(9000010.24,.019,1),U,1) S:'$D(^LAB(61.1,+D0,0)) D0=-1 S Y(9000010.24,.019,101)=$S($D(^LAB(61.1,D0,0)):^(0),1:"") ALGORITHM: `#.01:2`
.02	PATIENT NAME	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `APR 05, 1988` UNEDITABLE CROSS-REFERENCE: `9000010.24^AC` 1)= S ^AUPNVPTH("AC",$E(X,1,30),DA)="" 2)= K ^AUPNVPTH("AC",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.24^AATOO2^MUMPS` 1)= I $P(^AUPNVPTH(DA,0),U,3)]"" S ^AUPNVPTH("AA",X,+^AUPNVPTH(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVPTH(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVPTH(DA,0),U,3)]"" K ^AUPNVPTH("AA",X,+^AUPNVPTH(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVPTH(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(^AUPNVPTH(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 11, 1986` SCREEN: `S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVPTH(DA,0),U,2)"` EXPLANATION: `VISIT MUST BE FOR CURRENT PATIENT` UNEDITABLE CROSS-REFERENCE: `9000010.24^AD` 1)= S ^AUPNVPTH("AD",$E(X,1,30),DA)="" 2)= K ^AUPNVPTH("AD",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.24^AA^MUMPS` 1)= Q:$P(^AUPNVPTH(DA,0),U,2)="" S ^AUPNVPTH("AA",$P(^AUPNVPTH(DA,0),U,2),+^AUPNVPTH(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)="" 2)= Q:$P(^AUPNVPTH(DA,0),U,2)="" K ^AUPNVPTH("AA",$P(^AUPNVPTH(DA,0),U,2),+^AUPNVPTH(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA) CROSS-REFERENCE: `9000010.24^AV10^MUMPS` 1)= D ADD^AUPNVSIT 2)= D SUB^AUPNVSIT
.04	SPECIMEN	0;4	POINTER TO PROVIDER NARRATIVE FILE (#9999999.27)	PROVIDER NARRATIVE(#9999999.27) LAST EDITED: `JUN 07, 2001`
.05	ORGAN/TISSUE	0;5	POINTER TO TOPOGRAPHY FIELD FILE (#61)	TOPOGRAPHY FIELD(#61) LAST EDITED: `FEB 08, 1993`
.06	LR ACCESSION NO.	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>14!($L(X)<8) X` LAST EDITED: `FEB 08, 1993` HELP-PROMPT: `Answer must be 8-14 characters in length.`
1101	UNITS	11;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 03, 1996` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits`
1102	ORDER	11;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `OCT 03, 1996` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits`
1109	CURRENT STATUS FLAG	11;9	SET	'O' FOR ORDERED; 'A' FOR ACCESSIONED; 'R' FOR RESULTED; 'M' FOR MODIFIED; 'D' FOR DELETED; LAST EDITED: `OCT 03, 1996`
1110	LAB TEST COST	11;10	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<1) X` LAST EDITED: `OCT 03, 1996` HELP-PROMPT: `Type a Dollar Amount between 1 and 9999999, 2 Decimal Digits`
1111	BILLABLE ITEM	11;11	SET	'1' FOR YES; LAST EDITED: `OCT 03, 1996`
1112	ICD CODE	11;12	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `FEB 14, 2013`
1201	DATE&TIME SPECIMEN TAKEN	12;1	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 08, 1993`
1202	ORDERING PROVIDER	12;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 15, 1993`
1203	CLINIC	12;3	POINTER TO CLINIC STOP FILE (#40.7)	CLINIC STOP(#40.7) LAST EDITED: `APR 29, 1993`
1204	ENCOUNTER PROVIDER	12;4	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `DEC 15, 1993`
1208	PARENT	12;8	POINTER TO V PATHOLOGY FILE (#9000010.24)	V PATHOLOGY(#9000010.24) LAST EDITED: `OCT 03, 1996`
1209	EXTERNAL KEY	12;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `OCT 03, 1996` HELP-PROMPT: `Answer must be 1-20 characters in length.`
1210	OUTSIDE PROVIDER NAME	12;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `OCT 03, 1996` HELP-PROMPT: `Answer must be 1-30 characters in length.`
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.24^1217` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVPTH(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.24,1216,1,1,1.4) 1.4)= S DIH=$G(^AUPNVPTH(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.24,DIG=1217 D ^DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ DELETE VALUE)= NO EFFECT FIELD)= #1217 CROSS-REFERENCE: `^^TRIGGER^9000010.24^1218` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVPTH(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.24,1216,1,2,1.4) 1.4)= S DIH=$G(^AUPNVPTH(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.24,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 PATHOLOGY 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 PATHOLOGY File` CROSS-REFERENCE: `^^TRIGGER^9000010.24^1219` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVPTH(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.24,1218,1,1,1.4) 1.4)= S DIH=$G(^AUPNVPTH(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.24,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 PATHOLOGY File`
1401	CPT	14;1	POINTER TO IHS LAB CPT CODE FILE (#9009021)	IHS LAB CPT CODE(#9009021) LAST EDITED: `MAR 26, 2010`
1402	CPT - BILLABLE ITEMS	14;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `OCT 03, 1996` HELP-PROMPT: `Answer must be 1-240 characters in length.`
1601	PROVIDER NARRATIVE	16;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `FEB 14, 2013` HELP-PROMPT: `Answer must be 1-240 characters in length.`
1701	RELEASING SITE	17;1	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `MAR 25, 2013`
1702	SPECIMEN CONDITION	17;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `MAR 25, 2013` HELP-PROMPT: `Answer must be 1-80 characters in length.`
2101	DISEASE	21;0	POINTER Multiple #9000010.2421	9000010.2421
2201	MORPHOLOGY	22;0	POINTER Multiple #9000010.2422	9000010.2422
2301	ETIOLOGY	23;0	POINTER Multiple #9000010.2423	9000010.2423
2401	FUNCTION	24;0	POINTER Multiple #9000010.2424	9000010.2424
2501	PROCEDURE	25;0	POINTER Multiple #9000010.2425	9000010.2425
2601	SNOMED CT	26;0	Multiple #9000010.2426	9000010.2426
2701	LOINC CODES	27;0	Multiple #9000010.2427	9000010.2427

Customize PDF page

Package: IHS Patient

Global: ^AUPNVPTH

Information

Description

Directly Accessed By Routines, Total: 2

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 16

Fields, Total: 38