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 |  Pointer To FileMan Files |  Fields |  ICR  | All
Print Page as PDF
Global: ^PRCP(445.2

Package: IFCAP

Global: ^PRCP(445.2


Information

FileMan FileNo FileMan Filename Package
445.2 INVENTORY TRANSACTION IFCAP

Description

Directly Accessed By Routines, Total: 38

Package Total Routines
IFCAP 36 PRCHITX    PRCPAWAP    PRCPAWC0    PRCPAWI1    PRCPAWR0    PRCPAWR1    PRCPLO2    PRCPRADJ
PRCPRADP    PRCPRDC0    PRCPRISP    PRCPRISS    PRCPRISW    PRCPRPIT    PRCPRQDP    PRCPRQDR
PRCPRSSP    PRCPRSSR    PRCPRTR1    PRCPRTRA    PRCPRVSR    PRCPSFIV    PRCPSFR0    PRCPSFSV
PRCPSLOI    PRCPSLOR    PRCPSMPI    PRCPSMPR    PRCPSMSI    PRCPUBAL    PRCPUTRS    PRCPUTRX
PRCPUXRE    PRCPWPL4    PRCPWPU1    PRCPXTRA    
Drug Accountability 2 PSACONW    PSALOG2    

Accessed By FileMan Db Calls, Total: 6

Package Total Routines
IFCAP 6 PRCP5POS    PRCPAWAP    PRCPRINQ    PRCPSMSI    PRCPUTRX    PRCPXTRA    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
IFCAP 4 ITEM MASTER(#441)[4]    CALM/LOG TRANSACTIONS CODE LIST(#420.4)[10.5]    SOURCE CODE(#420.8)[11]    GENERIC INVENTORY(#445)[.0114]    
Kernel 1 NEW PERSON(#200)[8.521]    

Fields, Total: 27

Field # Name Loc Type Details
.01 INVENTORY POINT 0;1 POINTER TO GENERIC INVENTORY FILE (#445)
************************REQUIRED FIELD************************
GENERIC INVENTORY(#445)

  • INPUT TRANSFORM:  K:'$G(PRCPPRIV) X
  • LAST EDITED:  MAY 03, 2000
  • HELP-PROMPT:  The Inventory point affected by the transaction.
  • DESCRIPTION:  
    This is the inventory point affected by the transaction. Each time an item has activity against it, the inventory point will be added as a new entry to this file.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  445.2^B
    1)= S ^PRCP(445.2,"B",$E(X,1,30),DA)=""
    2)= K ^PRCP(445.2,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  445.2^ANXT^MUMPS
    1)= S:'$D(^PRCP(445.2,"ANXT",X)) ^(X)=0 S:^(X)>9999999 ^(X)=0
    2)= Q
    This cross reference is used to reset the transaction register counter for an inventory point.
  • CROSS-REFERENCE:  445.2^AD^MUMPS
    1)= I $P(^PRCP(445.2,DA,0),U,5) S Z=+$P(^(0),U,5),^PRCP(445.2,"AD",X,Z,DA)="" K Z
    2)= I $P(^PRCP(445.2,DA,0),U,5) S Z=+$P(^(0),U,5) K ^PRCP(445.2,"AD",X,Z,DA),Z
    This cross reference is used to set the "AD" cross reference for the ITEM NO. field (#4) (stored in the variable Z) to the inventory point (stored in the variable X).
  • CROSS-REFERENCE:  445.2^AX1^MUMPS
    1)= D XREFAX^PRCPUXRE(DA,X,.01,"SET")
    2)= D XREFAX^PRCPUXRE(DA,X,.01,"KILL")
    This mumps cross reference builds the node:
    ^PRCP(445.2,"AX",invpt,transdate transtype,da)="" where:
    invpt = internal inventory point number
    from field .01;
    transdate = date of the transaction (no time)
    from field 2.5;
    transtype = type of transaction (R:receipts, etc)
    from field 3;
    da = internal entry number of the record.
    The call to set or kill the cross reference:
    D XREFAX^PRCPUXRE(DA,X,field,setkill) passes the following variables:
    DA = internal entry number of the record;
    X = field value to set or kill;
    field = field number, either .01, 2.5, or 3;
    setkill = pass "SET" to set xref, "KILL" to kill xref.
  • RECORD INDEXES:  D (#48)
1 TRANSACTION ID 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  APR 17, 1992
  • HELP-PROMPT:  A transaction is any event that affects the inventory level (receiving, distribution, etc.) The ID uniquely identifies the transaction (ex. Distribution Order No., P.O.No.)
  • DESCRIPTION:  This is the Transaction ID defined in two parts: A Transaction is any event that affects the inventory level (e.g., receiving, distribution, etc.). The ID uniquely identifies the transaction (e.g., Distribution Order No.,
    P.O. No.).
  • CROSS-REFERENCE:  445.2^T^MUMPS
    1)= S ^PRCP(445.2,"T",+^PRCP(445.2,DA,0),X,DA)=""
    2)= K ^PRCP(445.2,"T",+^PRCP(445.2,DA,0),X,DA)
    This cross reference is used to sort the transaction identifier by the inventory point.
2 DATE OF TRANSACTION 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 11, 1987
  • HELP-PROMPT:  Date of original transaction (ex., P.O.date for receiving, date Distribution Order was entered)
  • DESCRIPTION:  
    This is the date of the original transaction (e.g., P.O. date for receiving; date Distribution Order was entered).
2.5 DATE POSTED 0;17 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 03, 1993
  • HELP-PROMPT:  Date this transaction affected the inventory.
  • DESCRIPTION:  
    This is the date the transaction affected the inventory.
3 TYPE OF TRANSACTION 0;4 SET
************************REQUIRED FIELD************************
  • 'RC' FOR RECEIVING;
  • 'R' FOR DISTR.(REGULAR);
  • 'U' FOR USAGE;
  • 'A' FOR MANUAL ADJ.;
  • 'C' FOR DISTR.(CALL-IN);
  • 'S' FOR SET/PACKS;
  • 'P' FOR PHYSICAL COUNT;
  • 'E' FOR DISTR.(EMERGENCY);
  • 'Q' FOR QTY ON SUPPLY STATION;

  • LAST EDITED:  APR 16, 2001
  • HELP-PROMPT:  RC=Receive inventory, (R or C or E)=Distribute to an Inventory Point, U=Usage (ex.,patient, in-house), A=Manual adjustment, S=Sets/Packs, P=Physical Count, Q=adj to supply station qty
  • DESCRIPTION:  This code indicates the type of transaction (i.e., RC= receiving supplies into inventory; R or C or E= Distribution to another Inventory Point; U= Usage (e.g., patient, in-house); A= Manual adjustment to inventory;
    S=Assemble Sets/Packs; P= Physical Count; Q= Quantity adjusted to supply station value.
  • CROSS-REFERENCE:  445.2^AX2^MUMPS
    1)= D XREFAX^PRCPUXRE(DA,X,3,"SET")
    2)= D XREFAX^PRCPUXRE(DA,X,3,"KILL")
    This mumps cross reference builds the node:
    ^PRCP(445.2,"AX",invpt,transdate transtype,da)="" where:
    invpt = internal inventory point number
    from field .01;
    transdate = date of the transaction (no time)
    from field 2.5;
    transtype = type of transaction (R:receipts, etc)
    from field 3;
    da = internal entry number of the record.
    The call to set or kill the cross reference:
    D XREFAX^PRCPUXRE(DA,X,field,setkill) passes the following variables:
    DA = internal entry number of the record;
    X = field value to set or kill;
    field = field number, either .01, 2.5, or 3;
    setkill = pass "SET" to set xref, "KILL" to kill xref.
4 ITEM NO. 0;5 POINTER TO ITEM MASTER FILE (#441)
************************REQUIRED FIELD************************
ITEM MASTER(#441)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^PRCP(445,+^PRCP(445.2,DA,0),1,+Y,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAY 03, 1993
  • DESCRIPTION:  
    This is a pointer the Item Master File, #441 (Note: The item must be in the Inventory file for this Inventory Point).
  • SCREEN:  S DIC("S")="I $D(^PRCP(445,+^PRCP(445.2,DA,0),1,+Y,0))"
  • EXPLANATION:  Item must be in the Inventory file for this Inventory Point.
  • CROSS-REFERENCE:  445.2^AE^MUMPS
    1)= I $P(^PRCP(445.2,DA,0),U) S Z=+$P(^(0),U),^PRCP(445.2,"AD",Z,X,DA)="" K Z
    2)= I $P(^PRCP(445.2,DA,0),U) S Z=+$P(^(0),U) K ^PRCP(445.2,"AD",Z,X,DA),Z
    This cross reference sets the "AD" cross reference on the ITEM NO.? (field 4) to the inventory point (stored in the variable Z).
5 PACKAGING UNIT 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1) X
  • HELP-PROMPT:  Unit of Issue from this Inventory Point. ANSWER MUST BE 1-9 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the unit of issue from this Inventory Point.
6 QUANTITY 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<-999999)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN -999999 AND 999999. A plus indicates inventory was incremented by the quantity, a minus indicates inventory was decremented.
  • DESCRIPTION:  
    This is the number indicating whether the inventory was incremented by the quantity, or whether the inventory was decremented.
6.1 INVENTORY VALUE 0;22 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999.99)!(X<-999999.99) X
  • LAST EDITED:  JUL 07, 1992
  • HELP-PROMPT:  Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field is used to store the total dollar inventory value of the transaction.
  • TECHNICAL DESCR:  
    This field gets set in the routine PRCPUTR.
6.2 SELL VALUE 0;23 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?."-".N.1".".2N!(X>999999.99)!(X<-999999.99) X
  • HELP-PROMPT:  Type a Dollar Amount between -999999.99 and 999999.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field is used to store the total dollar sales value of the transaction.
  • TECHNICAL DESCR:  
    This field gets set in the routine PRCPUTR.
7 AVG.UNIT COST 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999.999)!(X<0)!(X?.E1"."4N.N) X
  • HELP-PROMPT:  Used to value the net affect to the Inventory of this transaction. TYPE A NUMBER BETWEEN 0 AND 9999999.999
  • DESCRIPTION:  
    This is the average unit cost which is used to value the net effect to the Inventory of this transaction.
8 SELLING UNIT PRICE 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999.999)!(X<0)!(X?.E1"."4N.N) X
  • HELP-PROMPT:  Used for cost accounting=the higher of the actual cost or the average at the time the transaction occurred. TYPE A NUMBER BETWEEN 0 AND 9999999.999
  • DESCRIPTION:  
    This is used for cost accounting (i.e., the higher of the actual cost or the average at the time the transaction occurred).
8.5 POSTED BY 0;16 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  JUN 01, 1992
  • HELP-PROMPT:  Enter the name of the User that initiated the Posting Process for this Transaction.
  • DESCRIPTION:  
    This field stores the user which created the activity against this item in the inventory point.
9 REASON CODE 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • HELP-PROMPT:  (WILL LATER BE A POINTER TO A FILE USED BY THE INTERFACE TO LOG I) USED PRIMARILY TO EXPLAIN REASON FOR MANUAL ADJUSTMENTS. ANSWER MUST BE 1-3 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field is no longer used.
9.5 ADDITIONAL REASON TEXT 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • HELP-PROMPT:  Used for Manual Adjustments and Usage Function to allow operator to describe why the transaction occurred. ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field is used to explain the reason for the activity against this item in the inventory point. It allows the user to enter a reason for making adjustments to items.
10 ISSUABLE/NONISSUABLE 0;11 SET
  • 'I' FOR ISSUABLE;
  • 'N' FOR NON-ISSUABLE;

  • LAST EDITED:  APR 20, 1992
  • HELP-PROMPT:  Used to denote transfers between Issuable and Non-Issuable Inventory. (Used in manual transactions only).
  • DESCRIPTION:  
    This code is used to denote transfers between Issuable and Non-Issuable Inventory adjustments.
10.5 LOG TRANSACTION CODE 0;13 POINTER TO CALM/LOG TRANSACTIONS CODE LIST FILE (#420.4) CALM/LOG TRANSACTIONS CODE LIST(#420.4)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^PRCD(420.4,+Y,0),U,6)=""LOG""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 11, 1989
  • DESCRIPTION:  
    This field is no longer used.
  • SCREEN:  S DIC("S")="I $P(^PRCD(420.4,+Y,0),U,6)=""LOG"""
  • EXPLANATION:  Only LOG transactions can be selected
11 SOURCE CODE 0;12 POINTER TO SOURCE CODE FILE (#420.8) SOURCE CODE(#420.8)

  • HELP-PROMPT:  Used on Receiving Transactions only. The source from which the item was procured.
  • DESCRIPTION:  
    This field is no longer used.
12 ACCOUNT CODE 0;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>1!($L(X)<1) X
  • HELP-PROMPT:  (May be made a pointer to a file in the future) Used in LOG transactions only, the code indicates a 4-digit GL code.
  • DESCRIPTION:  
    This field is no longer used.
  • TECHNICAL DESCR:  
13 VOUCHER NUMBER 0;15 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>6!($L(X)<1) X
  • LAST EDITED:  AUG 12, 1994
  • HELP-PROMPT:  Used for receipts from DEPOT only, this is the number that LOG used to identify a DEPOT transaction. ANSWER MUST BE 1-6 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This field stores the voucher number which appears on the voucher summary report and is used for reconciliation.
  • CROSS-REFERENCE:  445.2^V
    1)= S ^PRCP(445.2,"V",$E(X,1,30),DA)=""
    2)= K ^PRCP(445.2,"V",$E(X,1,30),DA)
    This cross reference is used to lookup transaction register entries by the voucher number.
14 OTHER INVENTORY POINT AFFECTED 0;18 POINTER TO GENERIC INVENTORY FILE (#445) GENERIC INVENTORY(#445)

  • LAST EDITED:  JUN 22, 1987
  • HELP-PROMPT:  For any transaction that affects two inventory points (ex.distribution), the name of the other inventory point affected should be entered here.
  • DESCRIPTION:  
    This is designated for the name of the other inventory point affected (i.e., in the case where there is a transaction that affects two inventory points).
20 ADJUSTMENT APPROVED DATE@TIME 0;20 DATE

  • INPUT TRANSFORM:  S %DT="ESTR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 17, 1992
  • DESCRIPTION:  This field is used for adjustment transactions. When an adjustment is made in the warehouse inventory point, this field is used to indicate the date and time the adjustment was approved by the accountable and approving
    officials.
21 ADJUSTMENT APPROVED BY 0;21 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  APR 17, 1992
  • DESCRIPTION:  
    This field is used for adjustment transactions. When an adjustment is made in the warehouse inventory point, this field is used to indicate the user who entered the adjustment as approved.
22 SUPPLY STATION USER 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<1) X
  • LAST EDITED:  APR 13, 2000
  • HELP-PROMPT:  Answer must be 1-50 characters in length.
  • DESCRIPTION:  
    The name of the person who took the supplies from the automated supply station.
23 RECIPIENT 2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  AUG 21, 2000
  • HELP-PROMPT:  This field contains the information of who or what received supplies obtained from the automated supply station. The response must be between 1 and 60 characters
  • DESCRIPTION:  
    This field holds the name of patient or area receiving supplies from an automated supply station. For example, floor stock, trashed, etc.
  • RECORD INDEXES:  D (#48)
410 TRANSACTION/P.O. NUMBER 0;19 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>18!($L(X)<10) X
  • LAST EDITED:  JAN 15, 1992
  • HELP-PROMPT:  Answer must be 10-18 characters in length.
  • DESCRIPTION:  This field is used to store the transaction number from file 410. The field is set to the transaction number when the warehouse posts an issue book to a primary. This field is used for lookups during the 'Reprint a
    Picking Ticket' option.
  • CROSS-REFERENCE:  445.2^C
    1)= S ^PRCP(445.2,"C",$E(X,1,30),DA)=""
    2)= K ^PRCP(445.2,"C",$E(X,1,30),DA)
    This cross reference is used for lookups on the transaction number for reprinting the picking ticket.
411 ISSUE BOOK LINE NUMBER 0;24 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 14, 1994
  • HELP-PROMPT:  Enter the Issue Book Line Number from 1 to 9999999.
  • DESCRIPTION:  
    This field is used to store the issue book line number. The issue book line number is used to look up on the issue book line to determine the subacct for fms.
    UNEDITABLE

ICR, Total: 2

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #3707
  • M DATA EXTRACTOR
  • ICR #6548
  • ABOVE PAR
  • ADVANCED PROSTHETICS ACQUISITION TOOL
  • INVENTORY POINT (.01).
    Access: Both R/W w/Fileman

    TRANSACTION ID (1).
    Access: Both R/W w/Fileman

    DATE OF TRANSACTION (2).
    Access: Both R/W w/Fileman

    TYPE OF TRANSACTION (3).
    Access: Both R/W w/Fileman

    ITEM NO. (4).
    Access: Both R/W w/Fileman

    PACKAGING UNIT (5).
    Access: Both R/W w/Fileman

    QUANTITY (6).
    Access: Both R/W w/Fileman

    AVG.UNIT COST (7).
    Access: Both R/W w/Fileman

    SELLING UNIT PRICE (8).
    Access: Both R/W w/Fileman

    REASON CODE (9).
    Access: Both R/W w/Fileman

    ISSUABLE/NONISSUABLE (10).
    Access: Read w/Fileman

    SOURCE CODE (11).
    Access: Read w/Fileman

    LOG TRANSACTION CODE (10.5).
    Access: Read w/Fileman

    ACCOUNT CODE (12).
    Access: Read w/Fileman

    VOUCHER NUMBER (13).
    Access: Read w/Fileman

    POSTED BY (8.5).
    Access: Both R/W w/Fileman

    DATE POSTED (2.5).
    Access: Both R/W w/Fileman

    OTHER INVENTORY POINT (14).
    Access: Read w/Fileman

    TRANSACTION/P.O. NUMBER (410).
    Access: Read w/Fileman

    ADJUSTMENT APPROVED DATE@TIME (20).
    Access: Read w/Fileman

    ADJUSTMENT APPROVED BY (21).
    Access: Read w/Fileman

    INVENTORY VALUE (6.1).
    Access: Both R/W w/Fileman

    SELL VALUE (6.2).
    Access: Both R/W w/Fileman

    ISSUE BOOK LINE NUMBER (411).
    Access: Read w/Fileman

    ADDITIONAL REASON TEXT (9.5).
    Access: Both R/W w/Fileman

    SUPPLY STATION USER (22).
    Access: Read w/Fileman

    RECIPIENT (23).
    Access: Read w/Fileman

    "B" cross reference - used to search by Inventory Point"C" cross reference - used to search by Transaction /P.O. Number."T" cross reference - used to search by Transaction ID."V" cross reference - used to search by Voucher Number.
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR  | All