Global: ^AUPNVSK

This is the type of Skin Test that was given to the patient at the encounter.

selectable.  APCDALVR Variable = APCDALVR("APCDTSK")

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

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

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

2)= Q

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

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

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

"AA",PATIENT,SKIN TEST,VISIT,DA

1)= D AQS1^AUPNCIXL

2)= D AQSKILL1^AUPNCIXL

This is a "Q-Man" cross-reference.

APCDALVR Variable = APCDALVR("APCDPAT")

UNEDITABLE

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

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

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

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

This is a Health Summary cross-reference.  "AA",PATIENT,SKIN TEST, VISIT,DA

This is the encounter defined in the Visit file that represents when and where the skin test 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 ^AUPNVSK("AD",$E(X,1,30),DA)=""

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

This cross-reference allows look-up of entries by patient name.

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

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

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

"AA",PATIENT,SKIN TEST,VISIT,DA

1)= D ADD^AUPNVSIT

2)= D SUB^AUPNVSIT

This cross-reference is for adding and subtracting from the dependent entry count in the VISIT file.

This is where a provider can designate the results of the skin test.

APCDALVR Variable = APCDALVR("APCDTRES")

SOURCE OF DATA:   082/SKREST

1)= Q

2)= Q

Enter the value representing the reading of the skin test.

APCDALVR Variable = APCDALVR("APCDTREA")

SOURCE OF DATA:   082/SKREAD

1)= Q

2)= Q

1)= S ^AUPNVSK("AE",$E(X,1,30),DA)=""

2)= K ^AUPNVSK("AE",$E(X,1,30),DA)

This cross-reference searches on the results of skin tests across all patients.

"AE",READING,DA

1)= D AQS^AUPNCIXL

2)= D AQSKILL^AUPNCIXL

This is a "Q-Man" cross-reference.

APCDALVR Variable = APCDALVR("APCDTDR")

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.

skin test 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 an historical skin test, the user should use the Historical Encounter entry action to document the historical skin test. Historical entries will not be eligible for workload 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 skin test.

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 skin test.

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("APCDTHL")

APCDALVR Variable = APCDALVR("APCDTSCS")

APCDALVR Variable = APCDALVR("APCDTSV")

1)= S ^AUPNVSK("AS",$E(X,1,30),DA)=""

2)= K ^AUPNVSK("AS",$E(X,1,30),DA)

APCDALVR Variable = APCDALVR("APCDTPNT")

1)= S ^AUPNVSK("APT",$E(X,1,30),DA)=""

2)= K ^AUPNVSK("APT",$E(X,1,30),DA)

This is a regular cross-reference on the PARENT field.  It is used by QMAN.

APCDALVR Variable = APCDALVR("APCDTEXK")

APCDALVR Variable = APCDALVR("APCDTOPR")

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

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

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

1.4)= S DIH=$G(^AUPNVSK(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.12,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 skin test 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".

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.

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

UNEDITABLE

UNEDITABLE

UNEDITABLE