|
Last change
on this file since 1000 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
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.
