Global: ^AUPNVRAD

FileMan FileNo	FileMan Filename	Package
9000010.22	V RADIOLOGY	IHS Patient

Package	Total	Routines
Diabetes Registry	45	BDMAPIU BDMD012 BDMD112 BDMD212 BDMD312 BDMD412 BDMD4DU BDMD512 BDMD612 BDMD712 BDMD812 BDMD912 BDMDA12 BDMDADU BDMDB12 BDMDBDU BDMDC12 BDMDCDU BDMDD12 BDMDDDU BDMDE12 BDMDEDU BDMDF12 BDMDFDU BDMDG12 BDMDGDU BDMEDMU1 BDMP012 BDMP112 BDMP412 BDMP512 BDMP612 BDMP712 BDMP812 BDMP912 BDMPA12 BDMPB12 BDMPC12 BDMPD12 BDMPE12 BDMPF12 BDMPG12 BDMS9B3 BDMS9B6 BDMS9B7
IHS GPRA Information System	31	BGP0CU BGP0D4 BGP0DU BGP1CU BGP1D4 BGP1DU BGP2CU BGP2D4 BGP2DU BGP3CU BGP3D4 BGP3DU BGP4CU BGP4D4 BGP4DU BGP5CU BGP5D4 BGP5DU BGP6CU BGP6D4 BGP6DU BGP7D4 BGP7DU BGP8D4 BGP8DU BGP8PC9 BGP9CU BGP9D4 BGP9DU BGPDU BGPMUUT1
IHS Uniform Data System	27	BUD0DU BUD0RPC1 BUD1DU BUD1RPC1 BUD2DU BUD2RPC1 BUD4RPC1 BUD5RPC1 BUD6RPC1 BUD7RPC1 BUD8DU BUD8RPC1 BUD9DU BUD9RPC1 BUDADU BUDARPC1 BUDBDU BUDBRPC1 BUDCDU BUDCRPC1 BUDDDU BUDDRPC1 BUDEDU BUDERPC1 BUDHDU BUDHRPC1 BUDRPTC1
Patient Care Component Reports	15	APCLAPI1 APCLAPI5 APCLAPI7 APCLAPIU APCLCPT1 APCLD212 APCLD312 APCLD512 APCLD612 APCLD712 APCLD812 APCLP512 APCLP612 APCLP712 APCLP812
Patient Care Component	6	APCDDMU1 APCDKRV APCHPWHU APCHS3C APCHS9B6 APCHS9B7
Health Summary Components	5	BHSDM4 BHSDM6 BHSDM7 BHSMU BHSRAD
Clinical Scheduling for Windows	2	BSDX41K BSDX41P
IHS Patient	2	AUPNCIXL AUPNCPT
IHS Mods To Patient Care Encounter	1	BPXRMRAD
IHS Mods To Radiology Nuclear Medicine	1	BRAPCC
IHS Support HL7 Interfaces	1	BHLOBRI
Local Area Programs	1	AZAXDPM1
PCC Medical Query	1	AMQQMGR1
PCC New Encounter Form	1	VENPCC1D
Patient Chart	1	BPCDBS1
Third Party Billing	1	ABMDVCK3
Tracking Procedure Workflow	1	BTPWPFND
Utilities	1	AUP2POST
iCare	1	BQIRGHPC

Package	Total	Routines
IHS Changes To ADT	1	BDGCPT
IHS HIV Management System	1	BKMIXX1
IHS Mods To Patient Care Encounter	1	BPXRMRAD
IHS Mods To Radiology Nuclear Medicine	1	BRAPCC
Third Party Billing	1	ABMDVS10
iCare	1	BQIRRD

Package	Total	FileMan Files
IHS Patient	1	V RADIOLOGY(#9000010.22)[1208]

Package	Total	FileMan Files
IHS Patient	3	PATIENT(#9000001)[.02] V RADIOLOGY(#9000010.22)[1208] VISIT(#9000010)[.03]
Radiology Nuclear Medicine	2	DIAGNOSTIC CODES(#78.3)[.06] RAD/NUC MED PROCEDURES(#71)[.01]
Scheduling	2	CLINIC STOP(#40.7)[1203] HOSPITAL LOCATION(#44)[1215]
DRG Grouper	1	ICD DIAGNOSIS(#80)[.09, 1213]
Kernel	1	NEW PERSON(#200)[1202, 1204, 1217, 1219]
Tracking Procedure Workflow	1	CM EVENT RESULT TYPE(#90620.9)[1502, #9000010.2222(.01)]
Utility Tables	1	CPT MODIFIER(#9999999.88)[.07, .08]

Fields, Total: 30

Field #	Name	Loc	Type	Details
.01	RADIOLOGY PROCEDURE	0;1	POINTER TO RAD/NUC MED PROCEDURES FILE (#71)	**********************REQUIRED FIELD********************** RAD/NUC MED PROCEDURES(#71) LAST EDITED: `MAY 08, 2013` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTRAD") CROSS-REFERENCE: `9000010.22^B` 1)= S ^AUPNVRAD("B",$E(X,1,30),DA)="" 2)= K ^AUPNVRAD("B",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.22^AV9^MUMPS` 1)= S:$D(APCDLOOK) DIC("DR")="" 2)= Q CROSS-REFERENCE: `9000010.22^AATOO^MUMPS` 1)= I $P(^AUPNVRAD(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVRAD("AA",$P(^AUPNVRAD(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVRAD(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVRAD(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVRAD("AA",$P(^AUPNVRAD(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVRAD(DA,0),U,3),0),".",1)),DA) CROSS-REFERENCE: `9000010.22^AQ^MUMPS` 1)= D AQR1^AUPNCIXL 2)= D AQRKILL1^AUPNCIXL Sets the "AQ" xref reference; a compound xref that has both the dfn of the V RAD entry and the value of the .05 abnormal field. RECORD INDEXES: `AMAP (#493)`
.019	CPT CODE		COMPUTED	MUMPS CODE: `X ^DD(9000010.22,.019,9.3) S X=$S('$D(^ICPT(+$P(Y(9000010.22,.019,101),U,9),0)):"",1:$P(^(0),U,1)) S D0=Y(9000010.22,.019,80)` 9.2 = S Y(9000010.22,.019,80)=$S($D(D0):D0,1:""),Y(9000010.22,.019,1)=$S($D(^AUPNVRAD(D0,0)):^(0),1:"") 9.3 = X ^DD(9000010.22,.019,9.2) S D0=$P(Y(9000010.22,.019,1),U,1) S:'$D(^RAMIS(71,+D0,0)) D0=-1 S Y(9000010.22,.019,101)=$S($D(^RAMIS(71,D0,0)):^(0),1:"") ALGORITHM: `#.01:CPT CODE`
.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.22^AC` 1)= S ^AUPNVRAD("AC",$E(X,1,30),DA)="" 2)= K ^AUPNVRAD("AC",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.22^AATOO2^MUMPS` 1)= I $P(^AUPNVRAD(DA,0),U,3)]"" S ^AUPNVRAD("AA",X,+^AUPNVRAD(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVRAD(DA,0),U,3),0),".",1)),DA)="" 2)= I $P(^AUPNVRAD(DA,0),U,3)]"" K ^AUPNVRAD("AA",X,+^AUPNVRAD(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVRAD(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(^AUPNVRAD(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 11, 1986` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDVSIT") SCREEN: `S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVRAD(DA,0),U,2)"` EXPLANATION: `VISIT MUST BE FOR CURRENT PATIENT` UNEDITABLE CROSS-REFERENCE: `9000010.22^AD` 1)= S ^AUPNVRAD("AD",$E(X,1,30),DA)="" 2)= K ^AUPNVRAD("AD",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.22^AA^MUMPS` 1)= Q:$P(^AUPNVRAD(DA,0),U,2)="" S ^AUPNVRAD("AA",$P(^AUPNVRAD(DA,0),U,2),+^AUPNVRAD(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)="" 2)= Q:$P(^AUPNVRAD(DA,0),U,2)="" K ^AUPNVRAD("AA",$P(^AUPNVRAD(DA,0),U,2),+^AUPNVRAD(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA) CROSS-REFERENCE: `9000010.22^AV10^MUMPS` 1)= D ADD^AUPNVSIT 2)= D SUB^AUPNVSIT
.05	ABNORMAL	0;5	SET	'0' FOR NORMAL; '1' FOR ABNORMAL; LAST EDITED: `MAR 17, 1997` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTABN") CROSS-REFERENCE: `9000010.22^AQTOO^MUMPS` 1)= D AQR^AUPNCIXL 2)= D AQRKILL^AUPNCIXL
.06	DIAGNOSTIC CODE	0;6	POINTER TO DIAGNOSTIC CODES FILE (#78.3)	DIAGNOSTIC CODES(#78.3) LAST EDITED: `MAR 17, 1997`
.07	MODIFIER	0;7	POINTER TO CPT MODIFIER FILE (#9999999.88)	CPT MODIFIER(#9999999.88) LAST EDITED: `JUN 26, 2000`
.08	MODIFIER 2	0;8	POINTER TO CPT MODIFIER FILE (#9999999.88)	CPT MODIFIER(#9999999.88) LAST EDITED: `JUN 26, 2000`
.09	ICD DIAGNOSIS	0;9	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `AUG 16, 2001`
.1	ACCESSION #	0;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<7) X` LAST EDITED: `APR 16, 2013` HELP-PROMPT: `Answer must be 7-12 characters in length.`
1101	IMPRESSION	11;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>245!($L(X)<2) X` LAST EDITED: `JUL 14, 1992` HELP-PROMPT: `Answer must be 2-245 characters in length.` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTIMP")
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: `MAR 02, 1995` TECHNICAL DESCR: APCDALVR Variable = APCDALVR("APCDTOPR") 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: `MAR 02, 1995` 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 RADIOLOGY FILE (#9000010.22)	V RADIOLOGY(#9000010.22) 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")
1211	ORDERING DATE	12;11	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `SEP 22, 1998`
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.22^1217` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVRAD(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.22,1216,1,1,1.4) 1.4)= S DIH=$G(^AUPNVRAD(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.22,DIG=1217 D ^DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ DELETE VALUE)= NO EFFECT FIELD)= #1217 CROSS-REFERENCE: `^^TRIGGER^9000010.22^1218` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVRAD(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.22,1216,1,2,1.4) 1.4)= S DIH=$G(^AUPNVRAD(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.22,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 RADIOLOGY 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 RADIOLOGY File` CROSS-REFERENCE: `^^TRIGGER^9000010.22^1219` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVRAD(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.22,1218,1,1,1.4) 1.4)= S DIH=$G(^AUPNVRAD(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.22,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 RADIOLOGY File`
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 that this entry was passed to the external system` CROSS-REFERENCE: `9000010.22^ADPE` 1)= S ^AUPNVRAD("ADPE",$E(X,1,30),DA)="" 2)= K ^AUPNVRAD("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`
2200	FINDINGS	22;0	POINTER Multiple #9000010.2222	9000010.2222
2601	SNOMED	26;0	Multiple #9000010.2226	9000010.2226
2701	LOINC CODES	27;0	Multiple #9000010.2227	9000010.2227

Customize PDF page

Package: IHS Patient

Global: ^AUPNVRAD

Information

Description

Directly Accessed By Routines, Total: 144

Accessed By FileMan Db Calls, Total: 6

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 11

Fields, Total: 30