Global: ^AUPNVIMM

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

Entries in the Immunization File (#9999999.14) may be made inactive.  Inactive entries cannot be selected.  APCDALVR Variable = APCDALVR("APCDTIMM")

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

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

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

2)= Q

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

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

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

"AA",PATIENT,IMMUNIZATION,VISIT,DA

1)= S:$P($G(^AUTTSITE(1,0)),U,19)="Y" ^AUPNVIMM("AQ",(X_";"_$P($G(^AUPNVIMM(DA,0)),U,4)),DA)=""

2)= K:$P($G(^AUTTSITE(1,0)),U,19)="Y" ^AUPNVIMM("AQ",(X_";"_$P($G(^AUPNVIMM(DA,0)),U,4)),DA),^AUPNVIMM("AQ",(X_";"),DA)

Q-MAN XREF

APCDALVR Variable = APCDALVR("APCDPAT")

UNEDITABLE

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

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

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

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

This is the encounter defined in the Visit file that represents when and where the immunization was given.

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 ^AUPNVIMM("AD",$E(X,1,30),DA)=""

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

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

"AD",VISIT pointer, DA

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

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

This crossreference is used for searches in sequence by patient, Immunization pointer, inverted visit date, and internal entry number.

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

1)= S ^AUPNVIMM("ADT",$P(+^AUPNVSIT(X,0),"."),X,DA)=""

2)= K ^AUPNVIMM("ADT",$P(+^AUPNVSIT(X,0),"."),X,DA)

This field allows the provider to specify which series of immunization type was given to the patient.

APCDALVR Variable = APCDALVR("APCDTSER")

1)= N % S %=$S($P($G(^AUTTSITE(1,0)),U,19)="Y":1,1:0) K:% ^AUPNVIMM("AQ",$P(^AUPNVIMM(DA,0),U)_";",DA) S:% ^AUPNVIMM("AQ",($P(^AUPNVIMM(DA,0),U)_";"_X),DA)=""

2)= N % S %=$S($P($G(^AUTTSITE(1,0)),U,19)="Y":1,1:0) K:% ^AUPNVIMM("AQ",($P(^AUPNVIMM(DA,0),U)_";"_X),DA) S:% ^AUPNVIMM("AQ",($P(^AUPNVIMM(DA,0),U)_";"),DA)=""

Q-MAN XREF

APCDALVR Variable = APCDALVR("APCDTLOT")

This is the reaction that may have been observed by the provider as a result of the immunization given.

APCDALVR Variable = APCDALVR("APCDTREC")

This field allows the immunization to be recorded as contraindicated.  Reminders will include a check to see if the previous immunization was contraindicated before creating reminders.

APCDALVR Variable = APCDALVR("APCDTCON")

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 of after the visit date, with the restriction the date cannot be a future date.

actual time the immunization was given.  The immunization 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 the user wants to enter an historical immunization, the user should use the Historical Encounter entry action to document the historical immunization. Historical entries will not be eligible for credit.

PCE data sources for automatic (scanning) data capture will be blank unless the immunization date and time are passed to PCE for filing.  APCDALVR Variable = APCDALVR("APCDTCDT")

The field can be used to document the provider who ordered the immunization.

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

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

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

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

1.4)= S DIH=$G(^AUPNVIMM(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.11,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 immunization 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 entred 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 informtion.  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 immunization.  The provider may enter this manually via the PCE User Interface.

UNEDITABLE

UNEDITABLE

UNEDITABLE