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

Package: IFCAP

Global: ^PRCP(445.3


Information

FileMan FileNo FileMan Filename Package
445.3 INTERNAL DISTRIBUTION ORDER/ADJ. IFCAP

Description

Directly Accessed By Routines, Total: 32

Package Total Routines
IFCAP 32 ITEM NO.    ITEM SPECIFIC INFORMATION    PRCPAGS0    PRCPAGS2    PRCPBAL2    PRCPBAL3    PRCPCRPL    PRCPCSO1
PRCPCSOR    PRCPCSOU    PRCPHLP    PRCPHLPO    PRCPHLSO    PRCPOPD    PRCPOPEC    PRCPOPEE
PRCPOPER    PRCPOPL    PRCPOPP    PRCPOPP3    PRCPOPUS    ^PRCP(445.3    PRCPOPPP    PRCPOPR
PRCPOPT    PRCPOPT1    PRCPOPU    PRCPRDIS    PRCPRDO1    PRCPRLDO    PRCPUITM    PRCPUXRE

Accessed By FileMan Db Calls, Total: 6

Package Total Routines
IFCAP 6 PRCPCSOR    PRCPHLP    PRCPOPD    PRCPOPR    PRCPOPUS    PRCPRINQ    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
IFCAP 1 AUTOMATED SUPPLY STATION PROCESSING QUEUE(#447.1)[6]    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
IFCAP 3 ITEM MASTER(#441)[#445.37(.01)]    GENERIC INVENTORY(#445)[12]    INVENTORY DISTRIBUTED PATIENT SUPPLIES(#446.1)[131]    
Kernel 1 NEW PERSON(#200)[4]    
Registration 1 PATIENT(#2)[129]    
Surgery 1 SURGERY(#130)[130]    

Fields, Total: 15

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

  • INPUT TRANSFORM:  K:X&('$D(^PRCP(445.3,X,0))) X K:'$G(PRCPPRIV) X I $D(X) D:X="NEW" NEWORDER^PRCPOPUS(+$G(PRCPPRIM)) I $D(X) K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 15, 1993
  • HELP-PROMPT:  Enter 'NEW' to add a new order to the file, or enter the number identifying this order.
  • DESCRIPTION:  Enter 'NEW' to add a new order to the file, or enter the number identifying the order. This sequential number is updated automatically by the system when a new order is added. Each inventory point will use their own set
    of numbers.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  445.3^B
    1)= S ^PRCP(445.3,"B",$E(X,1,30),DA)=""
    2)= K ^PRCP(445.3,"B",$E(X,1,30),DA)
1 PRIMARY INVENTORY POINT 0;2 POINTER TO GENERIC INVENTORY FILE (#445)
************************REQUIRED FIELD************************
GENERIC INVENTORY(#445)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)=""P""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 03, 1987
  • HELP-PROMPT:  Primary Inventory point from which the Order originated.
  • DESCRIPTION:  
    This is the Primary Inventory point from which the Order originated.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)=""P"""
  • EXPLANATION:  Must be a Primary Inventory Point.
    UNEDITABLE
  • CROSS-REFERENCE:  445.3^ANXT^MUMPS
    1)= S:'$D(^PRCP(445.3,"ANXT",+X)) ^(+X)="" S:^(+X)=999999 ^(+X)=""
    2)= Q
    This cross reference is used to reset the distribution order number for the primary inventory point (stored in the variable X).
  • CROSS-REFERENCE:  445.3^AC
    1)= S ^PRCP(445.3,"AC",$E(X,1,30),DA)=""
    2)= K ^PRCP(445.3,"AC",$E(X,1,30),DA)
    This cross reference sorts the distribution orders by the primary inventory point. The node prcp(445.3,"ac",INVPT,DISTR) is set where INVPT is the internal primary inventory point number and DISTR is the internal
    distribution order number.
2 SECONDARY INVENTORY POINT 0;3 POINTER TO GENERIC INVENTORY FILE (#445)
************************REQUIRED FIELD************************
GENERIC INVENTORY(#445)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^PRCP(445,DA,0),U,3)=""S"",$D(^PRCP(445,+$P(^PRCP(445.3,DA,0),U,2),2,+Y,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 08, 1987
  • HELP-PROMPT:  The Secondary Inventory/Distribution point to which the Order is made.
  • DESCRIPTION:  
    This is a pointer to the Generic Inventory File, #445. This field contains the Secondary Inventory/Distribution point to which the Order/Adjustment is made.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)=""S"",$D(^PRCP(445,+$P(^PRCP(445.3,DA,0),U,2),2,+Y,0))"
  • EXPLANATION:  Must be a Secondary Inventory Point.
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  445.3^AD
    1)= S ^PRCP(445.3,"AD",$E(X,1,30),DA)=""
    2)= K ^PRCP(445.3,"AD",$E(X,1,30),DA)
    This cross reference sorts the distribution orders by the secondary inventory point. The node prcp(445.3,"ad",INVPT,DISTR) is set where INVPT is the internal secondary inventory point number and DISTR is the internal
    distribution order number.
3 DATE 0;4 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 21, 1987
  • HELP-PROMPT:  Date Order was entered
  • DESCRIPTION:  
    This is the date the Order was entered.
3.5 TYPE 0;8 SET
  • 'R' FOR REGULAR ORDER;
  • 'C' FOR CALL-IN ORDER;
  • 'E' FOR EMERGENCY;

  • LAST EDITED:  OCT 22, 1992
  • DESCRIPTION:  
    This is a code indicating the type of order (i.e., r=regular order; c=call-in order; e=emergency).
4 ENTERED BY 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 01, 1992
  • HELP-PROMPT:  Name of person who entered the Order
  • DESCRIPTION:  
    This is the name of the person who entered the Order.
5 ORDER STATUS 0;6 SET
  • 'R' FOR RELEASED TO FILL;
  • 'P' FOR POSTED;
  • 'B' FOR BACKORDERED;
  • 'F' FOR BACK-ORDER FILLED;

  • LAST EDITED:  MAR 08, 1999
  • HELP-PROMPT:  BLANK-Order entered by Secondary, not released to Primary. 'R'-Order ready to be filled. 'P'-Order posted. 'B'-Order has been posted and is back-ordered.
  • DESCRIPTION:  
    This is a code indicating the status of the order (i.e., R=order ready to be filled; P=order has been posted; B=order has been posted and is back-ordered; Blank=order entered by Secondary, not released to Primary).
  • TECHNICAL DESCR:  
6 PICKING TICKET PRINTED 0;7 SET
  • 'Y' FOR YES;

  • HELP-PROMPT:  Set to 'Y' automatically when picking ticket is printed, then causes 'REPRINT' to show on any subsequent printing of the same picking ticket. Helps prevent filling orders twice.
  • DESCRIPTION:  
    This code (i.e.,Y=Yes) is intended to help prevent filling orders twice. Entering Y, when picking ticket is printed, causes the flag REPRINT to be displayed on any subsequent printings of the same picking ticket.
7 ITEM NO. 1;0 POINTER Multiple #445.37 445.37

  • DESCRIPTION:  
    This is a pointer to the multiple, #445.37.
  • IDENTIFIED BY:  
    "WRITE": W ?10," ",$$DESCR^PRCPUX1(+$P(^PRCP(445.3,DA(1),0),U,2),+Y)
8 REMARKS 8;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>200!($L(X)<1) X
  • LAST EDITED:  JUL 27, 1994
  • HELP-PROMPT:  Answer must be 1-200 characters in length.
  • DESCRIPTION:  
    This field is used to store any remarks for the distribution order.
9 DATE POSTED 0;9 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 08, 1999
  • DESCRIPTION:  This is the date the distribution order was posted. It is automatically populated and is used to determine if the order is ready to be purged. Purging occurs when an order was posted more than 2 days ago. See
    POST^PRCPOPP for purging logic. (PRC*5*204)
10 TRANSMISSION DATE/TIME 0;10 DATE

  • INPUT TRANSFORM:  S %DT="ESTR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 21, 2000
  • DESCRIPTION:  The Release Date/Time field will be used as a flag to indicate an order was transmitted to a supply station. The value stored in this field will be the actual date and time that the order was transmitted to the supply
    station.
129 PATIENT NAME 2;1 POINTER TO PATIENT FILE (#2) PATIENT(#2)

  • LAST EDITED:  SEP 14, 1993
  • DESCRIPTION:  
    This field is used to store the patient name for distribution orders placed by Surgery for scheduled operations/procedures.
  • CROSS-REFERENCE:  445.3^ASR1^MUMPS
    1)= D XREFASR^PRCPUXRE(DA,X,129,"SET")
    2)= D XREFASR^PRCPUXRE(DA,X,129,"KILL")
    This cross reference sets ^PRCP(445.3,"ASR",patda,surgda,da) where patda is the patient internal entry number; surgda is the scheduled operation (file 130) internal entry number; da is the internal entry number for file
    445.3.
    This cross reference is used to lookup patients and scheduled operations for the ordering of surgical supplies (case carts and instrument kits).
130 SCHEDULED OPERATION 2;2 POINTER TO SURGERY FILE (#130) SURGERY(#130)

  • LAST EDITED:  SEP 14, 1993
  • DESCRIPTION:  
    This field is used to store the scheduled surgical operations for distribution orders.
  • CROSS-REFERENCE:  445.3^ASR2^MUMPS
    1)= D XREFASR^PRCPUXRE(DA,X,130,"SET")
    2)= D XREFASR^PRCPUXRE(DA,X,130,"KILL")
    This cross reference sets ^PRCP(445.3,"ASR",patda,surgda,da) where patda is the patient internal entry number; surgda is the scheduled operation (file 130) internal entry number; da is the internal entry number for file
    445.3.
    This cross reference is used to lookup patients and scheduled operations for the ordering of surgical supplies (case carts and instrument kits).
131 INVENTORY PATIENT LINK 2;3 POINTER TO INVENTORY DISTRIBUTED PATIENT SUPPLIES FILE (#446.1) INVENTORY DISTRIBUTED PATIENT SUPPLIES(#446.1)

  • LAST EDITED:  MAR 09, 1994
  • DESCRIPTION:  
    This field is used internally by the program to determine which entry in file 446.1 (INVENTORY PATIENT ITEMS) is used to track patient costs.

ICR, Total: 2

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #3708
  • M DATA EXTRACTOR
  • ICR #6522
  • ABOVE PAR
  • NUMBER (.01).
    Access: Both R/W w/Fileman

    PRIMARY INVENTORY POINT (1).
    Access: Both R/W w/Fileman

    SECONDARY INVENTORY PT (2).
    Access: Both R/W w/Fileman

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

    ENTERED BY (4).
    Access: Both R/W w/Fileman

    ORDER STATUS (5).
    Access: Both R/W w/Fileman

    PICKING TICKET PRINTED (6).
    Access: Both R/W w/Fileman

    TYPE (3.5).
    Access: Both R/W w/Fileman

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

    TRANSMISSION DATE/TIME (10).
    Access: Both R/W w/Fileman

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

    QTY.(PRIMARY UNIT OF ISSUE) (1).
    Access: Both R/W w/Fileman

    UNIT PRICE (PRI.UNIT OF ISSUE) (2).
    Access: Both R/W w/Fileman

    QTY.BACK-ORDERED(PRI.UNIT) (3).
    Access: Both R/W w/Fileman

    ADJUST PRIMARY INVENTORY? (4).
    Access: Both R/W w/Fileman

    ADJUST SECONDARY INVENTORY? (5).
    Access: Both R/W w/Fileman

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

    PATIENT NAME (129).
    Access: Both R/W w/Fileman

    SCHEDULED OPERATION (130).
    Access: Both R/W w/Fileman

    INVENTORY PATIENT LINK (131).
    Access: Both R/W w/Fileman

    REMARKS (8).
    Access: Both R/W w/Fileman

    'B' cross reference - used to look up by NUMBER

    External References

    Name Field # of Occurrence
    ^%DT 3+1, 9+1, 10+1
    ^DIC 1+1, 2+1
    Y^DIQ ID2+1
    NEWORDER^PRCPOPUS .01+1
    XREFASR^PRCPUXRE 129(XREF 1S), 129(XREF 1K), 130(XREF 1S), 130(XREF 1K)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(445 ID2+1
    ^PRCP(445 - [#445] ID2+1
    ^PRCP(445.3 - [#445.3] .01+1, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 2S), 1(XREF 2K), 2(XREF 1S), 2(XREF 1K)

    Naked Globals

    Name Field # of Occurrence
    ^( 1(XREF 1S)
    ^(0 ID2+1, ID3+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT 3+1*, 9+1*, 10+1*
    %I ID2+1*!
    >> C ID2+1*
    >> DA .01(XREF 1S), .01(XREF 1K), 1(XREF 2S), 1(XREF 2K), 2(XREF 1S), 2(XREF 1K), 129(XREF 1S), 129(XREF 1K), 130(XREF 1S), 130(XREF 1K)
    DIC ID2+1, ID3.5+1, ID5+1, 1+1!*, 2+1!*
    DIC("S" 1+1*, 1SCR+1*, 2+1*, 2SCR+1*
    >> DIE 1+1, 2+1
    >> PRCPPRIM .01+1
    >> PRCPPRIV .01+1
    U ID2+1, ID3+1
    X .01+1!, .01(XREF 1S), .01(XREF 1K), 1+1*!, 1(XREF 1S), 1(XREF 2S), 1(XREF 2K), 2+1*!, 2(XREF 1S), 2(XREF 1K)
    , 3+1*!, 8+1!, 9+1*!, 10+1*!, 129(XREF 1S), 129(XREF 1K), 130(XREF 1S), 130(XREF 1K)
    >> Y ID2+1*, 1+1, 2+1, 3+1, 9+1, 10+1
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All