Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: XDRDDATA

XDRDDATA.m

Go to the documentation of this file.
XDRDDATA ;SF-IRMFO.SEA/JLI - LIST BASIC DATA ON POTENTIAL DUPLICATES ;12/2/96  11:21 [ 04/02/2003   8:47 AM ]
 ;;7.3;TOOLKIT;**1001**;APR 1, 2003
 ;;7.3;TOOLKIT;**23**;Apr 25, 1995
 ;;
EN ;
 S DIC="^VA(15.1,",DIC(0)="AEQM" D ^DIC G:Y'>0 EXIT S XDRFL=+Y
 S XDRFL=$P(^DIC(XDRFL,0,"GL"),U,2)
 S %ZIS="QN" D ^%ZIS Q:POP  I $D(IO("Q")) G QUEIT
 S IOP="BROWSER" D ^%ZIS Q:POP
 G DQ
 ;
QUEIT ;
 S ZTRTN="DQ^XDRDDATA",ZTDESC="LIST POTENTIAL DUPLICATES - XDRDDATA",ZTSAVE("XDRFL")="" D ^%ZTLOAD Q
 ;
DQ ;
 U IO
 S XL=0
 ;S IPAIR="" F  S IPAIR=$O(^VA(15,"APOT",XDRFL,IPAIR)) Q:IPAIR=""  D
 W !!!!
 F I=0:0 S I=$O(^VA(15,I)) Q:I'>0  S IPAIR=^(I,0) D
 . I $P(IPAIR,U,3)'="P" Q
 . I $P($P(IPAIR,U),";",2)'=XDRFL Q
 . S X1=+IPAIR,X2=+$P(IPAIR,U,2)
 . I X1'=XL W !!!,$G(@(U_XDRFL_X1_",0)")) S XL=X1
 . W !,$G(@(U_XDRFL_X2_",0)"))
 D ^%ZISC
 I $D(ZTQUEUED) Q
 ;
DISP ;
 Q
 ;
 ;. S X2=+$P(IPAIR,U,2)
 D ^%ZISC
 I $D(ZTQUEUED) Q
 ;
EXIT ;
 Q