Global: ^AUPNVTRT

This is a treatment or service provided which does not map to a CPT code but is clinically useful for patient care management.

APCDALVR Variable = APCDALVR("APCDTTRT")

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

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

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

2)= Q

9.2 = S Y(9000010.15,.019,80)=$S($D(D0):D0,1:""),Y(9000010.15,.019,1)=$S($D(^AUPNVTRT(D0,0)):^(0),1:"")

9.3 = X ^DD(9000010.15,.019,9.2) S D0=$P(Y(9000010.15,.019,1),U,1) S:'$D(^AUTTTRT(+D0,0)) D0=-1 S Y(9000010.15,.019,101)=$S($D(^AUTTTRT(D0,0)):^(0),1:"")

APCDALVR Variable = APCDALVR("APCDPAT")

UNEDITABLE

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

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

1)= I $P(^AUPNVTRT(DA,0),U,3)]"" S ^AUPNVTRT("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVTRT(DA,0),U,3),0),".",1)),DA)=""

2)= I $P(^AUPNVTRT(DA,0),U,3)]"" K ^AUPNVTRT("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVTRT(DA,0),U,3),0),".",1)),DA)

This is the encounter or occasion of service defined in the Visit file that represents when and where the treatment 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 ^AUPNVTRT("AD",$E(X,1,30),DA)=""

2)= K ^AUPNVTRT("AD",$E(X,1,30),DA)

This cross-reference is used for searches by the visit pointer and internal entry number.

1)= Q:$P(^AUPNVTRT(DA,0),U,2)=""  S ^AUPNVTRT("AA",$P(^AUPNVTRT(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""

2)= Q:$P(^AUPNVTRT(DA,0),U,2)=""  K ^AUPNVTRT("AA",$P(^AUPNVTRT(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)

This cross-reference is used for searches in sequence by patient, inverted visit date, and the internal entry number.

"AA",PATIENT,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.

APCDALVR Variable = APCDALVR("APCDTHM")

APCDALVR Variable = APCDALVR("APCDTPRO")

This is the provider's preferred text used to represent the treatment provided.

If the provider narrative does not have a related entry in the Treatment file the "OTHER" entry will be defined in the Treatment (.01) field.  APCDALVR Variable = APCDALVR("APCDTNQ")

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.

was given. 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 an 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.

APCDALVR Variable = APCDALVR("APCDTCDT")

This field may be used to document the provider who ordered the treatment.

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

APCDALVR Variable = APCDALVR("APCDTCLN")

This is the provider who gave the treatment.

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(^AUPNVTRT(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.15,1216,1,1,1.4)

1.4)= S DIH=$G(^AUPNVTRT(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.15,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(^AUPNVTRT(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.15,1216,1,2,1.4)

1.4)= S DIH=$G(^AUPNVTRT(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.15,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(^AUPNVTRT(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.15,1218,1,1,1.4)

1.4)= S DIH=$G(^AUPNVTRT(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.15,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 treatment 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 automatically

be 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.

help determine clinical terminology definitions in the future.

This field was added for use in the VA.  It is only used with automated data capture sources, such as AICS.

This is a comment related to the patient's treatment.  The provider may enter this manually via the PCE User Interface.

UNEDITABLE

UNEDITABLE

UNEDITABLE