Last change
on this file since 1046 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
863 bytes
|
Rev | Line | |
---|
[613] | 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.