Last change
on this file since 724 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
863 bytes
|
Line | |
---|
1 | XDRDDATA ;SF-IRMFO.SEA/JLI - LIST BASIC DATA ON POTENTIAL DUPLICATES ;12/2/96 11:21
|
---|
2 | ;;7.3;TOOLKIT;**23**;Apr 25, 1995
|
---|
3 | ;;
|
---|
4 | EN ;
|
---|
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 | ;
|
---|
11 | QUEIT ;
|
---|
12 | S ZTRTN="DQ^XDRDDATA",ZTDESC="LIST POTENTIAL DUPLICATES - XDRDDATA",ZTSAVE("XDRFL")="" D ^%ZTLOAD Q
|
---|
13 | ;
|
---|
14 | DQ ;
|
---|
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 | ;
|
---|
28 | DISP ;
|
---|
29 | Q
|
---|
30 | ;
|
---|
31 | ;. S X2=+$P(IPAIR,U,2)
|
---|
32 | D ^%ZISC
|
---|
33 | I $D(ZTQUEUED) Q
|
---|
34 | ;
|
---|
35 | EXIT ;
|
---|
36 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.