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

Directly Accessed By Routines, Total: 20

Package Total Routines
Immunization Tracking 10 BILOT1    BIREPA3    BIREPE3    BIRPC3    BIRPC5    BIUTL2    BIUTL4    BIUTL6
BIUTL7    BIUTLFIX    
IHS Immunizations Interface 6 BYIMIMM1    BYIMIMM3    BYIMIMM4    BYIMMU2    BYIMMU21    BYIMSEGS    
Patient Care Component Reports 2 APCLSIL4    APCLSILI    
GUI Objects 1 BGOVIMM2    
IHS Electronic Health Record 1 BEHOENP1    

Accessed By FileMan Db Calls, Total: 6

Package Total Routines
IHS Immunizations Interface 3 BYIMIMM4    BYIMMU2    BYIMMU21    
GUI Objects 1 BGOVIMM    
IHS Electronic Health Record 1 BEHOENP1    
iCare 1 BQIVFTRI    

Pointed To By FileMan Files, Total: 5

Package Total FileMan Files
IHS Patient 2 V IMMUNIZATION(#9000010.11)[.05]    V SKIN TEST(#9000010.12)[.14]    
Immunization Tracking 1 BI V IMMUNIZATIONS DELETED(#9002084.118)[.05]    
Patient Care Component 1 PCC MAN REPORTS VISIT SORT(#9001003.7)[999913]    
Utility Tables 1 IMMUNIZATION(#9999999.14)[.04]    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Utility Tables 3 IMM MANUFACTURER(#9999999.04)[.02]    IMMUNIZATION(#9999999.14)[.04, .05, .06, .07, .08]    LOCATION(#9999999.06)[.14]    
Immunization Tracking 1 BI TABLE NDC CODES(#9002084.95)[.17]    

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