Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields
Print Page as PDF
Global: ^PRC(443.9

Package: IFCAP

Global: ^PRC(443.9


Information

FileMan FileNo FileMan Filename Package
443.9 IFCAP PENDING ARCHIVE IFCAP

Description

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
IFCAP 1 PRCGARCH    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
IFCAP 1 PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)[.01]    

Fields, Total: 4

Field # Name Loc Type Details
.01 PO NUMBER 0;1 POINTER TO PROCUREMENT & ACCOUNTING TRANSACTIONS FILE (#442) PROCUREMENT & ACCOUNTING TRANSACTIONS(#442)

  • INPUT TRANSFORM:  I $D(X) S DINUM=X
  • LAST EDITED:  OCT 08, 1993
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  443.9^B
    1)= S ^PRC(443.9,"B",$E(X,1,30),DA)=""
    2)= K ^PRC(443.9,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^443.9^.5
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(443.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(443.9,.01,1,2,1.1) X ^DD(443.9,.01,1,2,1.4)
    1.1)= S X=DIV S X=$S('$D(^PRC(442,+DIV,0)):"",1:$P(^(0),U,1))
    1.4)= S DIH=$S($D(^PRC(443.9,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=443.9,DIG=.5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^PRC(443.9,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" X ^DD(443.9,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^PRC(443.9,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=443.9,DIG=.5 D ^DICR:$N(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= PO NUMBER
    DELETE VALUE)= @
    FIELD)= PO NAME
  • CROSS-REFERENCE:  443.9^AD^MUMPS
    1)= S ZX=$P(^PRC(442,DA,0),"^",2),ZX=$P($G(^PRCD(442.5,+ZX,0)),"^",2) S:ZX]"" $P(^PRC(443.9,DA,0),"^",3)=ZX K ZX
    2)= Q
    This cross reference is a MUMPS trigger to place the Method of Processing abbreviation from file 442.5 into each record on this file. It will be used to increase the speed of the lookup when purging records.
.5 PO NAME 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<3) X
  • LAST EDITED:  AUG 25, 1993
  • HELP-PROMPT:  Answer must be 3-20 characters in length.
  • NOTES:  TRIGGERED by the PO NUMBER field of the IFCAP PENDING ARCHIVE File
  • CROSS-REFERENCE:  443.9^AC
    1)= S ^PRC(443.9,"AC",$E(X,1,30),DA)=""
    2)= K ^PRC(443.9,"AC",$E(X,1,30),DA)
1 PURGE STATUS 0;2 SET
  • '1' FOR ARCHIVE ONLY;
  • '2' FOR PURGE ONLY;
  • '3' FOR ARCHIVE & PURGE;

  • LAST EDITED:  SEP 23, 1993
2 MOP ABBREVIATION 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<2) X
  • LAST EDITED:  OCT 08, 1993
  • HELP-PROMPT:  Answer must be 2-4 characters in length.
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields