Sub-Field: 15.112

Parent File	Name	Number	Package
DUPLICATE RESOLUTION(#15.1)	DINUM FILES FOR MERGE	15.112	Toolkit

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	DINUM FILE FOR MERGE	0;1	POINTER TO FILE FILE (#1)	FILE(#1) INPUT TRANSFORM: `S DIC("S")="I $P(^DD(Y,.01,0),U,2)[""P"",+$P($P(^(0),U,2),""P"",2)=D0,$P(^(0),U,5,99)[""DINUM""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 05, 1991` HELP-PROMPT: `Enter a file number or name that points to and is dinum with the File to Be Checked field (#.01).` DESCRIPTION: `This is a file that points to the File to Be Checked entry and is Dinum with it.` `During an Interactive style of merge the duplicate record pair entries for this file will be displayed side by side allowing an operator to merge selected fields in these entries.` SCREEN: `S DIC("S")="I $P(^DD(Y,.01,0),U,2)[""P"",+$P($P(^(0),U,2),""P"",2)=D0,$P(^(0),U,5,99)[""DINUM"""` EXPLANATION: `Must point to primary file and be DINUM` CROSS-REFERENCE: `15.112^B` `1)= S ^VA(15.1,DA(1),12,"B",$E(X,1,30),DA)=""` `2)= K ^VA(15.1,DA(1),12,"B",$E(X,1,30),DA)`

DINUM FILE FOR MERGE

0;1

POINTER TO FILE FILE (#1)

INPUT TRANSFORM: S DIC("S")="I $P(^DD(Y,.01,0),U,2)[""P"",+$P($P(^(0),U,2),""P"",2)=D0,$P(^(0),U,5,99)[""DINUM""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JAN 05, 1991
HELP-PROMPT: Enter a file number or name that points to and is dinum with the File to Be Checked field (#.01).
DESCRIPTION: This is a file that points to the File to Be Checked entry and is Dinum with it.
During an Interactive style of merge the duplicate record pair entries for this file will be displayed side by side allowing an operator to merge selected fields in these entries.
SCREEN: S DIC("S")="I $P(^DD(Y,.01,0),U,2)[""P"",+$P($P(^(0),U,2),""P"",2)=D0,$P(^(0),U,5,99)[""DINUM"""
EXPLANATION: Must point to primary file and be DINUM
CROSS-REFERENCE: 15.112^B
1)= S ^VA(15.1,DA(1),12,"B",$E(X,1,30),DA)=""
2)= K ^VA(15.1,DA(1),12,"B",$E(X,1,30),DA)