Global: ^AUPNVCPT

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.

APCDALVR Variable = APCDALVR("APCDTCPT")

1)= S ^AUPNVCPT("B",$E(X,1,30),DA)=""

2)= K ^AUPNVCPT("B",$E(X,1,30),DA)

1)= S:$D(APCDLOOK) DIC("DR")=""

2)= Q

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

1)= N BISAVE S BISAVE=X S X="BIRPC6" X ^%ZOSF("TEST") S X=BISAVE K BISAVE I $T D CPTIMM^BIRPC6

2)= K BINULL

This cross-reference checks to see if the CPT Code is for an immunization.  If it is for an immunization, then the call to BIRPC6 checks to see if a V IMMUNIZATION entry exists for that patient and that vaccine on that

day.  If not, then a V IMM is created.

Short Descr:  MAP TO SNOMED/LOINC

Set Logic:  D CPT^AUPNMAP

Kill Logic:  Q

X(1):  CPT  (9000010.18,.01)  (Subscr 1)  (forwards)

9.2 = S Y(9000010.18,.019,80)=$S($D(D0):D0,1:""),Y(9000010.18,.019,1)=$S($D(^AUPNVCPT(D0,0)):^(0),1:""),D0=$P(Y(9000010.18,.019,1),U,1) S:'$D(^ICPT(+D0,0)) D0=-1

9.3 = S Y(9000010.18,.019,80)=$S($D(D0):D0,1:""),Y(9000010.18,.019,1)=$S($D(^AUPNVCPT(D0,0)):^(0),1:""),D0=$P(Y(9000010.18,.019,1),U,1) S:'$D(^ICPT(+D0,0)) D0=-1

This is the patient to whom the procedure was done during the encounter.

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.  APCDALVR Variable = APCDALVR("APCDPAT")

UNEDITABLE

1)= S ^AUPNVCPT("AC",$E(X,1,30),DA)=""

2)= K ^AUPNVCPT("AC",$E(X,1,30),DA)

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

1)= S ^AUPNVCPT("C",$E(X,1,30),DA)=""

2)= K ^AUPNVCPT("C",$E(X,1,30),DA)

This field allows look-up on the file by the patient's name.

This is the encounter or occasion of service defined in the Visit file that represents when and where the procedure was done.

This is a pointer to the Visit File (#9000010).  This field is stuffed by the applications.  No editing is allowed.  APCDALVR Variable = APCDALVR("APCDVSIT")

UNEDITABLE

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

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 paitent, CPT internal entry number, inverted visit date, and internal entry number.

"AA",PATIENT,CPT,VISIT,DA

1)= D ADD^AUPNVSIT

2)= D SUB^AUPNVSIT

This cross-reference adds and subtracts from the dependent entry count in the VISIT file.

the CPT (.01) field should be the CPT code that "most closely" represents the provider narrative for the procedure done.

the data capture mode is automated (e.g., AICS Encounter Forms).  APCDALVR Variable = APCDALVR("APCDTPN")

This is the diagnosis, from the ICD Diagnosis file, associated with the procedure performed.

IHS does not allow E codes, where VA does.  Both agencies do not permit inactive codes to be entered.

Age criteria is not presently in use on screening.  APCDALVR Variable = APCDALVR("APCDTDX")

This field identifies this procedure as the prinicipal procedure done to the patient at the encounter.

APCDALVR Variable = APCDALVR("APCDTPP")

This is the number of times this procedure was done to the patient during the encounter.

APCDALVR Variable = APCDALVR("APCDTUN")

appointment, not the time the provder 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.

service was provided.  The event date does not have to be the visit date, but it must be within 30 days before or after the visit, and not 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 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.  APCDALVR Variable = APCDALVR("APCDTCDT")

This field can be used to document the provider who ordered the procedure.

The person entered here must hold the "AK.PROVIDER" security key.  APCDALVR Variable = APCDALVR("APCDTPRV")

APCDALVR Variable = APCDALVR("APCDTCLN")

This is the provider who performed the procedure.

This person can be any person in the new person file.  The person does not have to hold the "AK.PROVIDER" security key.  APCDALVR Variable = APCDALVR("APCDTEPR")

APCDALVR Variable = APCDALVR("APCDTPNT")

APCDALVR Variable = APCDALVR("APCDTEXK")

APCDALVR Variable = APCDALVR("APCDTOPR")

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVCPT(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.18,1216,1,1,1.4)

1.4)= S DIH=$G(^AUPNVCPT(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.18,DIG=1217 D ^DICR

2)= Q

CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ

DELETE VALUE)= NO EFFECT

FIELD)= #1217

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVCPT(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.18,1216,1,2,1.4)

1.4)= S DIH=$G(^AUPNVCPT(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.18,DIG=1218 D ^DICR

2)= Q

CREATE VALUE)= I '$G(APCDVMUX) S X=$$NOW^XLFDT

DELETE VALUE)= NO EFFECT

FIELD)= #1218

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVCPT(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.18,1218,1,1,1.4)

1.4)= S DIH=$G(^AUPNVCPT(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.18,DIG=1219 D ^DICR

2)= Q

CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ

DELETE VALUE)= NO EFFECT

FIELD)= #1219

This field is automatically set to 1 if PCE detects that any original procedure data is being edited.

PCE filing logic automatically compares the before and after pictures of the record to determine if the edited flag should be set to "1".

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_";"...

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.

clinical data base definitions in the future.

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.

This is a commented related to the procedure performed.  The provider may enter this manually via the PCE User Interface.

UNEDITABLE

UNEDITABLE

UNEDITABLE