Global: ^AUTTIML

FileMan FileNo	FileMan Filename	Package
9999999.41	IMMUNIZATION LOT	PCE Patient Care Encounter

Package	Total	Routines
PCE Patient Care Encounter	12	EFFECTIVE DATE/TIME PXCEVIMM PXPXRM1 PXRHS03 PXVEDIT PXVINV PXVNITLY PXVRPC1 PXVRPC4 PXVTRAN PXVXR ^AUTTIML

Package	Total	Routines
PCE Patient Care Encounter	5	PXCEVIMM PXVEDIT PXVNITLY PXVRPC1 PXVTRAN
Enterprise Health Management Platform	1	HMPDJ09

Package	Total	FileMan Files
PCE Patient Care Encounter	3	V IMMUNIZATION DELETED(#9000080.11)[.05, 1207] V IMMUNIZATION(#9000010.11)[.05, 1207] IMMUNIZATION(#9999999.14)[.04]

Package	Total	FileMan Files
PCE Patient Care Encounter	3	IMM MANUFACTURER(#9999999.04)[.02] IMMUNIZATION(#9999999.14)[.04, .05, .06, .07, .08] LOCATION(#9999999.06)[.14]
Kernel	2	INSTITUTION(#4)[.1] NEW PERSON(#200)[#9999999.411(.02)]

Fields, Total: 19

Field #	Name	Loc	Type	Details
.01	LOT NUMBER	0;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>25!($L(X)<3)!'(X'?1P.E) X I $D(X),$G(DA) D INUSE^PXVXR Q` LAST EDITED: `JUL 01, 2016` HELP-PROMPT: `Answer must be 3-25 characters in length.` DESCRIPTION: `This is the lot number of a manufacturer's immunization/vaccine product.` TECHNICAL DESCR: `A manufacturer's lot number for an immunization, 3-25 characters. In the Department of Veterans Affairs version of this file, more than one entry may have the same LOT NUMBER, but entries must have a unique combination of` `LOT NUMBER and MANUFACTURER.` AUDIT: `YES, ALWAYS` DELETE TEST: `1,0)= I $D(^AUPNVIMM("LN",DA)) D EN^DDIOL("This lot number is already in use. Deletion is not allowed! ",,"!!,?2")` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9999999.41^B` `1)= S ^AUTTIML("B",$E(X,1,30),DA)=""` `2)= K ^AUTTIML("B",$E(X,1,30),DA)` RECORD INDEXES: `AC (#1324), AD (#1684)`
.02	MANUFACTURER	0;2	POINTER TO IMM MANUFACTURER FILE (#9999999.04)	**********************REQUIRED FIELD********************** IMM MANUFACTURER(#9999999.04) INPUT TRANSFORM: `S DIC("S")="I '$P(^AUTTIMAN(Y,0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$G(DA) D COMB1^PXVXR Q` LAST EDITED: `JUL 01, 2016` HELP-PROMPT: `Select the manufacturer of this lot number.` DESCRIPTION: `This is the manufacturer using this lot number. You will only be able to select manufacturers with a STATUS of ACTIVE.` TECHNICAL DESCR: `This field is a pointer to the IMM MANFACTURER file (9999999.04). The field is screened so that only manufacturers with status of active can be seen in the lookup.` SCREEN: `S DIC("S")="I '$P(^AUTTIMAN(Y,0),U,3)"` EXPLANATION: `You can only select a manufacturer with a STATUS of ACTIVE.` AUDIT: `YES, ALWAYS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` RECORD INDEXES: `AC (#1324)`
.03	STATUS	0;3	SET	'2' FOR EXPIRED; '1' FOR INACTIVE; '0' FOR ACTIVE; LAST EDITED: `FEB 28, 2019` HELP-PROMPT: `Enter '1' or 'INACTIVE' to designate this lot as inactive.` DESCRIPTION: `This is the status of this lot number, used to determine if this lot is usable. As long this field is blank or has a value of '0', it will be seen as ACTIVE. If a '1' is entered, it will be seen as INACTIVE.` TECHNICAL DESCR: `This field is seen as ACTIVE as long it is blank or a '0', which may be the opposite of what you are used to seeing.` AUDIT: `YES, ALWAYS` RECORD INDEXES: `AD (#1684)`
.04	VACCINE	0;4	POINTER TO IMMUNIZATION FILE (#9999999.14)	**********************REQUIRED FIELD********************** IMMUNIZATION(#9999999.14) INPUT TRANSFORM: `S DIC("S")="I '$P(^(0),U,7)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$G(DA) D COMB2^PXVXR Q` LAST EDITED: `JUL 01, 2016` HELP-PROMPT: `Enter a vaccine that uses this lot number and manufacturer.` DESCRIPTION: `This is a VACCINE that is labeled with this lot number and produced by lot's manufacturer. The vaccine must designated as active.` SCREEN: `S DIC("S")="I '$P(^(0),U,7)"` EXPLANATION: `Vaccine must be active.` AUDIT: `YES, ALWAYS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9999999.41^C` `1)= S ^AUTTIML("C",$E(X,1,30),DA)=""` `2)= K ^AUTTIML("C",$E(X,1,30),DA)` `3)= This cross reference is used for lookups.` `This cross reference allows lot numbers to be selected by their associated IMMUNIZATION (VACCINE).` RECORD INDEXES: `AC (#1324)`
.05	VACCINE #2	0;5	POINTER TO IMMUNIZATION FILE (#9999999.14)	IMMUNIZATION(#9999999.14) LAST EDITED: `JUL 20, 2015` HELP-PROMPT: `Enter a vaccine that has this lot number and manufacturer.` DESCRIPTION: `This is a VACCINE that is labeled with this lot number and produced by lot's manufacturer.` TECHNICAL DESCR: `This field is not used by the Department of Veterans Affairs. It is included for backward compatibility with the Indian Health Service version of the file.` AUDIT: `YES, ALWAYS`
.06	VACCINE #3	0;6	POINTER TO IMMUNIZATION FILE (#9999999.14)	IMMUNIZATION(#9999999.14) LAST EDITED: `JUL 20, 2015` HELP-PROMPT: `Enter a vaccine that has this lot number and manufacturer.` DESCRIPTION: `This is a VACCINE that is labeled with this lot number and produced by lot's manufacturer.` TECHNICAL DESCR: `This field is not used by the Department of Veterans Affairs. It is included for backward compatibility with the Indian Health Service version of the file.` AUDIT: `YES, ALWAYS`
.07	VACCINE #4	0;7	POINTER TO IMMUNIZATION FILE (#9999999.14)	IMMUNIZATION(#9999999.14) LAST EDITED: `JUL 20, 2015` HELP-PROMPT: `Enter a vaccine that has this lot number and manufacturer.` DESCRIPTION: `This is a VACCINE that is labeled with this lot number and produced by lot's manufacturer.` TECHNICAL DESCR: `This field is not used by the Department of Veterans Affairs. It is included for backward compatibility with the Indian Health Service version of the file.` AUDIT: `YES, ALWAYS`
.08	VACCINE #5	0;8	POINTER TO IMMUNIZATION FILE (#9999999.14)	IMMUNIZATION(#9999999.14) LAST EDITED: `JUL 20, 2015` HELP-PROMPT: `Enter vaccine that has this lot number and manufacturer.` DESCRIPTION: `This is a VACCINE that is labeled with this lot number and produced by lot's manufacturer.` TECHNICAL DESCR: `This field is not used by the Department of Veterans Affairs. It is included for backward compatibility with the Indian Health Service version of the file.` AUDIT: `YES, ALWAYS`
.09	EXPIRATION DATE	0;9	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X I $D(X) D EXP^PXVXR Q` LAST EDITED: `JUL 20, 2015` HELP-PROMPT: `Enter the expiration date for this lot number.` DESCRIPTION: `This is the date that the immunization represented by this lot number is due to expire, as determined by the manufacturer.` TECHNICAL DESCR: `This field is used to determine if the immunization represented by this lot number has expired. This field is checked nightly by a background task. If the EXPIRATION DATE is equal to that day's date (or in the past), the` `STATUS field is set to "EXPIRED".` AUDIT: `YES, ALWAYS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9999999.41^AE` `1)= S ^AUTTIML("AE",$E(X,1,30),DA)=""` `2)= K ^AUTTIML("AE",$E(X,1,30),DA)` `Used by a task set to run nightly to change the status of lot numbers that have expired.`
.1	ASSOCIATED VA FACILITY	0;10	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `JUL 01, 2016` HELP-PROMPT: `Enter the name or station number of the VA facility associated with this lot number.` DESCRIPTION: `This is the VA facility associated with this lot number. At multi-division institutions this facility is a division of that multi-division institution.` AUDIT: `YES, ALWAYS` `UNEDITABLE` CROSS-REFERENCE: `9999999.41^AF` `1)= S ^AUTTIML("AF",$E(X,1,30),DA)=""` `2)= K ^AUTTIML("AF",$E(X,1,30),DA)` `This cross reference is used for sorting by associated facility.` RECORD INDEXES: `AC (#1324)`
.11	STARTING COUNT	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 20, 2015` HELP-PROMPT: `Enter the initial number of doses for this lot.` DESCRIPTION: `This is the starting number of doses for this lot, from 1 to 99,999.` TECHNICAL DESCR: `This is the initial number of doses for this lot, which should be a number from 1 to 99999. If the DOSES UNUSED field is empty, it is automatically set to the number entered here, via a trigger.` AUDIT: `YES, ALWAYS` CROSS-REFERENCE: `^^TRIGGER^9999999.41^.12` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^AUTTIML(D0,0)):^(0),1:"") S X=$P(Y(1),U,12)="" I X S X=DIV S Y(1)=$S($D(^AUTTIML(D0,0)):^(0),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV S X=DIV X ^DD(9999999.41` `,.11,1,1,1.4)` `1.4)= S DIH=$G(^AUTTIML(DIV(0),0)),DIV=X S $P(^(0),U,12)=DIV,DIH=9999999.41,DIG=.12 D ^DICR` `2)= Q` `CREATE CONDITION)= DOSES UNUSED=""` `CREATE VALUE)= STARTING COUNT` `DELETE VALUE)= NO EFFECT` `FIELD)= DOSES UNUSED` `NOREINDEX)= 1` `When the STARTING COUNT is entered, DOSES UNUSED is checked. If DOSES UNUSED is NULL, then it is set to the STARTING COUNT.`
.12	DOSES UNUSED	0;12	NUMBER	INPUT TRANSFORM: `K:$S(+X'=X:1,X>99999:1,X<0:1,X?.E1"."1N.N:1,$P(^AUTTIML(DA,0),"^",11)="":0,1:X>$P(^(0),"^",11)) X` LAST EDITED: `JUL 20, 2015` HELP-PROMPT: `Enter the number of doses remaining from this lot.` DESCRIPTION: `This is the number of remaining doses available for this lot. The number cannot be greater than the original number of doses for this lot.` TECHNICAL DESCR: `This is the number doses for this lot that have not yet been used. The number entered is checked against the number entered for the STARTING COUNT field and cannot be greater.` AUDIT: `YES, ALWAYS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` `TRIGGERED by the STARTING COUNT field of the IMMUNIZATION LOT File`
.13	VACCINE SOURCE	0;13	SET	'v' FOR VFC; 'n' FOR NON-VFC; 'o' FOR Other State; 'i' FOR IHS/Tribal; LAST EDITED: `JUL 20, 2015` HELP-PROMPT: `Enter the source of this lot.` DESCRIPTION: `This is the source of this lot, where it was obtained.` TECHNICAL DESCR: `This field is not used by the Department of Veterans Affairs. It is included for backward compatibility with the Indian Health Service version of the file.` AUDIT: `YES, ALWAYS`
.14	HEALTH CARE FACILITY	0;14	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `JUL 20, 2015` HELP-PROMPT: `Select the Health Care Facility (location) where this lot will be stored and used.` DESCRIPTION: `This is the location (facility) where this lot will be stored and used.` TECHNICAL DESCR: `This field is not used by the Department of Veterans Affairs. It is included for backward compatibility with the Indian Health Service version of the file.` AUDIT: `YES, ALWAYS`
.15	LOW SUPPLY ALERT	0;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99998)!(X<0)!(X?.E1"."1N.N)!(X>$P(^AUTTIML(DA,0),U,11)) X` LAST EDITED: `JUL 20, 2015` HELP-PROMPT: `Enter the number of doses remaining that will trigger a Low Supply Alert for this lot, between 0 and 99,998.` DESCRIPTION: `This is a number that is used to determine if a Low Supply alert should be issued. The number must be between 0 and 99,998 and cannot be greater than the STARTING COUNT.` TECHNICAL DESCR: `A number field between 0 and 99998. Input Transform also checks that the entry is not greater than the number in the STARTING COUNT field.` AUDIT: `YES, ALWAYS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.16	LOT NUMBER FOR EXPORT	0;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<3) X` LAST EDITED: `JUL 20, 2015` HELP-PROMPT: `Enter the official lot number to be used for export to other registries, 3 to 12 characters in length.` DESCRIPTION: `This is this lot number's corresponding official lot number to be used for exporting to other registries.` TECHNICAL DESCR: `This field is not used by the Department of Veterans Affairs. It is included for backward compatibility with the Indian Health Service version of the file.` AUDIT: `YES, ALWAYS`
.17	NDC CODE	0;17	POINTER *** TO AN UNDEFINED FILE (#9002084.95), STORED IN ^BINDC *****	LAST EDITED: `JUL 20, 2015` HELP-PROMPT: `Select the NDC Code for this lot.` DESCRIPTION: `This is the NDC Code for this lot.` TECHNICAL DESCR: `This field is not used by the Department of Veterans Affairs. It is included for backward compatibility with the Indian Health Service version of the file.` `This field points to Indian Health Service's BI TABLE NDC CODES file (#9002084.95) which is not used by the Department of Veterans Affairs.` AUDIT: `YES, ALWAYS`
.18	NDC CODE (VA)	0;18	FREE TEXT	INPUT TRANSFORM: `D P01^PXVNDC` OUTPUT TRANSFORM: `S:Y Y=$$NDCOUT^PXVNDC(Y)` LAST EDITED: `FEB 17, 2016` HELP-PROMPT: `Enter the National Drug Code (NDC) for this lot.` DESCRIPTION: `This is the National Drug Code (NDC) for this lot.` EXECUTABLE HELP: `D QUEST^PXVNDC` AUDIT: `YES, ALWAYS` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
1	EFFECTIVE DATE/TIME	1;0	DATE Multiple #9999999.411	9999999.411 DESCRIPTION: `This multiple records any status changes to the Immunization Lot.`

Name	Field # of Occurrence
^%DT	.09+1
EN^DDIOL	ID.12+1, .01DEL1+1
^DIC	.02+1, .04+1
^DICR	.11(XREF 1n1.4)
$$FMTE^DILIBF	ID.09+1
Y^DIQ	ID.02+1, ID.04+1, ID.1+1
$$NDCOUT^PXVNDC	.18OT+1
P01^PXVNDC	.18+1
QUEST^PXVNDC	.18(HELP )
COMB1^PXVXR	.02+1
COMB2^PXVXR	.04+1
EXP^PXVXR	.09+1
INUSE^PXVXR	.01+1
UPDSTAT^PXVXR	IXADSL+1

Name	Line Occurrences (* Changed, ! Killed)
^AUPNVIMM("LN"	.01DEL1+1
^AUTTIMAN - [#9999999.04]	ID.02+1
^AUTTIML - [#9999999.41]	.11(XREF 1S), .11(XREF 1n1.4), .12+1, .15+1
^AUTTIML("AC"	IXACSL+1*, IXACKL+1!, IXACKEIC+1!
^AUTTIML("AE"	.09(XREF 1S), .09(XREF 1K)
^AUTTIML("AF"	.1(XREF 1S), .1(XREF 1K)
^AUTTIML("B"	.01(XREF 1S), .01(XREF 1K)
^AUTTIML("C"	.04(XREF 1S), .04(XREF 1K)
^AUTTIMM - [#9999999.14]	ID.04+1
^DD(4	ID.1+1
^DD(9999999.04	ID.02+1
^DD(9999999.14	ID.04+1
^DD(9999999.41	.11(XREF 1S)
^DIC(4 - [#4]	ID.1+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.09+1*
%I	ID.02+1!, ID.04+1!, ID.1+1*!
>> C	ID.02+1, ID.04+1, ID.1+1*
>> D0	.11(XREF 1S)
>> DA	IXACSL+1, IXACKL+1, IXADSL+1, .01+1, .01DEL1+1, .01(XREF 1S), .01(XREF 1K), .02+1, .04+1, .04(XREF 1S) , .04(XREF 1K), .09(XREF 1S), .09(XREF 1K), .1(XREF 1S), .1(XREF 1K), .11(XREF 1S), .12+1, .15+1
DIC	ID.02+1, ID.04+1, ID.1+1, .02+1!, .04+1!
DIC("S"	.02+1, .02SCR+1, .04+1, .04SCR+1
>> DIE	.02+1, .04+1
>> DIG	.11(XREF 1n1.4)
>> DIH	.11(XREF 1n1.4)
>> DIU	.11(XREF 1S)
DIV	.11(XREF 1S), .11(XREF 1n1.4)
DIV(0	.11(XREF 1S), .11(XREF 1n1.4)
U	ID.02+1, ID.04+1, ID.09+1, ID.1+1, ID.12+1, .11(XREF 1S), .11(XREF 1n1.4), .15+1
X	IXACSCC+1, IXACKCC+1, IXACP3TS+1, IXACP4TS+1, .01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, .04+1!, .04(XREF 1S) , .04(XREF 1K), .09+1*!, .09(XREF 1S), .09(XREF 1K), .1(XREF 1S), .1(XREF 1K), .11+1!, .11(XREF 1S), .11(XREF 1n1.4), .12+1! , .15+1!, .16+1!
X(1	IXACSL+1, IXACKL+1
X(2	IXACSL+1, IXACKL+1
X(3	IXACP4TS+1
X(4	IXACSL+1, IXACKL+1
>> X1(2	IXADSL+1
>> X2(2	IXADSL+1
Y	ID.02+1, ID.04+1, ID.1+1, .02+1, .04+1, .09+1, .11(XREF 1S), .18OT+1
Y(0	.11(XREF 1S), .18OT+1*
Y(1	.11(XREF 1S)

Customize PDF page

Package: PCE Patient Care Encounter

Global: ^AUTTIML

Information

Description

Directly Accessed By Routines, Total: 14

Accessed By FileMan Db Calls, Total: 6

Pointed To By FileMan Files, Total: 3

Pointer To FileMan Files, Total: 5

Fields, Total: 19

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: