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: ^PRC(442.8

Package: IFCAP

Global: ^PRC(442.8


Information

FileMan FileNo FileMan Filename Package
442.8 DELIVERY SCHEDULE (ORDER) IFCAP

Description

Directly Accessed By Routines, Total: 22

Package Total Routines
IFCAP 22 ITEM    PARTIAL    PRCFFU5    PRCH2138    PRCH65    PRCHAMDESC    PRCHAMYB    PRCHDP4
PRCHE2    PRCHMA0    PRCHNPO7    PRCHRCS7    PRCHREC4    PRCHT114    PRCHT115    PRCHT116
PRCHT313    PRCHT314    PRCHT315    PRCOE2    ^PRC(442.8    PRCV442A    

Accessed By FileMan Db Calls, Total: 9

Package Total Routines
IFCAP 9 PRCH65    PRCHAMYB    PRCHE2    PRCHNPO7    PRCHSP1    PRCHT115    PRCHT116    PRCHT314
PRCHT315    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
IFCAP 1 AMENDMENTS TO DELIVERY SCHEDULES(#441.7)[6]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
IFCAP 1 DELIVERY POINT(#410.8)[3]    

Fields, Total: 6

Field # Name Loc Type Details
.01 ORDER NUMBER (PAT) 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X),'$O(^PRC(442,"B",X,0)) K X
  • LAST EDITED:  MAY 12, 1997
  • HELP-PROMPT:  Enter entire PAT number (must be a P.O. or Requisition on the Procurement & Accounting Transactions File)
  • DESCRIPTION:  
    This is the entire PAT (Pending Accounting Transaction) number that must be a Purchase Order or Requisition on the Procurement & Accounting Transactions File.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  442.8^B
    1)= S ^PRC(442.8,"B",$E(X,1,30),DA)=""
    2)= K ^PRC(442.8,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  442.8^AC^MUMPS
    1)= I $P(^PRC(442.8,DA,0),U,2) S ^PRC(442.8,"AC",$E(X,1,30),$P(^(0),U,2),DA)=""
    2)= I $P(^PRC(442.8,DA,0),U,2) K ^PRC(442.8,"AC",$E(X,1,30),$P(^(0),U,2),DA)
    This X-REF and the "AD" X-REF in the ITEM field work together to control the "AC" X-REF, a list of ORDER NUMBER (PAT) and ITEM. Both fields must have a value for the "AC" X-REF to be created.
    For the KILL part of this X-REF to remove the "AC" X-REF the ITEM field must have some entry.
    The field at NODE 0 PIECE 2, ITEM, is the INTERNAL ENTRY NUMBER of the ITEM multiple entry within the order that this PAT number references.
  • CROSS-REFERENCE:  442.8^AF^MUMPS
    1)= I $P(^PRC(442.8,DA,0),U,3) S ^PRC(442.8,"AF",$E(X,1,30),$P(^(0),U,3),DA)=""
    2)= I $P(^PRC(442.8,DA,0),U,3) K ^PRC(442.8,"AF",$E(X,1,30),$P(^(0),U,3),DA)
    This X-REF and the "AG" X-REF in the DELIVERY DATE field work together to control the "AF" X-REF, a list of ORDER NUMBER (PAT) and DELIVERY DATE values. To SET the "AF" X-REF both fields must have data.
    To KILL the "AF" X-REF the DELIVERY DATE field must have data in it.
1 ITEM 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>5!($L(X)<1)!'(X?1N.N) X I $D(X) S Z=$O(^PRC(442,"B",$P(^PRC(442.8,DA,0),U,1),0)) K:'$D(^PRC(442,+Z,2,X,0)) X K Z
  • LAST EDITED:  MAR 19, 1996
  • HELP-PROMPT:  Enter line-item number from the order (Must be an item on a Purchase Order or Requisition). Type a number between 1 and 99999.
  • DESCRIPTION:  
    This is the Line-item number for a Purchase Order or Requisition.
  • TECHNICAL DESCR:  This field contains the INTERNAL ENTRY NUMBER of the ITEM multiple entry for which this DELIVERY SCHEDULE (ORDER) belongs.
    The INPUT TRANSFORM for this field, the part checking out the ITEM record, is correctly referencing the IEN of the ITEM multiple.
  • EXECUTABLE HELP:  S Z=$O(^PRC(442,"B",$P(^PRC(442.8,DA,0),U,1),0)) Q:'Z S:$D(D) PRCHD=D S X="?",DIC="^PRC(442,"_Z_",2,",DIC(0)="QEM" D ^DIC S:$D(DIE) DIC=DIE S:$D(PRCHD) D=PRCHD K PRCHD,Z
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  442.8^AD^MUMPS
    1)= I $P(^PRC(442.8,DA,0),U,1)]"" S ^PRC(442.8,"AC",$P(^(0),U,1),X,DA)=""
    2)= I $P(^PRC(442.8,DA,0),U,1)]"" K ^PRC(442.8,"AC",$P(^(0),U,1),X,DA)
    This X-REF and the "AC" X-REF in the ORDER NUMBER (PAT) field work together to control the "AC" X-REF, a list of ORDER NUMBER (PAT) and ITEM. Both fields must contain data for the "AC" X-REF to be created.
    For the KILL part of this X-REF to remove the "AC" X-REF the ORDER NUMBER (PAT) field must have an entry.
    This field is the INTERNAL ENTRY NUMBER of an ITEM in this order.
2 DELIVERY DATE 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 23, 1990
  • HELP-PROMPT:  Enter date on which delivery is to be made.
  • DESCRIPTION:  
    This is the date on which delivery of the item (s) is to be made.
  • CROSS-REFERENCE:  442.8^AG^MUMPS
    1)= I $P(^PRC(442.8,DA,0),U,1)]"" S ^PRC(442.8,"AF",$E($P(^(0),U,1),1,30),X,DA)=""
    2)= I $P(^PRC(442.8,DA,0),U,1)]"" K ^PRC(442.8,"AF",$E($P(^(0),U,1),1,30),X,DA)
    This X-REF and the "AF" X-REF in the ORDER NUMBER (PAT) field work together to control the "AF" X-REF, a list of ORDER NUMBER (PAT) and DELIVERY DATE values. To SET the "AF" X-REF both fields must have data.
    To KILL the "AF" X-REF the ORDER NUMBER (PAT) field must have data in it.
3 LOCATION FOR DELIVERY 0;4 POINTER TO DELIVERY POINT FILE (#410.8)
************************REQUIRED FIELD************************
DELIVERY POINT(#410.8)

  • LAST EDITED:  JAN 05, 1990
  • HELP-PROMPT:  Enter location to which the item should be delivered.
  • DESCRIPTION:  
    This is the location to which the item should be delivered.
4 QUANTITY TO BE DELIVERED 0;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."3N.N)!($D(PRCHQTY)&$D(PRCHTOT)&($G(PRCHTOT)+X-$P($G(^PRC(442.8,DA,0)),U,5)>$G(PRCHQTY)&(X'=0))) X
  • LAST EDITED:  NOV 20, 1996
  • HELP-PROMPT:  How many units should be delivered on this date? (Enter zero to exit option and delete this schedule)
  • DESCRIPTION:  
    This is the quantity to be delivered to the specified location on the specified date.
  • EXECUTABLE HELP:  I $D(PRCHTOT) S PRCHSUM=$G(PRCHQTY)-PRCHTOT+$P($G(^PRC(442.8,DA,0)),U,5) W ?5,"The largest valid quantity here is ",$S($G(PRCHSUM)>0:PRCHSUM,1:"0"),".",!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
5 DELETE FLAG 0;6 SET
  • 'D' FOR DELETE;

  • LAST EDITED:  MAR 30, 1994
  • DESCRIPTION:  
    It is a flag to delete the Delivery Schedule, that is being displayed on the purchase order.

ICR, Total: 2

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #3699
  • M DATA EXTRACTOR
  • ICR #6605
  • ADVANCED PROSTHETICS ACQUISITION TOOL
  • ORDER NUMBER (PAT) (.01).
    Access: Read w/Fileman

    ITEM (1).
    Access: Read w/Fileman

    DELIVERY DATE (2).
    Access: Read w/Fileman

    LOCATION FOR DELIVERY (3).
    Access: Read w/Fileman

    QUANTITY TO BE DELIVERED (4).
    Access: Read w/Fileman

    DELETE FLAG (5).
    Access: Read w/Fileman

    'B' cross reference Used to look up by ORDER NUMBER

    External References

    Name Field # of Occurrence
    ^%DT 2+1
    ^DIC 1(HELP )
    Y^DIQ ID3+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(410.8 ID3+1
    ^PRC(442 - [#442] .01+1, 1+1, 1(HELP )
    ^PRC(442.8 - [#442.8] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 1+1, 1(HELP ), 1(XREF 1S), 1(XREF 1K)
    2(XREF 1S), 2(XREF 1K), 4+1, 4(HELP )
    ^PRCS(410.8 - [#410.8] ID3+1

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID2+1, ID3+1, IDA1+1, IDZ1+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 1(XREF 1S), 1(XREF 1K)
    2(XREF 1S), 2(XREF 1K)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT 2+1*
    %I ID3+1*!
    >> C ID3+1*
    >> D 1(HELP )
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 1+1, 1(HELP ), 1(XREF 1S), 1(XREF 1K)
    2(XREF 1S), 2(XREF 1K), 4+1, 4(HELP )
    >> DIC ID3+1, 1(HELP )
    >> DIC(0 1(HELP )
    >> DIE 1(HELP )
    PRCHD 1(HELP )
    >> PRCHQTY 4+1, 4(HELP )
    >> PRCHSUM 4(HELP )
    >> PRCHTOT 4+1, 4(HELP )
    U ID2+1, ID3+1, IDA1+1, IDZ1+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 1+1, 1(HELP )
    1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 4+1, 4(HELP )
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), 1+1!, 1(HELP ), 1(XREF 1S)
    1(XREF 1K), 2+1*!, 2(XREF 1S), 2(XREF 1K), 4+1!
    >> Y ID3+1*, 2+1
    Z 1+1*!, 1(HELP )
    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