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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^AUTTIML

Package: PCE Patient Care Encounter

Global: ^AUTTIML


Information

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

Description

Directly Accessed By Routines, Total: 14

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

Accessed By FileMan Db Calls, Total: 6

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

Pointed To By FileMan Files, Total: 3

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

Pointer To FileMan Files, Total: 5

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.

External References

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

Global Variables Directly Accessed

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

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1, ID.04+1, ID.09+1, ID.1+1, ID.12+1, .11(XREF 1S), .11(XREF 1n1.4), .12+1

Local Variables

Legend:

>> 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)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All