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: 15.01101

Package: Toolkit

DUPLICATE RECORD(#15)-->15.01101

Sub-Field: 15.01101


Information

Parent File Name Number Package
DUPLICATE RECORD(#15) MERGE PACKAGES 15.01101 Toolkit

Details

Field # Name Loc Type Details
.01 PACKAGE 0;1 POINTER TO PACKAGE FILE (#9.4) PACKAGE(#9.4)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^DIC(9.4,Y,20,+$P(@(""^""_$P($P(^VA(15,D0,0),U),"";"",2)_""0)""),U,2)))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
  • LAST EDITED:  SEP 06, 1990
  • DESCRIPTION:  
    Package interested in pending merge.  In order to enter a package in this field the package must be affected by file being merged.
  • TECHNICAL DESCR:  
    Package interested in pending merge.  In order to enter a package in this field the package must be affected by file being merged.
  • SCREEN:  S DIC("S")="I $D(^DIC(9.4,Y,20,+$P(@""^""_$P($P(^VA(15,D0,0),U),"";"",2)_""0)""),U,2)))"
  • EXPLANATION:  Package must be affected by file being merged
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.02 STATUS 0;2 SET
************************REQUIRED FIELD************************
  • '0' FOR NOT READY;
  • '1' FOR READY;
  • '2' FOR NO FROM ENTRY;

  • LAST EDITED:  JUL 25, 1989
  • DESCRIPTION:  This field set to 0=NOT READY if package does its own interactive merge; 1=READY if package has 'from' entry and has a merge routine specified in the package file; 2=NO FROM ENTRY if the package does not have the 'from'
    entry, regardless of whether it has a merge routine or not.
    The TRIGGER on this field must not be modified to fire on the delete side.
  • TECHNICAL DESCR:  This field is set to 0=NOT READY if package does its own interactive merge; 1=READY if package has 'from' entry and has a merge routine specified in the package file; 2=NO FROM ENTRY if the package does not have the
    'from' entry, regardless of whether it has a merge routine or not.
    The TRIGGER on this field must not be modified to fire on the delete side.
  • CROSS-REFERENCE:  15.01101^ANR^MUMPS
    1)= Q:X  S ^VA(15,DA(1),11,"ANR",X,DA)=""
    2)= Q:X  K ^VA(15,DA(1),11,"ANR",X,DA)
    This xref is set only when the status is 'not ready'.  It is used to determine when all entries in this subfile are ready, which means the primary file entries in the DUPLICATE RECORD file entry may now be merged.
  • CROSS-REFERENCE:  ^^TRIGGER^15^.05
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^VA(15,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y X ^DD(15.01101,.02,1,2,1.1) X ^DD(15.01101,.02,1,2,1.4)
    1.1)= S X=DIV X $P(^DD(15.01101,.0299,0),U,5,99) S Y(1)=X S X=Y(1)
    1.4)= S DIH=$S($D(^VA(15,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=15,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= READY
    DELETE VALUE)= NO EFFECT
    FIELD)= MERGE STATUS
    This TRIGGER sets the MERGE STATUS field in this subfiles parent file.  The MERGE STATUS field is set to a value computed by the computed field READY in this subfile.  The value will compute to 0=NOT READY if there is
    any entry in this subfile that is not ready.  It will compute to 1=READY only after all entries in this subfile have said they are ready.
    This TRIGGER must not be modified to fire on the kill side.





.0299
READY

COMPUTED

  • MUMPS CODE:  S X=$S($D(^VA(15,D0,11,"ANR")):0,1:1)
  • ALGORITHM:  S X=$S($D(^VA(15,D0,11,"ANR")):0,1:1)
  • LAST EDITED:  APR 05, 1990
  • DESCRIPTION:  This field is set to 0 (not ready) if any of the entries in the MERGE PACKAGES multiple indicate via STATUS field that this duplicate record is not ready to be merged.  If all packages are ready for this record to be
    merged than this field will contain 1 (ready).
  • TECHNICAL DESCR:  
    This computed field computes a value of 0 or 1.  The value will be 0 if any entry in this subfile has a STATUS of 'not ready', otherwise, the value will be 1.





.03
ERROR MESSAGE
0;3
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3) X
  • LAST EDITED:  JUL 27, 1989
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
  • DESCRIPTION:  
    This field contains system error messages trapped during the execution of package merge routines.
  • TECHNICAL DESCR:  
    This field contains system error messages trapped during the execution of package merge routines.
    UNEDITABLE







    



Info | 
Details | 
All