Global: ^AUPNVCPT

FileMan FileNo	FileMan Filename	Package
9000010.18	V CPT	PCE Patient Care Encounter

Package	Total	Routines
PCE Patient Care Encounter	8	PX10118P PXBGCPT PXBIBB PXCECPT PXCEVFIL PXICLN17 PXPXRMI1 PXRRMDR
Integrated Billing	2	IBCCPT IBCD3
Scheduling	2	SDES2GETEXPENTRY SDES2GETXPENTRY2
Virtual Patient Record	2	VPRDJ09 VPRSDAVF
Automated Information Collection System	1	IBDFRPC6
Enterprise Health Management Platform	1	HMPDJ09
Lab Service	1	LRCAPES1

Package	Total	FileMan Files
PCE Patient Care Encounter	4	PATIENT/IHS(#9000001)[.02] VISIT(#9000010)[.03] PROVIDER NARRATIVE(#9999999.27)[.04, 80201] PCE DATA SOURCE(#839.7)[81203]
CPT HCPCS Codes	2	CPT MODIFIER(#81.3)[#9000010.181(.01)] CPT(#81)[.01]
Kernel	2	PACKAGE(#9.4)[81202] NEW PERSON(#200)[1202, 1204]
DRG Grouper	1	ICD DIAGNOSIS(#80)[.05, .09, .1, .11, .12, .13, .14, .15]
Order Entry Results Reporting	1	ORDER(#100)[.17]

Fields, Total: 28

Field #	Name	Loc	Type	Details
.01	CPT	0;1	POINTER TO CPT FILE (#81)	**********************REQUIRED FIELD********************** CPT(#81) INPUT TRANSFORM: `S DIC("S")="I $P($$CPT^ICPTCOD(+Y),""^"",7)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 17, 2018` HELP-PROMPT: `Enter a CPT code or the name of the procedure done to the patient.` DESCRIPTION: `This is the entry in the CPT file that most closely represents the clinical procedure done to the patient during the encounter. The preferred text for the procedure performed may be specified in the Provider Narrative` `field.` `This field is used for Administrative and Clinical purposes. If a procedure performed is to be billable, the CPT code must be specified here.` SCREEN: `S DIC("S")="I $P($$CPT^ICPTCOD(+Y),""^"",7)"` EXPLANATION: `Only active CPTs` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000010.18^B` `1)= S ^AUPNVCPT("B",$E(X,1,30),DA)=""` `2)= K ^AUPNVCPT("B",$E(X,1,30),DA)` CROSS-REFERENCE: `9000010.18^AATOO^MUMPS` `1)= I $P(^AUPNVCPT(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVCPT("AA",$P(^AUPNVCPT(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVCPT(DA,0),U,3),0),".",1)),DA)=""` `2)= I $P(^AUPNVCPT(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVCPT("AA",$P(^AUPNVCPT(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVCPT(DA,0),U,3),0),".",1)),DA)` `This cross-reference is used for searches in sequence by patient, CPT internal entry number, inverted visit date, and internal entry number.` `"AA",PATIENT,CPT,VISIT,DA` RECORD INDEXES: `ACR (#849)`
.02	PATIENT NAME	0;2	POINTER TO PATIENT/IHS FILE (#9000001)	**********************REQUIRED FIELD********************** PATIENT/IHS(#9000001) LAST EDITED: `DEC 17, 2018` HELP-PROMPT: `Enter the patient to whom the procedure was done.` DESCRIPTION: `This is the patient to whom the procedure was done during the encounter.` TECHNICAL DESCR: `This is a pointer to the PATIENT/IHS file, #9000001, which is DINUMED to the PATIENT file, #2. This field is always stuffed by the application. No editing is allowed.` `UNEDITABLE` CROSS-REFERENCE: `9000010.18^AATOO2^MUMPS` `1)= I $P(^AUPNVCPT(DA,0),U,3)]"" S ^AUPNVCPT("AA",X,+^AUPNVCPT(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVCPT(DA,0),U,3),0),".",1)),DA)=""` `2)= I $P(^AUPNVCPT(DA,0),U,3)]"" K ^AUPNVCPT("AA",X,+^AUPNVCPT(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVCPT(DA,0),U,3),0),".",1)),DA)` `This cross-reference is used for searches in sequence by patient, CPT internal entry number, inverted visit date, and internal entry number.` `"AA",PATIENT,CPT,VISIT,DA` CROSS-REFERENCE: `9000010.18^C` `1)= S ^AUPNVCPT("C",$E(X,1,30),DA)=""` `2)= K ^AUPNVCPT("C",$E(X,1,30),DA)` `This cross-reference allows look-up on the file by the patient's name.` RECORD INDEXES: `ACR (#849)`
.03	VISIT	0;3	POINTER TO VISIT FILE (#9000010)	**********************REQUIRED FIELD********************** VISIT(#9000010) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVCPT(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 17, 2018` HELP-PROMPT: `Enter the visit date/time for the encounter where the procedure was done.` DESCRIPTION: `This is the encounter or occasion of service defined in the VISIT file that represents when and where the procedure was done.` TECHNICAL DESCR: `This is a pointer to the VISIT file, #9000010. This field is stuffed by the applications. No editing is allowed.` SCREEN: `S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVCPT(DA,0),U,2)"` EXPLANATION: `VISIT MUST BE FOR CURRENT PATIENT` `UNEDITABLE` CROSS-REFERENCE: `9000010.18^AD` `1)= S ^AUPNVCPT("AD",$E(X,1,30),DA)=""` `2)= K ^AUPNVCPT("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.18^AA^MUMPS` `1)= Q:$P(^AUPNVCPT(DA,0),U,2)="" S ^AUPNVCPT("AA",$P(^AUPNVCPT(DA,0),U,2),+^AUPNVCPT(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""` `2)= Q:$P(^AUPNVCPT(DA,0),U,2)="" K ^AUPNVCPT("AA",$P(^AUPNVCPT(DA,0),U,2),+^AUPNVCPT(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)` `This cross-reference is used for searches in sequence by patient, CPT internal entry number, inverted visit date, and internal entry number.` `"AA",PATIENT,CPT,VISIT,DA` CROSS-REFERENCE: `9000010.18^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.` RECORD INDEXES: `ACR (#849)`
.04	PROVIDER NARRATIVE	0;4	POINTER TO PROVIDER NARRATIVE FILE (#9999999.27)	**********************REQUIRED FIELD********************** PROVIDER NARRATIVE(#9999999.27) INPUT TRANSFORM: `S DIC(0)=$S($D(PXKLAYGO):"LOX",$D(APCDALVR):"LO",$D(ZTQUEUED):"LO",1:"EMQLO") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 17, 2018` HELP-PROMPT: `Enter the providers preferred text identifying the procedure done.` DESCRIPTION: `This is the narrative the provider uses to represent the procedure that was done. The text may be different from the CPT file's procedure name text, but should not have a significantly different meaning. The CPT code in` `the CPT (.01) field should be the CPT code that "most closely" represents the provider narrative for the procedure done.` TECHNICAL DESCR: `This is a pointer to the PROVIDER NARRATIVE file, #9999999.27. Disk space is saved by storing ONE entry in the Provider Narrative file for each unique narrative. The provider narrative is often repetitive, especially if` `the data capture mode is automated (e.g., AICS Encounter Forms).`
.05	DIAGNOSIS	0;5	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^PXCECPT1 K:Y<0 X` LAST EDITED: `DEC 17, 2018` HELP-PROMPT: `Enter the ICD diagnosis related to the procedure done.` DESCRIPTION: `This is the diagnosis, from the ICD Diagnosis file, associated with the procedure performed.` TECHNICAL DESCR: SCREEN: `S DIC("S")="D ^AUPNSICD" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Dx cannot be an inactive code, and it must be appropriate` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.07	PRINCIPAL PROCEDURE	0;7	SET	'Y' FOR YES; 'N' FOR NO; LAST EDITED: `AUG 10, 2017` HELP-PROMPT: `Enter 'Y' if this is the principal procedure done at the encounter.` DESCRIPTION: `This field identifies this procedure as the principal procedure done to the patient at the encounter.` RECORD INDEXES: `ACR (#849)`
.09	DIAGNOSIS 2	0;9	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^PXCECPT1 K:Y<0 X` LAST EDITED: `DEC 17, 2018` HELP-PROMPT: `Enter the ICD diagnosis related to the procedure done.` DESCRIPTION: `This is the diagnosis, from the ICD Diagnosis file, associated with the procedure performed.` SCREEN: `S DIC("S")="D ^AUPNSICD" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Dx cannot be an inactive code, and it must be appropriate` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.1	DIAGNOSIS 3	0;10	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^PXCECPT1 K:Y<0 X` LAST EDITED: `DEC 17, 2018` HELP-PROMPT: `Enter the ICD diagnosis related to the procedure done.` DESCRIPTION: `This is the diagnosis, from the ICD Diagnosis file, associated with the procedure performed.` SCREEN: `S DIC("S")="D ^AUPNSICD" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Dx cannot be an inactive code, and it must be appropriate` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.11	DIAGNOSIS 4	0;11	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^PXCECPT1 K:Y<0 X` LAST EDITED: `DEC 19, 2018` HELP-PROMPT: `Enter the ICD diagnosis related to the procedure done.` DESCRIPTION: `This is the diagnosis, from the ICD Diagnosis file, associated with the procedure performed.` SCREEN: `S DIC("S")="D ^AUPNSICD" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Dx cannot be an inactive code, and it must be appropriate` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.12	DIAGNOSIS 5	0;12	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^PXCECPT1 K:Y<0 X` LAST EDITED: `DEC 19, 2018` HELP-PROMPT: `Enter the ICD diagnosis related to the procedure done.` DESCRIPTION: `This is the diagnosis, from the ICD Diagnosis file, associated with the procedure performed.` SCREEN: `S DIC("S")="D ^AUPNSICD" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Dx cannot be an inactive code, and it must be appropriate` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.13	DIAGNOSIS 6	0;13	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^PXCECPT1 K:Y<0 X` LAST EDITED: `DEC 19, 2018` HELP-PROMPT: `Enter the ICD diagnosis related to the procedure done.` DESCRIPTION: `This is the diagnosis, from the ICD Diagnosis file, associated with the procedure performed.` SCREEN: `S DIC("S")="D ^AUPNSICD" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Dx cannot be an inactive code, and it must be appropriate` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.14	DIAGNOSIS 7	0;14	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^PXCECPT1 K:Y<0 X` LAST EDITED: `DEC 19, 2018` HELP-PROMPT: `Enter the ICD diagnosis related to the procedure done.` DESCRIPTION: `This is the diagnosis, from the ICD Diagnosis file, associated with the procedure performed.` SCREEN: `S DIC("S")="D ^AUPNSICD" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Dx cannot be an inactive code, and it must be appropriate` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.15	DIAGNOSIS 8	0;15	POINTER TO ICD DIAGNOSIS FILE (#80)	ICD DIAGNOSIS(#80) INPUT TRANSFORM: `D ICDEN^PXCECPT1 K:Y<0 X` LAST EDITED: `DEC 19, 2018` HELP-PROMPT: `Enter the ICD diagnosis related to the procedure done.` DESCRIPTION: `This is the diagnosis, from the ICD Diagnosis file, associated with the procedure performed.` SCREEN: `S DIC("S")="D ^AUPNSICD" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)` EXPLANATION: `Dx cannot be an inactive code, and it must be appropriate` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.16	QUANTITY	0;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 17, 2018` HELP-PROMPT: `Enter a number between 1 and 999 indicating how many times, this procedure was done.` DESCRIPTION: `This is the number of times this procedure was done to the patient during the encounter.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.17	ORDER REFERENCE	0;17	POINTER TO ORDER FILE (#100)	ORDER(#100) LAST EDITED: `DEC 17, 2018` HELP-PROMPT: `Enter the order for this procedure.` DESCRIPTION: `Pointer to the order in the ORDER file, #100, that ordered the procedure.` TECHNICAL DESCR: `This field provides a place for the Surgery package to store the pointer to the entry in the ORDER file, #100, that is associated with this procedure.`
.19	DEPARTMENT CODE	0;19	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` LAST EDITED: `APR 25, 2005` HELP-PROMPT: `Answer must be 3 characters in length.` DESCRIPTION: `The 3-digit code that defines the service area associated with the charge by the sending application.` TECHNICAL DESCR: `All CPT-based charges coming through PCE, which are not already associated with one of the Department Codes, are assigned a Department Code. The Department Code assigned is the Stop Code associated (in the HOSPITAL` `LOCATION file, #44) with the Hospital Location of the patient visit/encounter.`
.2	PFSS CHARGE ID	0;20	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `DEC 17, 2018` HELP-PROMPT: `Type a Number between 1 and 99999999, 0 Decimal Digits` DESCRIPTION: `A numeric identifier of not more than 8 digits that uniquely identifies the charge item in the external medical billing system. This data item is referred to as the "PFSS Charge Identifier" within the PFSS project` `documentation.` TECHNICAL DESCR: `The application providing the data to the PFSS CHARGE CACHE file uses $$GETCHGID^IBBAPI to obtain a unique identifying number for the original charge.`
1	CPT MODIFIER	1;0	POINTER Multiple #9000010.181	9000010.181 DESCRIPTION: SCREEN: `S DIC("S")="N PXC,PXM,PXV,PXD S PXC=$P(^AUPNVCPT(D0,0),U),PXV=$P(^AUPNVCPT(D0,0),U,3),PXD=$P($G(^AUPNVSIT(PXV,0)),U) I $$MODP^ICPTMOD(PXC,Y,""I"",PXD)"` EXPLANATION: `The selected modifier must go with the CPT code.`
1201	EVENT DATE AND TIME	12;1	DATE	INPUT TRANSFORM: `S %DT="ESTX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 17, 2018` HELP-PROMPT: `Enter the date and time the procedure was done.` DESCRIPTION: `This is the date and time the procedure was performed. 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 before or after the Visit date, with the restriction the date cannot be a future date.` TECHNICAL DESCR: `Event Date and Time defaults to NOW and reflects the actual time the service was provided. The Event Date does not have to be the Visit Date, but it cannot be a future date.` `If a user wants to enter a historical procedure, the user should use the Historical Encounter entry action to document the historical procedure. 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.` RECORD INDEXES: `ACR (#849)`
1202	ORDERING PROVIDER	12;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAY 13, 1996` HELP-PROMPT: `Enter the provider who ordered this procedure.` DESCRIPTION: `This field can be used to document the provider who ordered the procedure.`
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 performed the procedure.` DESCRIPTION: `This is the provider who performed the procedure.`
80101	EDITED FLAG	801;1	SET	'1' FOR EDITED; LAST EDITED: `DEC 17, 2018` HELP-PROMPT: `Enter 1 if the original V CPT data is being edited.` DESCRIPTION: `This field is automatically set to 1 if PCE detects that any original procedure data is being edited.` TECHNICAL DESCR: `PCE filing logic automatically compares the before and after pictures of the record to determine if the edited flag should be set to "1".`
80102	AUDIT TRAIL	801;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>85!($L(X)<2) X` LAST EDITED: `DEC 17, 2018` HELP-PROMPT: `The answer must be 2 to 85 characters.` DESCRIPTION: `This field is populated automatically by the PCE filing logic. The format of the field is as follows: Pointer to PCE data source file_"-"_A for Add or E for Edit_" "_DUZ of the person who entered the data_";"...` TECHNICAL DESCR: `The PCE filing logic requires a pointer to the PCE data source file. If this is not passed, the PCE filing logic will not process the data.` `If the record is a new record, then an "A" is used to specify the source that added the data. If the record existed previously, PCE filing logic compares the old and new records of information. An "E" will be automatically` `used if the filing logic finds the data has been edited. If "E" is used, then the Edited Flag field is automatically set to 1.` `The DUZ is stored in its internal format to represent the user who performed the adding or editing of data for this record.` `Iterations of editing will be concatenated to the previous data source value, up to 85 characters.`
80201	PROVIDER NARRATIVE CATEGORY	802;1	POINTER TO PROVIDER NARRATIVE FILE (#9999999.27)	PROVIDER NARRATIVE(#9999999.27) INPUT TRANSFORM: `S DIC(0)=$S($D(PXKLAYGO):"LOX",$D(APCDALVR):"LO",$D(ZTQUEUED):"LO",1:"EMQLO") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `DEC 17, 2018` HELP-PROMPT: `Enter the provider narrative category.` DESCRIPTION: `This field is the heading or category used to represent the provider narrative on the scanner form. It may be useful for understanding how providers are grouping data for use on the encounter form, and may help determine` `clinical data base definitions in the future.` TECHNICAL DESCR: `This field was added for use in the VA. It is used to identify the common groupings of clinical terminology used by providers. This field is only captured from automated data capture sources, such as AICS.` SCREEN: `S DIC(0)=$S($D(PXKLAYGO):"LOX",$D(APCDALVR):"LO",$D(ZTQUEUED):"LO",1:"EMQLO")` EXPLANATION: `OLD LOOKUP`
81101	COMMENTS	811;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>245!($L(X)<1) X` `MAXIMUM LENGTH: 245` LAST EDITED: `DEC 17, 2018` HELP-PROMPT: `Answer must be 1-245 characters in length.` DESCRIPTION: `This is a comment related to the procedure performed. The provider may enter this manually via the PCE User Interface.`
81201	VERIFIED	812;1	SET	'1' FOR ELECTRONICALLY SIGNED; '2' FOR VERIFIED BY PACKAGE; LAST EDITED: `DEC 17, 2018` HELP-PROMPT: `Enter 1 if verified by electronic signature or 2 if verified by package.` DESCRIPTION: `This is used to note how the event was verified and is automatically entered by the software.` TECHNICAL DESCR: `This is automatically entered by the software and is uneditable for users.` `UNEDITABLE`
81202	PACKAGE	812;2	POINTER TO PACKAGE FILE (#9.4)	PACKAGE(#9.4) LAST EDITED: `DEC 17, 2018` HELP-PROMPT: `Enter the VistA package from which this procedure originated.` DESCRIPTION: `This is the VistA package from which this procedure originated through PCE.` `This is automatically entered by the software and uneditable by users.` `UNEDITABLE`
81203	DATA SOURCE	812;3	POINTER TO PCE DATA SOURCE FILE (#839.7)	PCE DATA SOURCE(#839.7) LAST EDITED: `DEC 17, 2018` HELP-PROMPT: `Select the data source for this procedure entry through PCE.` DESCRIPTION: `This is the data source for this procedure. It is set automatically and uneditable by users.` `UNEDITABLE`

Customize PDF page

Package: PCE Patient Care Encounter

Global: ^AUPNVCPT

Information

Description

Accessed By FileMan Db Calls, Total: 17

Pointer To FileMan Files, Total: 10

Fields, Total: 28

ICR, Total: 1