Sub-Field: 9000010.112

Parent File	Name	Number	Package
V IMMUNIZATION(#9000010.11)	VIS OFFERED/GIVEN TO PATIENT	9000010.112	PCE Patient Care Encounter

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	VIS OFFERED/GIVEN TO PATIENT	0;1	POINTER TO VACCINE INFORMATION STATEMENT FILE (#920)	VACCINE INFORMATION STATEMENT(#920) INPUT TRANSFORM: `S DIC("S")="I $$OFFER^PXVUTIL" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` OUTPUT TRANSFORM: `NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!` LAST EDITED: `NOV 01, 2018` HELP-PROMPT: `Enter the VIS offered/given to the patient.` SCREEN: `S DIC("S")="I $$OFFER^PXVUTIL"` EXPLANATION: `Screen allows selection of Vaccine Information Statements appropriate for this immunization.` AUDIT: `YES, ALWAYS` AUDIT CONDITION: `I $G(DA)>1` CROSS-REFERENCE: `9000010.112^B` `1)= S ^AUPNVIMM(DA(1),2,"B",$E(X,1,30),DA)=""` `2)= K ^AUPNVIMM(DA(1),2,"B",$E(X,1,30),DA)`
.02	DATE VIS OFFERED/GIVEN	0;2	DATE	INPUT TRANSFORM: `S %DT="EXP" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `FEB 20, 2015` HELP-PROMPT: `Enter the date the VIS was offered/given to the patient.` DESCRIPTION: `This is the date the Vaccine Information Statement was offered to or given to the patient.` AUDIT: `YES, ALWAYS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9000010.112^D` `1)= S ^AUPNVIMM(DA(1),2,"D",$E(X,1,30),DA)=""` `2)= K ^AUPNVIMM(DA(1),2,"D",$E(X,1,30),DA)` `3)= USED FOR LOOKUPS` `This x-ref is used to do a (reverse) lookup for the latest VIS offered for this event.`

VIS OFFERED/GIVEN TO PATIENT

0;1

POINTER TO VACCINE INFORMATION STATEMENT FILE (#920)

INPUT TRANSFORM: S DIC("S")="I $$OFFER^PXVUTIL" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
OUTPUT TRANSFORM: NOT EXECUTABLE!! -- SPECIFIER NEEDS AN "O"!
LAST EDITED: NOV 01, 2018
HELP-PROMPT: Enter the VIS offered/given to the patient.
SCREEN: S DIC("S")="I $$OFFER^PXVUTIL"
EXPLANATION: Screen allows selection of Vaccine Information Statements appropriate for this immunization.
AUDIT: YES, ALWAYS
AUDIT CONDITION: I $G(DA)>1
CROSS-REFERENCE: 9000010.112^B
1)= S ^AUPNVIMM(DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^AUPNVIMM(DA(1),2,"B",$E(X,1,30),DA)

DATE VIS OFFERED/GIVEN

0;2

DATE

INPUT TRANSFORM: S %DT="EXP" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 20, 2015
HELP-PROMPT: Enter the date the VIS was offered/given to the patient.
DESCRIPTION:
This is the date the Vaccine Information Statement was offered to or given to the patient.
AUDIT: YES, ALWAYS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 9000010.112^D
1)= S ^AUPNVIMM(DA(1),2,"D",$E(X,1,30),DA)=""
2)= K ^AUPNVIMM(DA(1),2,"D",$E(X,1,30),DA)
3)= USED FOR LOOKUPS
This x-ref is used to do a (reverse) lookup for the latest VIS offered for this event.