|
Last change
on this file since 700 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
583 bytes
|
| Rev | Line | |
|---|
| [613] | 1 | DGPTOPCE ;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.
