Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All

Print Page as PDF

Global: ^AUTTIML

Package: Utility Tables

Global: ^AUTTIML

Information

FileMan FileNo	FileMan Filename	Package
9999999.41	IMMUNIZATION LOT	Utility Tables

Description

Changes to this data dictionary should be coordinated thru the IHS DBA.

Directly Accessed By Routines, Total: 20

Accessed By FileMan Db Calls, Total: 6

Pointed To By FileMan Files, Total: 5

Pointer To FileMan Files, Total: 4

Fields, Total: 16

Field #	Name	Loc	Type	Details
.01	LOT NUMBER	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>25!($L(X)<3)!'(X'?1P.E) X S X=$$UPPER^BIUTL5($G(X))` LAST EDITED: `JUL 11, 2011` HELP-PROMPT: `ANSWER MUST BE 3-25 CHARACTERS IN LENGTH` DELETE TEST: `.01,0)= I 1` 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)
.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` LAST EDITED: `DEC 02, 2003` SCREEN: `S DIC("S")="I $P(^AUTTIMAN(Y,0),U,3)"` EXPLANATION: `Manufacturer must be Active.`
.03	STATUS	0;3	SET	**********************REQUIRED FIELD********************** '0' FOR ACTIVE; '1' FOR INACTIVE; LAST EDITED: `JAN 29, 1999` HELP-PROMPT: `Enter ACTIVE if this Lot Number should be available when recording the Lot Number for Immunizations. Enter INACTIVE if it should no longer be available.`
.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` LAST EDITED: `JAN 26, 2004` HELP-PROMPT: `Select a vaccine for which this is a valid Lot#.` SCREEN: `S DIC("S")="I '$P(^(0),U,7)"` EXPLANATION: `Pointed to vaccine must be active.` CROSS-REFERENCE: `9999999.41^C` 1)= S ^AUTTIML("C",$E(X,1,30),DA)="" 2)= K ^AUTTIML("C",$E(X,1,30),DA)
.05	VACCINE #2	0;5	POINTER TO IMMUNIZATION FILE (#9999999.14)	IMMUNIZATION(#9999999.14) LAST EDITED: `NOV 21, 2005` HELP-PROMPT: `Select a vaccine for which this is a valid Lot#. If there are multiple vaccines that pertain to this Lot# (a combination), enter them under Vaccine #1, Vaccine #2, Vaccine #3, etc.`
.06	VACCINE #3	0;6	POINTER TO IMMUNIZATION FILE (#9999999.14)	IMMUNIZATION(#9999999.14) LAST EDITED: `NOV 21, 2005` HELP-PROMPT: `Select a vaccine for which this is a valid Lot#. If there are multiple vaccines that pertain to this Lot# (a combination), enter them under Vaccine #1, Vaccine #2, Vaccine #3, etc.`
.07	VACCINE #4	0;7	POINTER TO IMMUNIZATION FILE (#9999999.14)	IMMUNIZATION(#9999999.14) LAST EDITED: `NOV 21, 2005` HELP-PROMPT: `Select a vaccine for which this is a valid Lot#. If there are multiple vaccines that pertain to this Lot# (a combination), enter them under Vaccine #1, Vaccine #2, Vaccine #3, etc.`
.08	VACCINE #5	0;8	POINTER TO IMMUNIZATION FILE (#9999999.14)	IMMUNIZATION(#9999999.14) LAST EDITED: `NOV 21, 2005` HELP-PROMPT: `Select a vaccine for which this is a valid Lot#. If there are multiple vaccines that pertain to this Lot# (a combination), enter them under Vaccine #1, Vaccine #2, Vaccine #3, etc.`
.09	EXPIRATION DATE	0;9	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAY 06, 2007` HELP-PROMPT: `Enter the expiration date for this Lot Number.` CROSS-REFERENCE: `9999999.41^AE` 1)= S ^AUTTIML("AE",$E(X,1,30),DA)="" 2)= K ^AUTTIML("AE",$E(X,1,30),DA)
.11	STARTING COUNT	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99999)!(X<1)!(X?.E1"."1.N) X` LAST EDITED: `AUG 20, 2008` HELP-PROMPT: `Enter the Starting Amount (number of doses) for this Lot.`
.12	DOSES UNUSED	0;12	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1000000)!(X<0)!(X?.E1"."1.N) X` LAST EDITED: `AUG 20, 2008` HELP-PROMPT: `Enter the number of doses of this Lot that are remaining (unused).`
.13	VACCINE SOURCE	0;13	SET	'v' FOR VFC; 'n' FOR NON-VFC; 'o' FOR Other State; 'i' FOR IHS/Tribal; LAST EDITED: `JAN 08, 2007` HELP-PROMPT: `Enter the source of this Lot.`
.14	HEALTH CARE FACILITY	0;14	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) INPUT TRANSFORM: `S DIC("S")="I $D(^APCCCTRL(Y,0))" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X` LAST EDITED: `JAN 29, 2008` HELP-PROMPT: `Select the Health Care Facility where this Lot will be stored and used.` SCREEN: `S DIC("S")="I $D(^APCCCTRL(Y,0))"` EXPLANATION: `This must be a Facility that users log onto when using this system.`
.15	LOW SUPPLY ALERT	0;15	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 30, 2008` HELP-PROMPT: `Enter number of doses reamining that will trigger a Low Suppy Alert for this Lot. Type a number between 0 and 9999 (no decimal digits).`
.16	LOT NUMBER FOR EXPORT	0;16	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<3) X` LAST EDITED: `AUG 21, 2008` HELP-PROMPT: `Enter the official lot number to be used for export to other registries. Answer must be 3-12 characters in length.`
.17	NDC CODE	0;17	POINTER TO BI TABLE NDC CODES FILE (#9002084.95)	BI TABLE NDC CODES(#9002084.95) LAST EDITED: `JUN 26, 2011` HELP-PROMPT: `Select the NDC Code for this lot.`

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | All