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: ^ACRITEM

Package: Commitment Register

Global: ^ACRITEM


Information

FileMan FileNo FileMan Filename Package
9002195 ARMS STANDARD ITEM Commitment Register

Description

Directly Accessed By Routines, Total: 15

Package Total Routines
Commitment Register 15 ACRCST1    ACRCST2    ACRCST3    ACRCST4    ACRCST5    ACRCST6    ACRFFF2    ACRFPITM
ACRFSS1    ACRFSS11    ACRFSTK1    ACRFSTOK    ACRFVCTR    ACRPITM    ACRPSTM    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Commitment Register 4 ACRFPITM    ACRFSS11    ACRFSTK1    ACRFSTOK    

Pointed To By FileMan Files, Total: 3

Package Total FileMan Files
Commitment Register 3 ARMS STANDARD ITEM(#9002195)[15]    FMS SUPPLIES AND SERVICES(#9002193)[.12]    ARMS/SAMS INTERFACE(#9002198.9)[6]    

Pointer To FileMan Files, Total: 13

Package Total FileMan Files
Commitment Register 10 ARMS ACCOUNT CODES(#9002185.2)[5]    ARMS EOQ TABLES(#9002192.08)[19]    ARMS FEDERAL SUPPLY CLASSES(#9002195.3)[11]    ARMS STANDARD ITEM(#9002195)[15]    ARMS MANUFACTURER(#9002195.5)[34]    FMS STOCK CATEGORY CODE(#9002195.1)[7]    ARMS STORAGE LOCATION CODES(#9002192.1)[21]    ARMS SOURCE CODE(#9002192.05)[33]    ARMS TYPE CODE(#9002192.06)[18]    FMS UNIT OF ISSUE(#9002190.6)[3, 12, 29]
Utility Tables 3 AREA(#9999999.21)[#9002195.02(.01)]    OBJECT/SUB-OBJECT(#9999999.59)[6]    VENDOR(#9999999.11)[24]    

Fields, Total: 54

Field # Name Loc Type Details
.01 INDEX NUMBER 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>6!($L(X)<2) X D:$D(X) ^ACRFM11
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 2-6 characters in length.
  • DESCRIPTION:  
    Enter the INDEX NUMBER in the correct modulus-7 format.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002195^B
    1)= S ^ACRITEM("B",$E(X,1,30),DA)=""
    2)= K ^ACRITEM("B",$E(X,1,30),DA)
.02 KEY WORD 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>16!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-16 characters in length.
  • DESCRIPTION:  
    Enter a KEY WORD which can help to uniquely identify this item and can be used to look up the item.
  • CROSS-REFERENCE:  9002195^E
    1)= S ^ACRITEM("E",$E(X,1,30),DA)=""
    2)= K ^ACRITEM("E",$E(X,1,30),DA)
.03 SEQUENCE NUMBER 0;3 NUMBER

  • INPUT TRANSFORM:  S X=+X K:+X'=X!(X>3)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Number between 1 and 3, 0 Decimal Digits
  • DESCRIPTION:  
    This SEQUENCE NUMBER is set internally by the system.
1 DESCRIPTION1 DT;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    Enter the first line of DESCRIPTION of this item.
  • CROSS-REFERENCE:  9002195^C
    1)= S ^ACRITEM("C",$E(X,1,30),DA)=""
    2)= K ^ACRITEM("C",$E(X,1,30),DA)
2 DESCRIPTION2 DT;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Enter the second line of DESCRIPTION of this item.
3 AREA UNIT OF ISSUE DT;3 POINTER TO FMS UNIT OF ISSUE FILE (#9002190.6)
************************REQUIRED FIELD************************
FMS UNIT OF ISSUE(#9002190.6)

  • LAST EDITED:  APR 01, 1996
  • DESCRIPTION:  
    Enter the AREA UNIT OF ISSUE from the list.
  • CROSS-REFERENCE:  ^^TRIGGER^9002195^12
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRITEM(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(9002195,3,1,1,1.4)
    1.4)= S DIH=$S($D(^ACRITEM(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,12)=DIV,DIH=9002195,DIG=12 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= INTERNAL(AREA UNIT OF ISSUE)
    DELETE VALUE)= NO EFFECT
    FIELD)= UNIT OF ISSUE
4 NATIONAL STOCK NUMBER DT;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)<16!($L(X)>18) X I $D(X) K:X'?4N1"-"2UN1"-"3UN1"-"4UN.E X I $D(X) K:'$D(^ACRFSC("B",$E(X,1,4))) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  ANSWER MUST BE 16-17 CHARACTERS IN LENGTH IN THE FORMAT 'XXXX-XX-XXX-XXXXX' THE LAST CHARACTER IS OPTIONAL.
  • DESCRIPTION:  
    Enter the NATIONAL STOCK NUMBER in the format  XXXX-XX-XXX-XXXXX The final character represented by the 'Z' is optional.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002195^NSN
    1)= S ^ACRITEM("NSN",$E(X,1,30),DA)=""
    2)= K ^ACRITEM("NSN",$E(X,1,30),DA)
5 ACCOUNT CODE DT;5 POINTER TO ARMS ACCOUNT CODES FILE (#9002185.2)
************************REQUIRED FIELD************************
ARMS ACCOUNT CODES(#9002185.2)

  • LAST EDITED:  APR 01, 1996
  • DESCRIPTION:  
    Enter the ACCOUNT CODE from the list that is appropriate for this item.
  • NOTES:  TRIGGERED by the OBJECT SUB OBJECT field of the ARMS STANDARD ITEM File
6 OBJECT SUB OBJECT DT;6 POINTER TO OBJECT/SUB-OBJECT FILE (#9999999.59)
************************REQUIRED FIELD************************
OBJECT/SUB-OBJECT(#9999999.59)

  • INPUT TRANSFORM:  S DIC("S")="D OBJ^ACRFDIC" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 01, 1996
  • DESCRIPTION:  
    Enter the correct OBJECT CLASS CODE for this item.
  • SCREEN:  S DIC("S")="D OBJ^ACRFDIC"
  • EXPLANATION:  SCREENS FOR STOCK OBJECT CODES
  • NOTES:  TRIGGERED by the CATEGORY CODE field of the ARMS STANDARD ITEM File
  • CROSS-REFERENCE:  ^^TRIGGER^9002195^5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRITEM(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002195,6,1,1,1.1) X ^DD(9002195,6,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AUTTOBJC(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTOBJC(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,10),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRITEM(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,5)=DIV,DIH=9002195,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRITEM(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(9002195,6,1,1,2.1) X ^DD(9002195,6,1,1,2.4)
    2.1)= S X=DIV X ^DD(9002195,6,1,1,59.2) S Y(101)=X S X=$P(Y(102),U,10),X=X S X=X S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACRITEM(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,5)=DIV,DIH=9002195,DIG=5 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRITEM(D0,"DT")):^("DT"),1:""),D0=$P(Y(1),U,6) S:'$D(^AUTTOBJC(+D0,0)) D0=-1 S Y(102)=$S($D(^AUTTOBJC(D0,0)):^(0),1:"")
    CREATE VALUE)= OBJECT SUB OBJECT:INTERNAL(#8)
    DELETE VALUE)= OBJECT SUB OBJECT:INTERNAL(#8)
    FIELD)= ACCOUNT CODE
7 CATEGORY CODE DT;7 POINTER TO FMS STOCK CATEGORY CODE FILE (#9002195.1) FMS STOCK CATEGORY CODE(#9002195.1)

  • LAST EDITED:  APR 01, 1996
  • DESCRIPTION:  
    Enter the correct STOCK CATEGORY CODE for this item from the list.
  • CROSS-REFERENCE:  ^^TRIGGER^9002195^6
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRITEM(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002195,7,1,1,1.1) X ^DD(9002195,7,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACRSCC(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRSCC(D0,0)):^(0),1:""),Y(101)=X S X=$P(Y(102),U,3),X=X S X=X S D0=I(0,0)
    1.4)= S DIH=$S($D(^ACRITEM(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,6)=DIV,DIH=9002195,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACRITEM(D0,"DT")):^("DT"),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9002195,7,1,1,2.1) X ^DD(9002195,7,1,1,2.4)
    2.1)= S X=DIV X ^DD(9002195,7,1,1,59.2) S Y(101)=X S X=$P(Y(102),U,3),X=X S X=X S D0=I(0,0)
    2.4)= S DIH=$S($D(^ACRITEM(DIV(0),"DT")):^("DT"),1:""),DIV=X S $P(^("DT"),U,6)=DIV,DIH=9002195,DIG=6 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACRITEM(D0,"DT")):^("DT"),1:""),D0=$P(Y(1),U,7) S:'$D(^ACRSCC(+D0,0)) D0=-1 S Y(102)=$S($D(^ACRSCC(D0,0)):^(0),1:"")
    CREATE VALUE)= CATEGORY CODE:INTERNAL(#.03)
    DELETE VALUE)= CATEGORY CODE:INTERNAL(#.03)
    FIELD)= OBJECT SUB OBJECT
8 DATE ITEM ESTABLISHED DT;8 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the date the item was established.
  • DESCRIPTION:  
    Enter the DATE this item was ESTABLISHED as an ARMS STANDARD ITEM.
9 STORES STOCK ITEM DT;9 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    This indicates whether or not this standard item is from the SAMS system.
10 REVIEW POINT QUANTITY DT;10 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S X=+X K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    Enter the REVIEW POINT QUANTITY for this item.
11 FEDERAL GROUP CLASS DT;11 POINTER TO ARMS FEDERAL SUPPLY CLASSES FILE (#9002195.3)
************************REQUIRED FIELD************************
ARMS FEDERAL SUPPLY CLASSES(#9002195.3)

  • LAST EDITED:  APR 01, 1996
  • DESCRIPTION:  
    Enter the FEDERAL SUPPLY CLASS code from the list that is applicable to this item.
12 UNIT OF ISSUE DT;12 POINTER TO FMS UNIT OF ISSUE FILE (#9002190.6)
************************REQUIRED FIELD************************
FMS UNIT OF ISSUE(#9002190.6)

  • LAST EDITED:  APR 01, 1996
  • DESCRIPTION:  
    Enter the UNIT OF ISSUE for this item.
  • NOTES:  TRIGGERED by the AREA UNIT OF ISSUE field of the ARMS STANDARD ITEM File
13 UNIT COST DT;13 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>99999999.99)!(X<0) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 99999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    Enter the UNIT COST for this item.
14 STATUS DT;14 SET
************************REQUIRED FIELD************************
  • 'A' FOR ACTIVE;
  • 'I' FOR INACTIVE;

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter the code which correctly identifies the STATUS of this item.
15 PRIMARY ITEM DT;15 POINTER TO ARMS STANDARD ITEM FILE (#9002195) ARMS STANDARD ITEM(#9002195)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  This is a pointer back to the ARMS STANDARD ITEM file. When the same item is entered multiple times for different vendors, an entry is made in this field which shows which of the entries is the PRIMARY ITEM and to allow
    the system to know which items are related and are the same item from different vendors.
  • CROSS-REFERENCE:  9002195^G
    1)= S ^ACRITEM("G",$E(X,1,30),DA)=""
    2)= K ^ACRITEM("G",$E(X,1,30),DA)
16 STANDARD PACK QUANTITY DT;16 NUMBER

  • INPUT TRANSFORM:  S X=+X K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    Enter the STANDARD PACK QUANTITY.
18 TYPE CODE DT;18 POINTER TO ARMS TYPE CODE FILE (#9002192.06) ARMS TYPE CODE(#9002192.06)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter the TYPE CODE for this item from the list.
19 EOQ MODIFIER DT;19 POINTER TO ARMS EOQ TABLES FILE (#9002192.08) ARMS EOQ TABLES(#9002192.08)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter the EOQ MODIFIER for this item from the list.
20 PHARMACY CODE DT;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 1 character in length.
  • DESCRIPTION:  
    Enter the single character PHARMACY CODE.
21 STORAGE LOCATION DT1;9 POINTER TO ARMS STORAGE LOCATION CODES FILE (#9002192.1) ARMS STORAGE LOCATION CODES(#9002192.1)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter the correct STORAGE LOCATION for this item from the list of locations.
24 VENDOR DT1;1 POINTER TO VENDOR FILE (#9999999.11)
************************REQUIRED FIELD************************
VENDOR(#9999999.11)

  • LAST EDITED:  APR 01, 1996
  • DESCRIPTION:  
    Enter the first 2-3 characters of the VENDOR's name then select the correct one for this item.
  • CROSS-REFERENCE:  9002195^F
    1)= S ^ACRITEM("F",$E(X,1,30),DA)=""
    2)= K ^ACRITEM("F",$E(X,1,30),DA)
25 VENDOR ORDER NO. DT1;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>14!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-14 characters in length.
  • DESCRIPTION:  
    Enter the VENDOR ORDER NO. specified by the VENDOR.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002195^VON
    1)= S ^ACRITEM("VON",$E(X,1,30),DA)=""
    2)= K ^ACRITEM("VON",$E(X,1,30),DA)
26 VENDOR PRIORITY DT1;3 SET
  • '1' FOR PRIMARY;
  • '2' FOR SECONDARY;
  • '3' FOR TERTIARY;

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter the code to indicate whether this is the PRIMARY, SECONDARY or TERTIARY vendor for this item.
27 NDC DT1;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)'=13 X I $D(X) K:X'?5UN1"-"4UN1"-"2UN X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 4-14 characters in length.
  • DESCRIPTION:  
    Enter the NATIONAL DRUG CODE for this item.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002195^NDC
    1)= S ^ACRITEM("NDC",$E(X,1,30),DA)=""
    2)= K ^ACRITEM("NDC",$E(X,1,30),DA)
28 BIOEQUIVALENT RATING DT1;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 2 characters in length.
  • DESCRIPTION:  
    Enter the BIOEQUIVALENCY RATING for this item.
29 PURCHASE UNIT OF ISSUE DT1;6 POINTER TO FMS UNIT OF ISSUE FILE (#9002190.6)
************************REQUIRED FIELD************************
FMS UNIT OF ISSUE(#9002190.6)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    Enter the PURCHASE UNIT OF ISSUE for this item.
30 PURCHASE S/P DT1;7 NUMBER

  • INPUT TRANSFORM:  S X=+X K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • DESCRIPTION:  
    Enter the STANDARD PACK used for purchase of this item.
31 PURCHASE UNIT OF COST DT1;8 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>9999999)!(X<0) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 9999999, 2 Decimal Digits
  • DESCRIPTION:  
    Enter the PURCHASE UNIT COST for this item.
32 CONTRACT NUMBER DT1;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-15 characters in length.
  • DESCRIPTION:  
    Enter the CONTRACT NUMBER of the contract under which this item was purchased.
33 SOURCE CODE DT1;11 POINTER TO ARMS SOURCE CODE FILE (#9002192.05) ARMS SOURCE CODE(#9002192.05)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter the SOURCE CODE for this item from the list.
34 MANUFACTURER DT1;12 POINTER TO ARMS MANUFACTURER FILE (#9002195.5) ARMS MANUFACTURER(#9002195.5)

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    Enter the name of the MANUFACTURER of this item from the list of MANUFACTURER's.
35 CONTROLLED SUBSTANCE DT1;13 SET
  • '1' FOR I;
  • '2' FOR II;
  • '3' FOR III;
  • '4' FOR IV;
  • '5' FOR V;
  • '0' FOR NO;

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter the correct code from the list to indicate the controlled substance status of this item.
36 MATERIEL SAFETY DS REQUIRED DT1;14 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the appropriate code from the list.
  • DESCRIPTION:  
    Enter the code from the list to indicate whether or not a MATERIAL SAFETY DATA SHEET is REQUIRED for this item.
37 TERMS DT1;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Enter any TERMS applicable to the purchase of this item from this vendor.
38 EXPIRATION DATE DT1;16 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Enter the EXPIRATION DATE of the contract.
  • DESCRIPTION:  
    Enter the EXPIRATION DATE of the contract under which these items were purchased.
50 DESCRIPTION LINE 3 DT2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Enter the third line of DESCRIPTION of this item.
51 DESCRIPTION LINE 4 DT2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Enter the fourth line of DESCRIPTION of this item.
52 DESCRIPTION LINE 5 DT2;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Enter the fifth line of DESCRIPTION of this item.
53 DESCRIPTION LINE 6 DT2;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Enter the sixth line of DESCRIPTION of this item.
54 DESCRIPTION LINE 7 DT2;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Enter the seventh line of DESCRIPTION of this item.
55 DESCRIPTION LINE 8 DT2;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Enter the eighth line of DESCRIPTION for this item.
56 DESCRIPTION LINE 9 DT2;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Enter the ninth line of description for this item.
57 DESCRIPTION LINE 10 DT2;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    Enter the tenth line of DESCRIPTION for this item.
61 NOTES LINE 1 DT3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>48!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-48 characters in length.
  • DESCRIPTION:  
    Enter the first line of NOTES for the item.
62 NOTES LINE 2 DT3;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>48!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-48 characters in length.
  • DESCRIPTION:  
    Enter the second line of NOTES for this item.
63 NOTES LINE 3 DT3;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>48!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-48 characters in length.
  • DESCRIPTION:  
    Enter the third line of NOTES for this item.
64 NOTES LINE 4 DT3;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>48!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-48 characters in length.
  • DESCRIPTION:  
    Enter the fourth line of NOTES for this item.
65 NOTES LINE 5 DT3;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>48!($L(X)<3) X
  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  Answer must be 3-48 characters in length.
  • DESCRIPTION:  
    Enter the fifth line of NOTES for this item.
99 SEE ALSO 2;0 Multiple #9002195.099 9002195.099

  • LAST EDITED:  APR 01, 1996
  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a multiple field that allows the person establishing the STANDARD ITEM file entries to enter all additional names under which the item can be listed.
100 NOTES 1;0 WORD-PROCESSING #9002195.01

  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a word processing field which allows you to record any notes pertaining to this item.
200 AREA OFFICE 3;0 POINTER Multiple #9002195.02 9002195.02

  • HELP-PROMPT:  
  • DESCRIPTION:  
    This is a multiple field which allows the person managing the STANDARD ITEM file to enter AREA OFFICE specific INDEX NUMBERS and information for each item.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  All