Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 410.04

Package: IFCAP

CONTROL POINT ACTIVITY(#410)-->410.04

Sub-Field: 410.04


Information

Parent File Name Number Package
CONTROL POINT ACTIVITY(#410) SUB-CONTROL POINT 410.04 IFCAP

Details

Field # Name Loc Type Details
.01 SUB-CONTROL POINT 0;1 POINTER TO SUB-CONTROL POINT FILE (#410.4) SUB-CONTROL POINT(#410.4)

  • INPUT TRANSFORM:  S DIC("S")="I $D(PRC(""CP"")),$D(^PRCS(410.4,+Y,0)),$P(^(0),U,2)=+PRC(""CP"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 22, 1990
  • DESCRIPTION:  
    This is an additional sub-control point. IFCAP allows more than one sub-control point on each transaction to get a quantity discount.
  • SCREEN:  S DIC("S")="I $D(PRC(""CP"")),$D(^PRCS(410.4,+Y,0)),$P(^(0),U,2)=+PRC(""CP"")"
  • EXPLANATION:  Users can only select Sub-Control Points for their own control points.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  410^C^MUMPS
    1)= S ^PRCS(410,"C",$E(X,1,30),DA(1),DA)=""
    2)= K ^PRCS(410,"C",$E(X,1,30),DA(1),DA)
    This cross reference is set on the sub-control point and ceiling transaction number.
  • CROSS-REFERENCE:  410.04^AB
    1)= S ^PRCS(410,DA(1),12,"AB",$E(X,1,30),DA)=""
    2)= K ^PRCS(410,DA(1),12,"AB",$E(X,1,30),DA)
    This cross reference is set on the sub-control point node as a cross reference by sub-control point number.
1 $ AMOUNT 0;2 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?."-".N1"."2N)!(X>9999999)!(X<-9999999) X
  • LAST EDITED:  MAY 23, 1989
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN -9999999 AND 9999999
  • DESCRIPTION:  
    This is the dollar amount committed by each sub-control point.
  • CROSS-REFERENCE:  410.04^AC^MUMPS
    1)= D TRANS^PRCSEZZ
    2)= D TRANK^PRCSEZZ
    This cross reference is used to set the sub-control point dollar amount.
2 SCP AMT COMPUTED

  • MUMPS CODE:  X ^DD(410.04,2,9.7) S X=$S(Y(410.04,2,5):Y(410.04,2,8),Y(410.04,2,10):Y(410.04,2,11),Y(410.04,2,12):X)
    9.2 = S Y(410.04,2,2)=$C(59)_$S($D(^DD(410,1,0)):$P(^(0),U,3),1:""),Y(410.04,2,4)=$C(59)_$S($D(^DD(410,1,0)):$P(^(0),U,3),1:"")
    9.3 = X ^DD(410.04,2,9.2) S Y(410.04,2,9)=$C(59)_$S($D(^DD(410,1,0)):$P(^(0),U,3),1:""),Y(410.04,2,1)=$S($D(^PRCS(410,D0,0)):^(0),1:"")
    9.4 = X ^DD(410.04,2,9.3) S Y(410.04,2,7)=$S($D(^PRCS(410,D0,12,D1,0)):^(0),1:"") S X=$P($P(Y(410.04,2,2),$C(59)_$P(Y(410.04,2,1),U,2)_":",2),$C(59),1)["OB"
    9.5 = X ^DD(410.04,2,9.4) S Y(410.04,2,3)=X S X=$P($P(Y(410.04,2,4),$C(59)_$P(Y(410.04,2,1),U,2)_":",2),$C(59),1)["ADJ",Y=X,X=Y(410.04,2,3),X=X!Y,Y(410.04,2,5)=X
    9.6 = X ^DD(410.04,2,9.5) S Y(410.04,2,6)=X S X=-$P(Y(410.04,2,7),U,2),Y(410.04,2,8)=X S X=$P($P(Y(410.04,2,9),$C(59)_$P(Y(410.04,2,1),U,2)_":",2),$C(59),1)["CA"
    9.7 = X ^DD(410.04,2,9.6) S Y(410.04,2,10)=X S X=0,Y(410.04,2,11)=X S X=1,Y(410.04,2,12)=X,Y(410.04,2,13)=X S X=$P(Y(410.04,2,7),U,2)
  • ALGORITHM:  $S((#1["OB"!(#1["ADJ")):(-$ AMOUNT),#1["CA":0,1:($ AMOUNT))
  • LAST EDITED:  OCT 31, 1989
  • DESCRIPTION:  
    This is the computed amount for the Sub-Control Point (SCP).
Info |  Details