Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
613 bytes
|
Rev | Line | |
---|
[628] | 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.