source: FOIAVistA/trunk/r/NDBI-A7R/A7RXDRPT.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 458 bytes
Line 
1A7RXDRPT ;DCIOFO/J0 - NDBI PATIENT RECORD MERGE ;10/31/97
2 ;;1.0;NDBI;;May 01, 1998
3 ;
4 ; This routine was originally named XDRPTA7R. Renamed to A7RXDRPT
5 ; for NDBI V1.0 distribution on May 1, 1998. LJA.
6 ;
7 ; This routine is referenced by the DUPLICATE MERGE patch XT*7.3*23
8 ; at integrated sites only.
9EN(A7RARY) ;
10 N X
11 Q:'$L($G(A7RARY))
12 Q:'$D(@A7RARY)
13 Q:'$D(^%ZOSF("TEST"))
14 ;
15 S X="A7RDUP"
16 X ^%ZOSF("TEST")
17 Q:'$T
18 ;
19 D EN^A7RDUP(A7RARY,2)
20 ;
21 Q
Note: See TracBrowser for help on using the repository browser.