Global: ^AUPNVPOD

This is the entry in the Exam file that represents what type of exam was done at the encounter.

APCDALVR Variable = APCDALVR("APCDTEX")

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

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

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

2)= Q

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

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

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

"AA",PATIENT,EXAM,VISIT,DA

1)= D AQE1^AUPNCIXL

2)= D AQEKILL1^AUPNCIXL

QMAN XREF

9.2 = S DIT(80)=$S($D(D0):D0,1:""),DIT(1)=$S($D(^AUPNVPOD(D0,0)):^(0),1:"")

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

APCDALVR Variable = APCDALVR("APCDPAT")

UNEDITABLE

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

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

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

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

This is the encounter in the Visit file that represents when and where the exam was done.

APCDALVR Variable = APCDALVR("APCDVSIT")

UNEDITABLE

1)= S ^AUPNVPOD("AD",$E(X,1,30),DA)=""

2)= K ^AUPNVPOD("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(^AUPNVPOD(DA,0),U,2)=""  S ^AUPNVPOD("AA",$P(^AUPNVPOD(DA,0),U,2),+^AUPNVPOD(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""

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

This cross-reference is used for searches in sequence by patient, exam pointer, inverted visit, internal entry number.

"AA",PATIENT,EXAM,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("APCDTRES")

1)= D AQE^AUPNCIXL

2)= D AQEKILL^AUPNCIXL

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.

measurement was done.  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 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 can be used to document the provider who ordered the exam.

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

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

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

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

1.4)= S DIH=$G(^AUPNVPOD(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.42,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 exam 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 addition or editing of data for this record.

Iterations of editing will be concatenated to the previous Data Source value, up to 85 characters.

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