Global: ^AUPNVLAB

FileMan FileNo	FileMan Filename	Package
9000010.09	V LAB	IHS Patient

Package	Total	Routines
IHS GPRA Information System	371	BGP0ALG1 BGP0C31 BGP0C3X BGP0CU BGP0CU3 BGP0D1 BGP0D10 BGP0D2 BGP0D21 BGP0D211 BGP0D21A BGP0D22 BGP0D23 BGP0D3 BGP0D53 BGP0D61 BGP0D62 BGP0D63 BGP0D64 BGP0D72 BGP0D722 BGP0D73 BGP0D8 BGP0D82 BGP0D83 BGP0D84 BGP0D861 BGP0D862 BGP0D864 BGP0DHE1 BGP0DHE2 BGP0EL2 BGP0EO1 BGP1ALG1 BGP1C31 BGP1C3X BGP1CU BGP1CU3 BGP1D1 BGP1D10 BGP1D2 BGP1D21 BGP1D211 BGP1D21A BGP1D22 BGP1D23 BGP1D3 BGP1D53 BGP1D61 BGP1D62 BGP1D63 BGP1D64 BGP1D72 BGP1D722 BGP1D723 BGP1D73 BGP1D8 BGP1D82 BGP1D83 BGP1D84 BGP1D861 BGP1D862 BGP1D864 BGP1D88 BGP1DHE1 BGP1DHE2 BGP1EL2 BGP1EO1 BGP2ALG1 BGP2C31 BGP2C3X BGP2CU BGP2CU3 BGP2D1 BGP2D10 BGP2D2 BGP2D21 BGP2D211 BGP2D22 BGP2D23 BGP2D231 BGP2D3 BGP2D53 BGP2D61 BGP2D62 BGP2D63 BGP2D64 BGP2D72 BGP2D722 BGP2D723 BGP2D73 BGP2D8 BGP2D811 BGP2D82 BGP2D83 BGP2D84 BGP2D861 BGP2D862 BGP2D864 BGP2D88 BGP2DHE1 BGP2DHE2 BGP2EL2 BGP2EO1 BGP3ALG1 BGP3C31 BGP3C3X BGP3CU BGP3CU3 BGP3D1 BGP3D10 BGP3D2 BGP3D21 BGP3D211 BGP3D22 BGP3D23 BGP3D231 BGP3D3 BGP3D53 BGP3D61 BGP3D62 BGP3D63 BGP3D64 BGP3D72 BGP3D722 BGP3D723 BGP3D73 BGP3D8 BGP3D811 BGP3D812 BGP3D82 BGP3D83 BGP3D84 BGP3D861 BGP3D862 BGP3D864 BGP3D88 BGP3D91 BGP3EL2 BGP4ALG1 BGP4ALG2 BGP4CU BGP4D1 BGP4D10 BGP4D2 BGP4D21 BGP4D211 BGP4D22 BGP4D23 BGP4D231 BGP4D3 BGP4D53 BGP4D61 BGP4D62 BGP4D63 BGP4D64 BGP4D72 BGP4D722 BGP4D723 BGP4D73 BGP4D8 BGP4D811 BGP4D812 BGP4D82 BGP4D83 BGP4D84 BGP4D861 BGP4D862 BGP4D864 BGP4D88 BGP4D91 BGP4EL2 BGP5ALG1 BGP5ALG2 BGP5C3 BGP5CU BGP5D1 BGP5D10 BGP5D2 BGP5D21 BGP5D211 BGP5D22 BGP5D23 BGP5D231 BGP5D3 BGP5D53 BGP5D61 BGP5D62 BGP5D63 BGP5D64 BGP5D72 BGP5D722 BGP5D723 BGP5D73 BGP5D8 BGP5D811 BGP5D812 BGP5D82 BGP5D83 BGP5D84 BGP5D861 BGP5D862 BGP5D864 BGP5D88 BGP5D91 BGP5DHE1 BGP5EL2 BGP6ALG1 BGP6ALG2 BGP6C3 BGP6C31 BGP6CU BGP6D1 BGP6D10 BGP6D2 BGP6D21 BGP6D211 BGP6D212 BGP6D22 BGP6D23 BGP6D231 BGP6D3 BGP6D53 BGP6D61 BGP6D62 BGP6D63 BGP6D64 BGP6D72 BGP6D722 BGP6D723 BGP6D73 BGP6D8 BGP6D811 BGP6D812 BGP6D82 BGP6D83 BGP6D84 BGP6D841 BGP6D861 BGP6D862 BGP6D864 BGP6D88 BGP6D91 BGP6DHE1 BGP6EL2 BGP7ALG1 BGP7ALG2 BGP7C3 BGP7C31 BGP7D1 BGP7D10 BGP7D2 BGP7D21 BGP7D211 BGP7D212 BGP7D213 BGP7D22 BGP7D23 BGP7D231 BGP7D3 BGP7D53 BGP7D61 BGP7D62 BGP7D63 BGP7D64 BGP7D72 BGP7D722 BGP7D723 BGP7D73 BGP7D8 BGP7D811 BGP7D812 BGP7D82 BGP7D83 BGP7D84 BGP7D841 BGP7D861 BGP7D864 BGP7D88 BGP7DHE2 BGP7EL2 BGP8ALG1 BGP8ALG2 BGP8C31 BGP8C3X BGP8CU3 BGP8D1 BGP8D10 BGP8D2 BGP8D21 BGP8D211 BGP8D212 BGP8D213 BGP8D22 BGP8D23 BGP8D3 BGP8D31 BGP8D53 BGP8D61 BGP8D62 BGP8D63 BGP8D72 BGP8D722 BGP8D723 BGP8D73 BGP8D8 BGP8D811 BGP8D812 BGP8D82 BGP8D83 BGP8D84 BGP8D841 BGP8D861 BGP8D864 BGP8D88 BGP8DHE1 BGP8DHE2 BGP8EL2 BGP8EO1 BGP8PC10 BGP8PC2 BGP8PC62 BGP8PC64 BGP8PC65 BGP8PC67 BGP8PC69 BGP8PC8 BGP9ALG1 BGP9C31 BGP9C3X BGP9CU BGP9CU3 BGP9D1 BGP9D10 BGP9D2 BGP9D21 BGP9D211 BGP9D21A BGP9D22 BGP9D23 BGP9D3 BGP9D53 BGP9D61 BGP9D72 BGP9D722 BGP9D73 BGP9D8 BGP9D82 BGP9D83 BGP9D84 BGP9D861 BGP9D862 BGP9D864 BGP9DHE1 BGP9DHE2 BGP9EL2 BGP9EO1 BGPD2 BGPD4 BGPD5 BGPMUA02 BGPMUA04 BGPMUA08 BGPMUA09 BGPMUA11 BGPMUD04 BGPMUD05 BGPMUF05 BGPMUG07 BGPMUH07 BGPMUUT2
Diabetes Registry	100	BDMAPIU BDMD012 BDMD018 BDMD01C BDMD01D BDMD01H BDMD112 BDMD118 BDMD11C BDMD11D BDMD11H BDMD202 BDMD208 BDMD212 BDMD218 BDMD312 BDMD318 BDMD412 BDMD418 BDMD41C BDMD41D BDMD41H BDMD512 BDMD51C BDMD612 BDMD61C BDMD712 BDMD71C BDMD812 BDMD81C BDMD81D BDMD912 BDMD91C BDMD91D BDMD91H BDMD998 BDMDA12 BDMDA18 BDMDA1C BDMDA1D BDMDA1H BDMDB12 BDMDB18 BDMDB1C BDMDB1D BDMDB1H BDMDC12 BDMDC16 BDMDC18 BDMDC1C BDMDC1D BDMDC1H BDMDD12 BDMDD16 BDMDD18 BDMDD1C BDMDD1D BDMDD1H BDMDE12 BDMDE16 BDMDE18 BDMDE1C BDMDE1D BDMDE1H BDMDF12 BDMDF16 BDMDF18 BDMDF1C BDMDF1D BDMDF1H BDMDG12 BDMDG16 BDMDG18 BDMDG1C BDMDG1D BDMDG1H BDMDM7 BDMEDMU2 BDMGUA BDMLLMR BDMP012 BDMP112 BDMP412 BDMP512 BDMP612 BDMP712 BDMP812 BDMP912 BDMPA12 BDMPB12 BDMPC12 BDMPD12 BDMPE12 BDMPF12 BDMPG12 BDMS9B2 BDMS9B4 BDMSMU BDMVRL41 BDMVRL42
IHS Uniform Data System	55	BUD0RP6D BUD0RP7C BUD0RPC1 BUD1RP6D BUD1RP7C BUD1RPC1 BUD2RP6D BUD2RP6N BUD2RP6O BUD2RP7C BUD2RPC1 BUD4RPC1 BUD5RPC1 BUD6RPC1 BUD7RPC1 BUD8RP6D BUD8RP7C BUD8RPC1 BUD9RP6D BUD9RP7C BUD9RPC1 BUDARP6D BUDARP6N BUDARP6O BUDARP7C BUDARPC1 BUDBRP6D BUDBRP6N BUDBRP6O BUDBRP7C BUDBRPC1 BUDCRP6D BUDCRP6N BUDCRP6O BUDCRP7C BUDCRPC1 BUDDRP6D BUDDRP6N BUDDRP6O BUDDRP7C BUDDRPC1 BUDERP6D BUDERP6M BUDERP6N BUDERP6O BUDERP7C BUDERPC1 BUDHRP6D BUDHRP6M BUDHRP6N BUDHRP6O BUDHRP7C BUDHRPC1 BUDHUTL2 BUDRPTC1
Patient Care Component Reports	26	APCLAPIU APCLCAR2 APCLD202 APCLD208 APCLD212 APCLD218 APCLD312 APCLD318 APCLD512 APCLD51C APCLD612 APCLD61C APCLD712 APCLD71C APCLD812 APCLD81C APCLD81D APCLD998 APCLDM7 APCLP512 APCLP612 APCLP712 APCLP812 APCLV2 APCLVLP APCLVLU1
Patient Care Component	24	APCD206F APCDALVR APCDDLAB APCDDMU2 APCDDPAP APCDEGPP APCDKLV APCDT60 APCDT601 APCHPMH2 APCHPRE1 APCHPST1 APCHPWH3 APCHPWH4 APCHPWH5 APCHPWH6 APCHS3 APCHS3A APCHS3B APCHS3L APCHS9B2 APCHS9B4 APCHSM04 APCHSMU
iCare	16	BQICAEXP BQICAHLO BQICAUTL BQICAVAL BQICMUTL BQIDCABA BQIDCABK BQIDCAH3 BQIDCUTL BQIRGDMS BQIRGHPC BQIRLB BQITDLAB BQITRUT1 BQITRUT2 BQITRUTL
Patient Care Component Table Maintiance	13	APCM11E7 APCM11E8 APCM13E7 APCM13E8 APCM14E7 APCM14E8 APCM24E7 APCM24E8 APCM24EB APCM25E7 APCM25E8 APCM25EB APCM2AEB
Health Summary Components	9	BHSACG BHSDM2 BHSDM4 BHSLAB BHSLAB1 BHSLABA BHSLABB BHSMU BHSPMH2
IHS Changes To Lab	6	BLRAGUT BLRAGUT1 BLRLUAC1 BLRLUAC8 BLRREFLA BLRUTIL4
IHS HIV Management System	6	BKMCRS BKMIXX BKMQQCRB BKMQQCRU BKMVA1C BKMVFAPI
PCC Medical Query	6	AMQQDO AMQQMGR1 AMQQMGR4 AMQQMGR6 AMQQMULP AMQQMULT
Tracking Procedure Workflow	5	BTPWEHIS BTPWPFNC BTPWPFND BTPWPTRG BTPWRLAB
PCC New Encounter Form	4	VENPCC1D VENPCC1E VENPCC1N VENPCCS3
IHS Support HL7 Interfaces	3	BHLEVENT BHLOBRI BHLRLAB
Patient Care Component Surveillance	3	APCSCERT APCSHLOC APCSSLAB
Third Party Billing	3	ABMDE8EA ABMDVCK3 ABMRSPI1
Aberdeen GPRA Report	2	CIMGAGP1 CIMGAGP2
Data Warehouse Export System	2	BDWUTIL BDWUTIL1
IHS Generic Interface System	2	IS00002A IS00002B
IHS Patient	2	AUPNCIXL AUPNPOST
Patient Chart	2	BPCLALL BPCPC
Clinical Scheduling for Windows	1	BSDX41J
IHS Lab LOINC Surveillance	1	BLSLX
IHS Mods To Patient Care Encounter	1	BPXRMLAB
IHS Mods To Text Integration Utilities	1	BTIULO11
Lab Service	1	LR52IHS
Local Area Programs	1	AZAXDPM1
NCI Study Extract	1	CIMSNCI1
Patient Care Component Data Transmission	1	APCPUTIL
Utilities	1	AUP2POST

Package	Total	Routines
IHS HIV Management System	9	BKMIXX BKMQQCR2 BKMQSSR5 BKMVA1C BKMVA41 BKMVFAPI BKMVSSR5 BKMVSUP4 BKMVSUP6
IHS Mods To Text Integration Utilities	4	BTIULO11 BTIULO14 BTIULO3 BTIULO7
IHS Changes To Lab	3	BLRLUAC8 BLRREFLA BLRVLABD
Mental Health Social Services	2	AMHGRU AMHGUA
Patient Care Component	2	APCD206F APCDT601
Patient Care Component Surveillance	2	APCSHLOC APCSSLAB
iCare	2	BQIDCABK BQIRLB
IHS Changes To ADT	1	BDGCPT
IHS Changes To Pharmacy	1	APSQLAB
IHS Laboratory Point of Care	1	BLRPOC3
IHS Mods To Patient Care Encounter	1	BPXRMLAB
IHS Support HL7 Interfaces	1	BHLRLAB
Tracking Procedure Workflow	1	BTPWRLAB

Package	Total	FileMan Files
IHS Lab LOINC Surveillance	1	BLS LOINC EXPORT(#90221)[.01]
IHS Patient	1	V LAB(#9000010.09)[1208]

Package	Total	FileMan Files
Lab Service	4	LABORATORY TEST(#60)[.01] TOPOGRAPHY FIELD(#61)[1103] COLLECTION SAMPLE(#62)[1114] LAB LOINC(#95.3)[1113]
IHS Patient	3	PATIENT(#9000001)[.02] V LAB(#9000010.09)[1208] VISIT(#9000010)[.03]
Kernel	2	INSTITUTION(#4)[1701] NEW PERSON(#200)[.07, 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]
Tracking Procedure Workflow	1	CM EVENT RESULT TYPE(#90620.9)[1502, #9000010.0922(.01)]

Fields, Total: 51

Field #	Name	Loc	Type	Details
.01	LAB TEST	0;1	POINTER TO LABORATORY TEST FILE (#60)	**********************REQUIRED FIELD********************** LABORATORY TEST(#60) LAST EDITED: `JAN 06, 2005` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTLAB") CROSS-REFERENCE: `9000010.09^B` 1)= S ^AUPNVLAB("B",$E(X,1,30),DA)="" 2)= K ^AUPNVLAB("B",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.09^AV9^MUMPS` 1)= S:$D(APCDLOOK) DIC("DR")="" 2)= Q CROSS-REFERENCE: `9000010.09^AATOO2^MUMPS` 1)= I $P(^AUPNVLAB(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVLAB("AA",$P(^AUPNVLAB(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVLAB(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVLAB(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVLAB("AA",$P(^AUPNVLAB(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVLAB(DA,0),U,3),0),".",1)),DA) CROSS-REFERENCE: `9000010.09^AETOO^MUMPS` 1)= I $P(^AUPNVLAB(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVLAB("AE",$P(^AUPNVLAB(DA,0),U,2),(9999999-$P(+^AUPNVSIT($P(^AUPNVLAB(DA,0),U,3),0),".",1)),X,DA)="" 2)= I $P(^AUPNVLAB(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVLAB("AE",$P(^AUPNVLAB(DA,0),U,2),(9999999-$P(+^AUPNVSIT($P(^AUPNVLAB(DA,0),U,3),0),".",1)),X,DA) CROSS-REFERENCE: `9000010.09^AQTOO^MUMPS` 1)= N V S V=X N X S X="AUPNCIXL" X ^%ZOSF("TEST") I S X=V D AQ1^AUPNCIXL 2)= N V S V=X N X S X="AUPNCIXL" X ^%ZOSF("TEST") I S X=V D AQKILL1^AUPNCIXL Q-MAN XREF CROSS-REFERENCE: `9000010.09^AWH^MUMPS` 1)= I $T(WH^AUPNCIXL)]"",$$PAP^AUPNCIXL(X),$G(APCDPAT),$G(APCDVSIT),'$D(DIFGLINE) D WH^AUPNCIXL(APCDPAT,DA,APCDVSIT,$G(DUZ(2))) 2)= Q
.02	PATIENT NAME	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `JUN 06, 1996` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDPAT") UNEDITABLE CROSS-REFERENCE: `9000010.09^AC` 1)= S ^AUPNVLAB("AC",$E(X,1,30),DA)="" 2)= K ^AUPNVLAB("AC",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.09^AATOO^MUMPS` 1)= I $P(^AUPNVLAB(DA,0),U,3)]"" S ^AUPNVLAB("AA",X,+^AUPNVLAB(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVLAB(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVLAB(DA,0),U,3)]"" K ^AUPNVLAB("AA",X,+^AUPNVLAB(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVLAB(DA,0),U,3),0),".",1)),DA) CROSS-REFERENCE: `9000010.09^AETOO2^MUMPS` 1)= I $P(^AUPNVLAB(DA,0),U,3)]"" S ^AUPNVLAB("AE",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVLAB(DA,0),U,3),0),".",1)),+^AUPNVLAB(DA,0),DA)="" 2)= I $P(^AUPNVLAB(DA,0),U,3)]"" K ^AUPNVLAB("AE",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVLAB(DA,0),U,3),0),".",1)),+^AUPNVLAB(DA,0),DA) CROSS-REFERENCE: `9000010.09^AOP2^MUMPS` 1)= I $P(^AUPNVLAB(DA,0),U,3)]"",$P($G(^AUPNVLAB(DA,12)),U,2)]"" S ^AUPNVLAB("AOP",$P(^AUPNVLAB(DA,12),U,2),X,9999999-$P(+^AUPNVSIT($P(^AUPNVLAB(DA,0),U,3),0),"."),DA)="" 2)= I $P(^AUPNVLAB(DA,0),U,3),$P($G(^AUPNVLAB(DA,12)),U,2) K ^AUPNVLAB("AOP",$P(^AUPNVLAB(DA,12),U,2),X,9999999-$P(+^AUPNVSIT($P(^AUPNVLAB(DA,0),U,3),0),"."),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(^AUPNVLAB(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JUL 09, 1996` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDVSIT") SCREEN: `S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVLAB(DA,0),U,2)"` EXPLANATION: `VISIT MUST BE FOR CURRENT PATIENT` UNEDITABLE CROSS-REFERENCE: `9000010.09^AD` 1)= S ^AUPNVLAB("AD",$E(X,1,30),DA)="" 2)= K ^AUPNVLAB("AD",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.09^AA^MUMPS` 1)= Q:$P(^AUPNVLAB(DA,0),U,2)="" S ^AUPNVLAB("AA",$P(^AUPNVLAB(DA,0),U,2),+^AUPNVLAB(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)="" 2)= Q:$P(^AUPNVLAB(DA,0),U,2)="" K ^AUPNVLAB("AA",$P(^AUPNVLAB(DA,0),U,2),+^AUPNVLAB(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA) CROSS-REFERENCE: `9000010.09^AV10^MUMPS` 1)= D ADD^AUPNVSIT 2)= D SUB^AUPNVSIT CROSS-REFERENCE: `9000010.09^AE^MUMPS` 1)= I $P(^AUPNVLAB(DA,0),U,2)]"" S ^AUPNVLAB("AE",$P(^AUPNVLAB(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),+^AUPNVLAB(DA,0),DA)="" 2)= I $P(^AUPNVLAB(DA,0),U,2)]"" K ^AUPNVLAB("AE",$P(^AUPNVLAB(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),+^AUPNVLAB(DA,0),DA) CROSS-REFERENCE: `9000010.09^AOP3^MUMPS` 1)= I $P(^AUPNVLAB(DA,0),U,2),$P($G(^AUPNVLAB(DA,12)),U,2) S ^AUPNVLAB("AOP",$P(^AUPNVLAB(DA,12),U,2),$P(^AUPNVLAB(DA,0),U,2),9999999-$P(+^AUPNVSIT(X,0),"."),DA)="" 2)= I $P(^AUPNVLAB(DA,0),U,2),$P($G(^AUPNVLAB(DA,12)),U,2) K ^AUPNVLAB("AOP",$P(^AUPNVLAB(DA,12),U,2),$P(^AUPNVLAB(DA,0),U,2),9999999-$P(+^AUPNVSIT(X,0),"."),DA)
.04	RESULTS	0;4	FREE TEXT	INPUT TRANSFORM: `D VLAB04^AUPNCIX` LAST EDITED: `FEB 13, 2006` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTRES") SOURCE OF DATA: 095/LRRESU NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000010.09^AR^MUMPS` 1)= S ^AUPNVLAB("AR",$P(^AUPNVLAB(DA,0),"^",2),+^AUPNVLAB(DA,0),X,DA)="" 2)= K ^AUPNVLAB("AR",$P(^AUPNVLAB(DA,0),"^",2),+^AUPNVLAB(DA,0),X,DA) CROSS-REFERENCE: `9000010.09^AQ^MUMPS` 1)= N V S V=X N X S X="AUPNCIXL" X ^%ZOSF("TEST") I S X=V D AQ^AUPNCIXL 2)= N V S V=X N X S X="AUPNCIXL" X ^%ZOSF("TEST") I S X=V D AQKILL^AUPNCIXL Sets and kills "AQ" index used by the QUERY MANAGER CROSS-REFERENCE: `9000010.09^APDL^MUMPS` 1)= N AUPNSAVE S AUPNSAVE=X S X="APCLPDBL" X ^%ZOSF("TEST") S X=AUPNSAVE K AUPNSAVE I $T,X>99 D EN^APCLPDBL($P(^AUPNVLAB(DA,0),U,1),$P(^AUPNVLAB(DA,0),U,2),$P(^AUPNVLAB(DA,0),U,3),X) 2)= Q
.05	ABNORMAL	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<1) X` LAST EDITED: `MAY 27, 1988` HELP-PROMPT: `ANSWER MUST BE 1-2 CHARACTERS IN LENGTH` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTABN") SOURCE OF DATA: 095/LRLOCE
.06	LR ACCESSION NO.	0;6	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>16!($L(X)<7) X` LAST EDITED: `JAN 31, 2007` HELP-PROMPT: `Answer must be 7-16 characters in length.` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTACC") SOURCE OF DATA: 095/LRSHVC CROSS-REFERENCE: `9000010.09^ALR^MUMPS` 1)= I $P(^AUPNVLAB(DA,0),U,3)]"" S ^AUPNVLAB("ALR",$P(^AUPNVLAB(DA,0),U,3),X,$P(^AUPNVLAB(DA,0),U),DA)="" 2)= I $P(^AUPNVLAB(DA,0),U,3)]"" K ^AUPNVLAB("ALR",$P(^AUPNVLAB(DA,0),U,3),X,$P(^AUPNVLAB(DA,0),U),DA) CROSS-REFERENCE: `9000010.09^ALR0` 1)= S ^AUPNVLAB("ALR0",$E(X,1,30),DA)="" 2)= K ^AUPNVLAB("ALR0",$E(X,1,30),DA)
.07	*PROVIDER	0;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAY 05, 1993` HELP-PROMPT: `ENTER NAME OF PROVIDER ORDERING LAB TEST`
1101	UNITS	11;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `DEC 06, 1993` HELP-PROMPT: `Answer must be 1-30 characters in length.` DESCRIPTION: UNITS OF MEASURE OF THIS PARTICULAR TEST TECHNICAL DESCR: This used to be stored with the results. APCDALVR Variable = APCDALVR("APCDTUNI")
1102	ORDER	11;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 02, 1990` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTORD")
1103	SITE	11;3	POINTER TO TOPOGRAPHY FIELD FILE (#61)	TOPOGRAPHY FIELD(#61) INPUT TRANSFORM: `S:$G(BLRLINK)'=1 DIC("S")="I $D(^LAB(60,+^AUPNVLAB(DA,0),1,Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 27, 1997` HELP-PROMPT: `Enter site the specimen was taken from for this lab test` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTSTE") SCREEN: `S DIC("S")="Q:$G(BLRLINK)=1 I $D(^LAB(60,+^AUPNVLAB(DA,0),1,Y))"` EXPLANATION: `ALLOWS ONLY SITES ENTERED FOR THIS TEST IN FILE 60` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1104	REFERENCE LOW	11;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `DEC 06, 1993` HELP-PROMPT: `Answer must be 1-30 characters in length.` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTRFL")
1105	REFERENCE HIGH	11;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `DEC 06, 1993` HELP-PROMPT: `Answer must be 1-30 characters in length.` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTRFH")
1106	THERAPEUTIC LOW	11;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `DEC 06, 1993` HELP-PROMPT: `Answer must be 1-30 characters in length.` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTTHL")
1107	THERAPEUTIC HIGH	11;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `DEC 06, 1993` HELP-PROMPT: `Answer must be 1-30 characters in length.` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTTHH")
1108	SOURCE OF DATA INPUT	11;8	SET	'0' FOR NON-LAB; '1' FOR LAB; '2' FOR REFERENCE LAB; LAST EDITED: `JUL 28, 2004` HELP-PROMPT: `Entered by software only.` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTSKI")
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 02, 1996` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTPAN")
1110	LAB TEST COST	11;10	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X` LAST EDITED: `JUN 17, 1997` HELP-PROMPT: `Type a Dollar Amount between 0 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 08, 2013`
1113	LOINC CODE	11;13	POINTER TO LAB LOINC FILE (#95.3)	LAB LOINC(#95.3) LAST EDITED: `JAN 09, 2002`
1114	COLLECTION SAMPLE	11;14	POINTER TO COLLECTION SAMPLE FILE (#62)	COLLECTION SAMPLE(#62) LAST EDITED: `FEB 07, 2002`
1201	COLLECTION DATE AND TIME	12;1	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 04, 1993` HELP-PROMPT: `Enter date/time spemimen was collected.` 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: `JUN 28, 2000` HELP-PROMPT: `Enter Provider Name or Number` 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.` CROSS-REFERENCE: `9000010.09^AOP^MUMPS` 1)= I $P(^AUPNVLAB(DA,0),U,2),$P(^(0),U,3) S ^AUPNVLAB("AOP",X,$P(^AUPNVLAB(DA,0),U,2),9999999-$P(+^AUPNVSIT($P(^AUPNVLAB(DA,0),U,3),0),"."),DA)="" 2)= I $P(^AUPNVLAB(DA,0),U,2),$P(^(0),U,3) K ^AUPNVLAB("AOP",X,$P(^AUPNVLAB(DA,0),U,2),9999999-$P(+^AUPNVSIT($P(^AUPNVLAB(DA,0),U,3),0),"."),DA)
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: `MAR 01, 2000` HELP-PROMPT: `Enter Provider Name or Number` 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 LAB FILE (#9000010.09)	V LAB(#9000010.09) LAST EDITED: `FEB 28, 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")
1211	ORDERING DATE	12;11	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 24, 1997`
1212	RESULT DATE AND TIME	12;12	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 08, 2002` TECHNICAL DESCR: AUPN99.18 Patch 8 added an ARDT cross-reference for the HL7 interfaces. CROSS-REFERENCE: `9000010.09^ARDT` 1)= S ^AUPNVLAB("ARDT",$E(X,1,30),DA)="" 2)= K ^AUPNVLAB("ARDT",$E(X,1,30),DA)
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.09^1217` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVLAB(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.09,1216,1,1,1.4) 1.4)= S DIH=$G(^AUPNVLAB(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.09,DIG=1217 D ^DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ DELETE VALUE)= NO EFFECT FIELD)= #1217 CROSS-REFERENCE: `^^TRIGGER^9000010.09^1218` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVLAB(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.09,1216,1,2,1.4) 1.4)= S DIH=$G(^AUPNVLAB(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.09,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 LAB 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 LAB File` CROSS-REFERENCE: `^^TRIGGER^9000010.09^1219` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVLAB(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.09,1218,1,1,1.4) 1.4)= S DIH=$G(^AUPNVLAB(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.09,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 LAB File`
1301	COMMENT1	13;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>70!($L(X)<1) X` LAST EDITED: `SEP 29, 1994` HELP-PROMPT: `Answer must be 1-70 characters in length.` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTLC1")
1302	COMMENT2	13;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>70!($L(X)<1) X` LAST EDITED: `SEP 29, 1994` HELP-PROMPT: `Answer must be 1-70 characters in length.` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTLC2")
1303	COMMENT3	13;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>70!($L(X)<1) X` LAST EDITED: `SEP 29, 1994` HELP-PROMPT: `Answer must be 1-70 characters in length.` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTLC3")
1401	CPT PTR	14;1	POINTER TO IHS LAB CPT CODE FILE (#9009021)	IHS LAB CPT CODE(#9009021) LAST EDITED: `JUL 20, 2005`
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.`
1501	DATE PASSED TO EXTERNAL	15;1	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 27, 2005` HELP-PROMPT: `Please enter the date this entry was passed to the external system` CROSS-REFERENCE: `9000010.09^ADPE` 1)= S ^AUPNVLAB("ADPE",$E(X,1,30),DA)="" 2)= K ^AUPNVLAB("ADPE",$E(X,1,30),DA)
1502	*FINDINGS	15;2	POINTER TO CM EVENT RESULT TYPE FILE (#90620.9)	CM EVENT RESULT TYPE(#90620.9) LAST EDITED: `NOV 17, 2009`
1601	PROVIDER NARRATIVE	16;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `FEB 13, 2013` HELP-PROMPT: `Answer must be 1-240 characters in length.`
1602	LAB PRINT CODE	16;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>80!($L(X)<1) X` LAST EDITED: `SEP 09, 2003` HELP-PROMPT: `Answer must be 1-80 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.`
2100	COMMENTS	21;0	Multiple #9000010.0921	9000010.0921 DESCRIPTION: LAB comments directly from IHS LAB TRANSACTION LOG TECHNICAL DESCR: AUPN99.18 Comments field added in support of the IHS Reference Lab project to house comments passed to PCC by a reference lab.
2200	FINDINGS	22;0	POINTER Multiple #9000010.0922	9000010.0922
2601	SNOMED CT	26;0	Multiple #9000010.0926	9000010.0926
2701	LOINC CODES	27;0	Multiple #9000010.0927	9000010.0927

Customize PDF page

Package: IHS Patient

Global: ^AUPNVLAB

Information

Description

Directly Accessed By Routines, Total: 751

Accessed By FileMan Db Calls, Total: 30

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 14

Fields, Total: 51