Global: ^AUPNVLI

FileMan FileNo	FileMan Filename	Package
9000010.99	V LINE ITEM (GOODS&SERVICES)	IHS Patient

Package	Total	Routines
IHS Patient	1	AUPNVLI
Local Area Programs	1	AZAXDPM1
Patient Care Component	1	APCDALI
Third Party Billing	1	ABMCPTCK

Package	Total	FileMan Files
IHS Patient	1	V LINE ITEM (GOODS&SERVICES)(#9000010.99)[1208]

Package	Total	FileMan Files
IHS Patient	3	PATIENT(#9000001)[.02] V LINE ITEM (GOODS&SERVICES)(#9000010.99)[1208] VISIT(#9000010)[.03]
Utility Tables	3	COST CENTER(#9999999.58)[.12] LINE ITEM TYPE(#9999999.86)[.01] REVENUE CODES(#9999999.72)[.07]
CPT Files	1	CPT(#81)[.15]
DRG Grouper	1	ICD DIAGNOSIS(#80)[9000]
IHS Dental System	1	DENTAL OPERATIVE SITE(#9002010.03)[1101]
Kernel	1	NEW PERSON(#200)[1202, 1204, 1217, 1219]
Scheduling	1	CLINIC STOP(#40.7)[1203]
VA Fileman	1	FILE(#1)[1301]

Fields, Total: 35

Field #	Name	Loc	Type	Details
.01	TYPE OF ITEM	0;1	POINTER TO LINE ITEM TYPE FILE (#9999999.86)	**********************REQUIRED FIELD********************** LINE ITEM TYPE(#9999999.86) LAST EDITED: `SEP 16, 1996` HELP-PROMPT: `Enter the type of item.` DESCRIPTION: This is the entry in the Exam file that represents what type of exam was done at the encounter. CROSS-REFERENCE: `9000010.99^B` 1)= S ^AUPNVLI("B",$E(X,1,30),DA)="" 2)= K ^AUPNVLI("B",$E(X,1,30),DA) CROSS-REFERENCE: `9000010.99^AV9^MUMPS` 1)= S:$D(APCDLOOK) DIC("DR")="" 2)= Q CROSS-REFERENCE: `^^TRIGGER^9000010.99^.04` 1)= Q 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVLI(D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(9000010.99,.01,1,3,2.4) 2.4)= S DIH=$S($D(^AUPNVLI(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=9000010.99,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= NO EFFECT DELETE VALUE)= @ FIELD)= #.04 Clears out the #.04 field value when the .01 is changed. CROSS-REFERENCE: `^^TRIGGER^9000010.99^.05` 1)= Q 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVLI(D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" X ^DD(9000010.99,.01,1,4,2.4) 2.4)= S DIH=$S($D(^AUPNVLI(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=9000010.99,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= NO EFFECT DELETE VALUE)= @ FIELD)= #.05 Clears out the #.05 field when the .01 is edited/deleted. CROSS-REFERENCE: `^^TRIGGER^9000010.99^.06` 1)= Q 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVLI(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(9000010.99,.01,1,5,2.4) 2.4)= S DIH=$S($D(^AUPNVLI(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=9000010.99,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= NO EFFECT DELETE VALUE)= @ FIELD)= #.06 Clears out the .06 value when the .01 is edited/deleted.
.02	PATIENT NAME	0;2	POINTER TO PATIENT FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT(#9000001) LAST EDITED: `APR 05, 1988` UNEDITABLE CROSS-REFERENCE: `9000010.99^AC` 1)= S ^AUPNVLI("AC",$E(X,1,30),DA)="" 2)= K ^AUPNVLI("AC",$E(X,1,30),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(^AUPNVLI(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `NOV 11, 1986` HELP-PROMPT: `Enter the visit date/time for the encounter where the exam was done.` DESCRIPTION: This is the encounter in the Visit file that represents when and where the exam was done. SCREEN: `S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVLI(DA,0),U,2)"` EXPLANATION: `VISIT MUST BE FOR CURRENT PATIENT` UNEDITABLE CROSS-REFERENCE: `9000010.99^AD` 1)= S ^AUPNVLI("AD",$E(X,1,30),DA)="" 2)= K ^AUPNVLI("AD",$E(X,1,30),DA) This cross-reference is used for searches by the visit pointer and internal entry number. "AD",VISIT,DA CROSS-REFERENCE: `9000010.99^AV10^MUMPS` 1)= D ADD^AUPNVSIT 2)= D SUB^AUPNVSIT This cross-reference adds and subtracts from the dependent entry count in the VISIT file.
.04	GOOD/SERVICE	0;4	FREE TEXT	INPUT TRANSFORM: `K:'$$VAL^AUPNVLI(X,DA) X` LAST EDITED: `SEP 16, 1996` HELP-PROMPT: `Answer must be 1-15 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` TRIGGERED by the TYPE OF ITEM field of the V LINE ITEM (GOODS&SERVICES) File TRIGGERED by the IEN OF ITEM field of the V LINE ITEM (GOODS&SERVICES) File
.05	IEN OF ITEM	0;5	NUMBER	INPUT TRANSFORM: K:'$$FIND1^DIC($P(^AUPNVLI(DA,0),U),"","MX","`"_X) X LAST EDITED: `SEP 16, 1996` HELP-PROMPT: `Type a Number between 0 and 99999999, 0 Decimal Digits` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` TRIGGERED by the TYPE OF ITEM field of the V LINE ITEM (GOODS&SERVICES) File CROSS-REFERENCE: `^^TRIGGER^9000010.99^.04` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVLI(D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(9000010.99,.05,1,1,1.1) X ^DD(9000010.99,.05,1,1,1.4) 1.1)= S X=DIV S X=$$VAL^XBDIQ1($P(^AUPNVLI(DA,0),U),X,.01) 1.4)= S DIH=$S($D(^AUPNVLI(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=9000010.99,DIG=.04 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(^AUPNVLI(D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(9000010.99,.05,1,1,2.4) 2.4)= S DIH=$S($D(^AUPNVLI(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=9000010.99,DIG=.04 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= S X=$$VAL^XBDIQ1($P(^AUPNVLI(DA,0),U),X,.01) DELETE VALUE)= @ FIELD)= #.04 CROSS-REFERENCE: `^^TRIGGER^9000010.99^.06` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVLI(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9000010.99,.05,1,2,1.1) X ^DD(9000010.99,.05,1,2,1.4) 1.1)= S X=DIV S X=$$VAL^XBDIQ1($P(^AUPNVLI(DA,0),U),X,$P($G(^AUTTLIT($P(^AUPNVLI(DA,0),U),0)),U,3)) 1.4)= S DIH=$S($D(^AUPNVLI(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=9000010.99,DIG=.06 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(^AUPNVLI(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" X ^DD(9000010.99,.05,1,2,2.4) 2.4)= S DIH=$S($D(^AUPNVLI(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,6)=DIV,DIH=9000010.99,DIG=.06 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= S X=$$VAL^XBDIQ1($P(^AUPNVLI(DA,0),U),X,$P($G(^AUTTLIT($P(^AUPNVLI(DA,0),U),0)),U,3)) DELETE VALUE)= @ FIELD)= #.06
.06	DESCRIPTION	0;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>45!($L(X)<3) X` LAST EDITED: `SEP 16, 1996` HELP-PROMPT: `Answer must be 3-45 characters in length.` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the TYPE OF ITEM field of the V LINE ITEM (GOODS&SERVICES) File` TRIGGERED by the IEN OF ITEM field of the V LINE ITEM (GOODS&SERVICES) File
.07	REVENUE CODE	0;7	POINTER TO REVENUE CODES FILE (#9999999.72)	REVENUE CODES(#9999999.72) LAST EDITED: `JAN 17, 1980`
.08	COST (TRUE COST)	0;8	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X` LAST EDITED: `JAN 17, 1980` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits`
.09	CHARGE (FROM 3PB)	0;9	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X` LAST EDITED: `JAN 17, 1980` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits`
.11	AMT COLLECTED	0;11	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X` LAST EDITED: `JAN 17, 1980` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits`
.12	COST CENTER	0;12	POINTER TO COST CENTER FILE (#9999999.58)	COST CENTER(#9999999.58) LAST EDITED: `JAN 17, 1980`
.13	COST (NOT BUNDLED)	0;13	NUMBER	INPUT TRANSFORM: `S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999)!(X<0) X` LAST EDITED: `JAN 17, 1980` HELP-PROMPT: `Type a Dollar Amount between 0 and 99999999, 2 Decimal Digits`
.14	QUANTITY	0;14	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 16, 1996` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits`
.15	HCPCS	0;15	POINTER TO CPT FILE (#81)	CPT(#81) LAST EDITED: `APR 21, 1997`
.16	CAN #	0;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>7!($L(X)<7) X` LAST EDITED: `APR 21, 1997` HELP-PROMPT: `Answer must be 7 characters in length.`
1101	TOOTH NUMBER	11;1	POINTER TO DENTAL OPERATIVE SITE FILE (#9002010.03)	DENTAL OPERATIVE SITE(#9002010.03) LAST EDITED: `JAN 17, 1980`
1102	TOOTH SURFACE	11;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>2!($L(X)<1) X` LAST EDITED: `JAN 17, 1980` HELP-PROMPT: `Answer must be 1-2 characters in length.`
1103	NDC #	11;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `JAN 17, 1980` HELP-PROMPT: `Answer must be 1-20 characters in length.`
1104	PRESCRIPTION #	11;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<1) X` LAST EDITED: `JAN 17, 1980` HELP-PROMPT: `Answer must be 1-12 characters in length.`
1105	START TIME FOR ANESTHESIOLOGY	11;5	DATE	INPUT TRANSFORM: `S %DT="ETXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 17, 1980`
1106	STOP TIME FOR ANESTHESIOLOGY	11;6	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 17, 1980`
1201	EVENT DATE AND TIME	12;1	DATE	INPUT TRANSFORM: `S %DT="EST" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JUN 08, 1994` HELP-PROMPT: `Enter the date and time the exam was given.` DESCRIPTION: `This is the date and time the exam was given by the provider. This date and time may be different from the visit date and time. For example, for clinic appointment visits, the visit date and time is the date and time of` the appointment, not the time the provider performed the clinical event. The date may be an imprecise date. Date and time may be within 30 days before or after the visit date, with the restriction the date cannot be a future date. TECHNICAL DESCR: `The PCE User Interface, which allows manual entry of data, will be the primary source of the event date and time. The event date prompt defaults to the visit date, and the time is entered to reflect the actual time the` measurement was done. The event date does not have to be the visit date, future date. If a user wants to enter a historical measurement, the user should use the Historical Encounter entry action to document the historical measurement. Historical entries will not be eligible for credit. PCE Data Sources for automatic (scanning) data capture will be blank unless the event date and time are passed to PCE for filing.
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: `JUN 08, 1994` HELP-PROMPT: `Enter the provider who ordered this exam.` DESCRIPTION: This field can be used to document the provider who ordered the exam. TECHNICAL DESCR: The person entered here must hold the "AK.PROVIDER" security key. SCREEN: `S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"` EXPLANATION: `Select ordering 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: `DEC 19, 1994` HELP-PROMPT: `Enter the provider who gave the exam.` DESCRIPTION: This is the provider who gave the exam. TECHNICAL DESCR: This person can be any person in the new person file. The person does not have to hold the "AK.PROVIDER" security key.
1208	PARENT	12;8	POINTER TO V LINE ITEM (GOODS&SERVICES) FILE (#9000010.99)	V LINE ITEM (GOODS&SERVICES)(#9000010.99) LAST EDITED: `JUL 09, 1996`
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.99^1217` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVLI(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.99,1216,1,1,1.4) 1.4)= S DIH=$G(^AUPNVLI(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.99,DIG=1217 D ^DICR 2)= Q CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ DELETE VALUE)= NO EFFECT FIELD)= #1217 CROSS-REFERENCE: `^^TRIGGER^9000010.99^1218` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVLI(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.99,1216,1,2,1.4) 1.4)= S DIH=$G(^AUPNVLI(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.99,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 LINE ITEM (GOODS&SERVICES) 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 LINE ITEM (GOODS&SERVICES) File` CROSS-REFERENCE: `^^TRIGGER^9000010.99^1219` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVLI(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.99,1218,1,1,1.4) 1.4)= S DIH=$G(^AUPNVLI(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.99,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 LINE ITEM (GOODS&SERVICES) File`
1301	FILE CREATED FROM	13;1	POINTER TO FILE FILE (#1)	FILE(#1) LAST EDITED: `SEP 16, 1996`
1302	IEN OF ENTRY CREATED BY	13;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 16, 1996` HELP-PROMPT: `Type a Number between 1 and 999999999, 0 Decimal Digits`
4100	CPT MODIFIER	41;0	Multiple #9000010.9941	9000010.9941
8000	CPT MODIFIER	80;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<1) X` LAST EDITED: `JAN 17, 1980` HELP-PROMPT: `Answer must be 1-5 characters in length.`
9000	CORRESPONDING DIAGNOSIS (MULT)	90;1	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) LAST EDITED: `JAN 17, 1980`

Customize PDF page

Package: IHS Patient

Global: ^AUPNVLI

Information

Description

Directly Accessed By Routines, Total: 4

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 12

Fields, Total: 35