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

Package: IFCAP

ITEM MASTER(#441)-->441.03

Sub-Field: 441.03


Information

Parent File Name Number Package
ITEM MASTER(#441) FCP 441.03 IFCAP

Details

Field # Name Loc Type Details
.01 FCP 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<4) X I $D(X) K:'X X I $D(X) S DINUM=+X
  • LAST EDITED:  NOV 22, 1988
  • HELP-PROMPT:  ENTER THE STATION NUMBER FOLLOWED BY THE CONTROL POINT NUMBER EG 531012
  • DESCRIPTION:  
    This is the fund control point number.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  441.03^B
    1)= S ^PRC(441,DA(1),4,"B",$E(X,1,30),DA)=""
    2)= K ^PRC(441,DA(1),4,"B",$E(X,1,30),DA)
.5 LONG NAME COMPUTED

  • MUMPS CODE:  I $D(D1) S X="SITE: "_$E(D1,1,3)_" FCP: " I $D(^PRC(420,+$E(D1,1,3),1,+$E(D1,4,999),0)) S X=X_$P(^(0),U,1)
    9.2 = S Y(441.03,.5,81)=$S($D(D1):D1,1:""),Y(441.03,.5,80)=$S($D(D0):D0,1:""),Y(441.03,.5,1)=$S($D(^PRC(441,D0,4,D1,0)):^(0),1:"") S X=$P(Y(441.03,.5,1),U,1)
    9.3 = X ^DD(441.03,.5,9.2) S Y(441.03,.5,2)=X S X=1,Y(441.03,.5,3)=X S X=3,X=$E(Y(441.03,.5,2),Y(441.03,.5,3),X) K DIC S DIC="^PRC(420,",DIC(0)="NMF" D ^DIC S (D,D0)=+Y
    9.4 = X ^DD(441.03,.5,9.3) S Y(441.03,.5,180)=$S($D(D0):D0,1:""),Y(441.03,.5,181)=$S($D(D1):D1,1:""),Y(441.03,.5,101)=X S X=$P(Y(441.03,.5,1),U,1)
    9.5 = X ^DD(441.03,.5,9.4) S Y(441.03,.5,102)=X S X=4,Y(441.03,.5,103)=X S X=99,X=$E(Y(441.03,.5,102),Y(441.03,.5,103),X)
    9.6 = X ^DD(441.03,.5,9.5) K DIC S Y=-1,DIC="^PRC(420,D0,1,",DIC(0)="NMF" D ^DIC:D0>0 S (D,D1)=+Y S Y(441.03,.5,202)=$S($D(^PRC(420,D0,1,D1,0)):^(0),1:"")
  • ALGORITHM:  I $D(D1) S X="SITE: "_$E(D1,1,3)_" FCP: " I $D(^PRC(420,+$E(D1,1,3),1,+$E(D1,4,999),0)) S X=X_$P(^(0),U,1)
  • LAST EDITED:  NOV 22, 1988
  • DESCRIPTION:  
    This is the long name of the fund control point.
1 PURCHASE ORDER 1;0 POINTER Multiple #441.04 441.04

  • DESCRIPTION:  
    This is a purchase order that uses this item.
  • TECHNICAL DESCR:  This field, the PURCHASE ORDER multiple, is entered from EN3^PRCHCRD. EN3^PRCHCRD is called from the REPETITIVE (PR CARD) NO. field in the ITEM multiple in file 442. The 'AD' x-ref within the REPETITIVE (PR CARD) NO.
    field actually has the call.  The SET part of the x-ref checks that the PURCHASE ORDER multiple is set up and, if required, sets it up.  Then the purchase order from file 442 that is using this ITEM is entered in the
    multiple along with entering the 'AC' x-ref for the entry.  Finally the subfile's 0 node is updated to show that a new entry was added. After all that a jump is made to LST^PRCHCRD1 which copies fields from file 441 into
    file 442.
    This field has its data deleted within EN4^PRCHCRD.  EN4^PRCHCRD is called from the KILL part of the 'AC' x-ref mentioned above. The KILL part of the x-ref just removes the entry from the multiple, kills the 'AC' x-ref
    entry and reduces the record count in the subfile's 0 node by 1.
    Maby the action EN3^PRCHCRD does could be done by FILE^DICN? The action EN4^PRCHCRD handles might be done with DIK?
    The amemdment action required, when the amendment is entered into file 442, would be what EN3^PRCHCRD already does without the jump to LST ^PRCHCRD1.  If the amendment action removes this ITEM from the purchase order
    then do what EN4^ PRCHCRD does instead.
2 SUBACCOUNT 0;2 POINTER ** TO AN UNDEFINED FILE **

  • LAST EDITED:  JUL 03, 1986
  • DESCRIPTION:  
    This is the subaccount for the item.
3 PREFERRED VENDOR 0;3 POINTER ** TO AN UNDEFINED FILE **

  • INPUT TRANSFORM:  S DIC("S")="I $D(^PRC(441,DA(1),2,Y,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 21, 1986
  • HELP-PROMPT:  Enter the Vendor from which this Funds Control Point normally purchases this item. It must be included in the list of possible vendors for this item.
  • DESCRIPTION:  
    This is the vendor from which this fund control point normally purchases the item.
  • SCREEN:  S DIC("S")="I $D(^PRC(441,DA(1),2,Y,0))"
  • EXPLANATION:  Vendor must exist in the list of possible vendors within this item.
Info |  Details |  All