Last change
on this file since 1569 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
613 bytes
|
Line | |
---|
1 | PXRRMDR1 ;HERN/BDB - PCE Missing Data Report ;11 Feb 04 10:10 AM
|
---|
2 | ;;1.0;PCE;**174**;AUG 12, 1996
|
---|
3 | ;
|
---|
4 | DATASRC ; get Data Sources to print
|
---|
5 | N ID,REC
|
---|
6 | K PXDS
|
---|
7 | K DIR,DIC
|
---|
8 | S DIR(0)="Y",DIR("A")="Would you like to include ALL Data Sources"
|
---|
9 | S DIR("B")="YES" D ^DIR
|
---|
10 | I $D(DIRUT) S POP=1 Q
|
---|
11 | I Y D
|
---|
12 | . S ID="" F S ID=$O(^PX(839.7,"B",ID)) Q:ID="" D
|
---|
13 | . . S REC="" F S REC=$O(^PX(839.7,"B",ID,REC)) Q:REC="" D
|
---|
14 | . . . S PXDS(REC)=ID
|
---|
15 | . S PXDS("Unknown")=0
|
---|
16 | E D
|
---|
17 | . S DIC=839.7,DIC(0)="QEAMZ",DIC("A")="Enter Data Source: "
|
---|
18 | . F D ^DIC Q:$D(DTOUT)!($D(DUOUT))!(Y=-1) S:+Y PXDS(+Y)=""
|
---|
19 | I $D(DTOUT)!($D(DUOUT)) S POP=1
|
---|
20 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.