source: WorldVistAEHR/trunk/r/PCE_PATIENT_CARE_ENCOUNTER-AUTN-EFDP-PX-VSIT--PXRM/PXRRMDR1.m@ 1150

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

initial load of WorldVistAEHR

File size: 613 bytes
Line 
1PXRRMDR1 ;HERN/BDB - PCE Missing Data Report ;11 Feb 04 10:10 AM
2 ;;1.0;PCE;**174**;AUG 12, 1996
3 ;
4DATASRC ; 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.