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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
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

Directly Accessed By Routines, Total: 7

Package Total Routines
IFCAP 7 PRCGARC    PRCGARCF    PRCGARCG    PRCGARCH    PRCGARP    PRCGARP1    ^PRC(443.9    

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.

External References

Name Field # of Occurrence
^DICR .01(XREF 2n1.4), .01(XREF 2n2.4)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( .01(XREF 2n1.4), .01(XREF 2n2.4)
^DD(443.9 .01(XREF 2S), .01(XREF 2K)
^PRC(442 - [#442] .01(XREF 2n1.1), .01(XREF 3S)
^PRC(443.9 - [#443.9] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .01(XREF 3S), .5(XREF 1S), .5(XREF 1K)
^PRCD(442.5 - [#442.5] .01(XREF 3S)

Naked Globals

Name Field # of Occurrence
^(0 .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D0 .01(XREF 2S), .01(XREF 2K)
>> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .5(XREF 1S), .5(XREF 1K)
>> DIG .01(XREF 2n1.4), .01(XREF 2n2.4)
>> DIH .01(XREF 2n1.4), .01(XREF 2n2.4)
>> DINUM .01+1*
>> DIU .01(XREF 2S), .01(XREF 2K)
DIV .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4)
DIV(0 .01(XREF 2S), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4)
U .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4)
X .01+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.1), .01(XREF 2n1.4), .01(XREF 2K), .01(XREF 2n2.4), .5+1!, .5(XREF 1S)
.5(XREF 1K), 2+1!
Y .01(XREF 2S), .01(XREF 2K)
Y(1 .01(XREF 2S), .01(XREF 2K)
ZX .01(XREF 3S)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All