source: FOIAVistA/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XDRDDATA.m@ 1119

Last change on this file since 1119 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 863 bytes
Line 
1XDRDDATA ;SF-IRMFO.SEA/JLI - LIST BASIC DATA ON POTENTIAL DUPLICATES ;12/2/96 11:21
2 ;;7.3;TOOLKIT;**23**;Apr 25, 1995
3 ;;
4EN ;
5 S DIC="^VA(15.1,",DIC(0)="AEQM" D ^DIC G:Y'>0 EXIT S XDRFL=+Y
6 S XDRFL=$P(^DIC(XDRFL,0,"GL"),U,2)
7 S %ZIS="QN" D ^%ZIS Q:POP I $D(IO("Q")) G QUEIT
8 S IOP="BROWSER" D ^%ZIS Q:POP
9 G DQ
10 ;
11QUEIT ;
12 S ZTRTN="DQ^XDRDDATA",ZTDESC="LIST POTENTIAL DUPLICATES - XDRDDATA",ZTSAVE("XDRFL")="" D ^%ZTLOAD Q
13 ;
14DQ ;
15 U IO
16 S XL=0
17 ;S IPAIR="" F S IPAIR=$O(^VA(15,"APOT",XDRFL,IPAIR)) Q:IPAIR="" D
18 W !!!!
19 F I=0:0 S I=$O(^VA(15,I)) Q:I'>0 S IPAIR=^(I,0) D
20 . I $P(IPAIR,U,3)'="P" Q
21 . I $P($P(IPAIR,U),";",2)'=XDRFL Q
22 . S X1=+IPAIR,X2=+$P(IPAIR,U,2)
23 . I X1'=XL W !!!,$G(@(U_XDRFL_X1_",0)")) S XL=X1
24 . W !,$G(@(U_XDRFL_X2_",0)"))
25 D ^%ZISC
26 I $D(ZTQUEUED) Q
27 ;
28DISP ;
29 Q
30 ;
31 ;. S X2=+$P(IPAIR,U,2)
32 D ^%ZISC
33 I $D(ZTQUEUED) Q
34 ;
35EXIT ;
36 Q
Note: See TracBrowser for help on using the repository browser.