source: FOIAVistA/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGPTOPCE.m@ 1540

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

initial load of FOIAVistA 6/30/08 version

File size: 583 bytes
Line 
1DGPTOPCE ;ALB/DWS - PRINT 801 NOT SENT TO PCE REPORT ;5/24/05 1:04pm
2 ;;5.3;Registration;**635**;Aug 13, 1993
3 N DIR,DIC,BY,FR,TO,L,DIS,Y,DGST,DGEND
4 S DIR(0)="D^:DT",DIR("A")="Select Start Date",DIR("B")="T-30" D ^DIR
5 K DIR
6 I '$D(DIRUT),Y D
7 .S DGST=Y,DIR(0)="D^:DT",DIR("A")="Select End Date",DIR("B")="T"
8 .W " (",Y(0),")" D ^DIR K DIR
9 .I '$D(DIRUT),Y D
10 ..W " (",Y(0),")" S DGEND=Y,DIC="^DGPT(",FLDS="[801notsenttopce]"
11 ..S BY="[801FIND]",FR(0,1)=DGST,TO(0,1)=DGEND+1 D NOW^%DTC
12 ..S Y=DGST D DD^%DT S DGST=Y,Y=DGEND D DD^%DT S DGEND=Y
13 ..S DHD="[801HEADER]"
14 ..D EN1^DIP
15 Q
Note: See TracBrowser for help on using the repository browser.