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

Package: IFCAP

Global: ^PRC(441.7


Information

FileMan FileNo FileMan Filename Package
441.7 AMENDMENTS TO DELIVERY SCHEDULES IFCAP

Description

Directly Accessed By Routines, Total: 9

Package Total Routines
IFCAP 9 ITEM    PRCHAMU    PRCHAMXH    PRCHAMYB    PRCHDEL    PRCHLINE    PRCHMA0    PRCHRQITM
^PRC(441.7    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
IFCAP 3 PRCHAMXH    PRCHAMYB    PRCHMA0    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
IFCAP 2 DELIVERY SCHEDULE (ORDER)(#442.8)[6]    DELIVERY POINT(#410.8)[3]    

Fields, Total: 7

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) K:X[""""!($A(X)=45) X
  • LAST EDITED:  APR 11, 1994
  • HELP-PROMPT:  Enter entire PAT number
  • DESCRIPTION:  
    This is the entire PAT (Pending Accounting Transaction) number that must be a Purchase Order or Requisition.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  441.7^AG^MUMPS
    1)= I $P(^PRC(441.7,DA,0),U,2) S ^PRC(441.7,"AG",$E(X,1,30),$P(^(0),U,2),DA)=""
    2)= I $P(^PRC(441.7,DA,0),U,2) K ^PRC(441.7,"AG",$E(X,1,30),$P(^(0),U,2),DA)
    This x-ref and the "AH" x-ref in the ITEM field work together to control the "AG" x-ref, a list of ORDER NUMBER (PAT) and ITEM. Both fields must have a value for the "AG" x-ref to be created. The ITEM field must have a
    value to remove the "AG" x-ref.
  • CROSS-REFERENCE:  441.7^B
    1)= S ^PRC(441.7,"B",$E(X,1,30),DA)=""
    2)= K ^PRC(441.7,"B",$E(X,1,30),DA)
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(443.6,"B",$P(^PRC(441.7,DA,0),U,1),0)) K:'$D(^PRC(443.6,+Z,2,X,0)) X K Z
  • LAST EDITED:  APR 08, 1997
  • 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.
  • EXECUTABLE HELP:  S:$D(D) PRCHD=D S X="?",DIC="^PRC(443.6,"_PRCHPO_",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:  441.7^AH^MUMPS
    1)= I $P(^PRC(441.7,DA,0),U,1)]"" S ^PRC(441.7,"AG",$P(^(0),U,1),X,DA)=""
    2)= I $P(^PRC(441.7,DA,0),U,1)]"" K ^PRC(441.7,"AG",$P(^(0),U,1),X,DA)
    This x-ref and the "AG" x-ref in the ORDER NUMBER (PAT) field work together to control the "AG" x-ref, a list of ORDER NUMBER (PAT) and ITEM. Both fields must contain data for the "AG" x-ref to be created. The ORDER
    NUMBER (PAT) field must have data to remove the "AG" x-ref.
2 DELIVERY DATE 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 21, 1997
  • 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.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  441.7^AC^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN6^PRCHAMXE Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I "22,23"[PRCHAMDA S PRCHX=X,X=0 D EN2^PRCHAMXE S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,"22,23"[PRCHAMDA S FLAG=1 D EN2^PRCHAMXE
    This x-ref will set the old value in the CHANGES multiple. If there was no previous value for this field or this is a new field the old value is set to '0'. If there was a previous value for this field that becomes the
    old value.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
3 LOCATION FOR DELIVERY 0;4 POINTER TO DELIVERY POINT FILE (#410.8)
************************REQUIRED FIELD************************
DELIVERY POINT(#410.8)

  • LAST EDITED:  FEB 21, 1997
  • HELP-PROMPT:  Enter location to which the item should be delivered.
  • DESCRIPTION:  
    This is the location to which the item should be delivered.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  441.7^AD^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN7^PRCHAMXE Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I "22,23"[PRCHAMDA S PRCHX=X,X=0 D EN3^PRCHAMXE S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,"22,23"[PRCHAMDA S FLAG=1 D EN3^PRCHAMXE
    This x-ref will set the old value in the CHANGES multiple. If there was no previous value for this field or this is a new field the old value is set to '0'. If there was a previous value for this field that becomes the
    old value.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
4 QTY TO BE DELIVERED 0;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999.99)!(X<0)!(X?.E1"."3N.N)!($D(PRCHQTY)&$D(PRCHTOT)&($G(PRCHTOT)+X-$P($G(^PRC(441.7,DA,0)),U,5)>$G(PRCHQTY)&(X'=0))) X
  • LAST EDITED:  FEB 21, 1997
  • 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(441.7,DA,0)),U,5) W !,"The largest valid quantity here is ",$S($G(PRCHSUM)>0:PRCHSUM,1:"0"),".",!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  441.7^AE^MUMPS
    1)= I $G(PRCHNORE)=1 D:PRCHAMDA=21 EN8^PRCHAMXE Q:PRCHAMDA=21 D FLAG^PRCHMA Q:$T I "22,23"[PRCHAMDA S PRCHX=X,X=0 D EN4^PRCHAMXE S X=PRCHX K PRCHX
    2)= I $G(PRCHNORE)=1,"22,23"[PRCHAMDA S FLAG=1 D EN4^PRCHAMXE
    This x-ref will set the old value in the CHANGES multiple. If there was no previous value for this field or this is a new field the old value is set to '0'. If there was a previous value for this field that becomes the
    old value.
    ****NOTE-See routine PRCHAMXA for information on variable PRCHNORE and incidence of undefined DIK variable errors.
5 DELETE FLAG 0;6 SET
  • 'D' FOR DELETE;

  • LAST EDITED:  MAR 07, 1994
  • DESCRIPTION:  
    It is a flag to delete the amendments to delivery schedules.
6 PERMANENT ENTRY 0;7 POINTER TO DELIVERY SCHEDULE (ORDER) FILE (#442.8) DELIVERY SCHEDULE (ORDER)(#442.8)

  • LAST EDITED:  APR 01, 1994
  • DESCRIPTION:  
    It is a permanent corresponding entry in File 442.8

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #3696
  • M DATA EXTRACTOR
  • External References

    Name Field # of Occurrence
    ^%DT 2+1
    ^DIC 1(HELP )
    Y^DIQ IDZ2+1
    EN2^PRCHAMXE 2(XREF 1S), 2(XREF 1K)
    EN3^PRCHAMXE 3(XREF 1S), 3(XREF 1K)
    EN4^PRCHAMXE 4(XREF 1S), 4(XREF 1K)
    EN6^PRCHAMXE 2(XREF 1S)
    EN7^PRCHAMXE 3(XREF 1S)
    EN8^PRCHAMXE 4(XREF 1S)
    FLAG^PRCHMA 2(XREF 1S), 3(XREF 1S), 4(XREF 1S)

    Global Variables Directly Accessed

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

    Naked Globals

    Name Field # of Occurrence
    ^(0 IDZ1+1, IDZ2+1, IDZ3+1, IDZ4+1, .01(XREF 1S), .01(XREF 1K), 1(XREF 2S), 1(XREF 2K)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT 2+1*
    %I IDZ2+1*!
    >> C IDZ2+1*
    >> D 1(HELP )
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1+1, 1(XREF 2S), 1(XREF 2K), 4+1, 4(HELP )
    >> DIC IDZ2+1, 1(HELP )
    >> DIC(0 1(HELP )
    >> DIE 1(HELP )
    >> FLAG 2(XREF 1K), 3(XREF 1K), 4(XREF 1K)
    >> PRCHAMDA 2(XREF 1S), 2(XREF 1K), 3(XREF 1S), 3(XREF 1K), 4(XREF 1S), 4(XREF 1K)
    PRCHD 1(HELP )
    >> PRCHNORE 2(XREF 1S), 2(XREF 1K), 3(XREF 1S), 3(XREF 1K), 4(XREF 1S), 4(XREF 1K)
    >> PRCHPO 1(HELP )
    >> PRCHQTY 4+1, 4(HELP )
    >> PRCHSUM 4(HELP )
    >> PRCHTOT 4+1, 4(HELP )
    PRCHX 2(XREF 1S), 3(XREF 1S), 4(XREF 1S)
    U IDZ1+1, IDZ2+1, IDZ3+1, IDZ4+1, .01(XREF 1S), .01(XREF 1K), 1+1, 1(XREF 2S), 1(XREF 2K), 4+1
    4(HELP )
    X .01+1!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), 1+1!, 1(HELP ), 1(XREF 2S), 1(XREF 2K), 2+1*!
    2(XREF 1S), 3(XREF 1S), 4+1!, 4(XREF 1S)
    >> Y IDZ2+1*, 2+1
    Z 1+1*!, 1(HELP )
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All