source: WorldVistAEHR/trunk/r/PHARMACY_PRESCRIPTION_PRACTICE-PPP/PPPPRT10.m@ 701

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

initial load of WorldVistAEHR

File size: 617 bytes
Line 
1PPPPRT10 ;ALB/JFP - DISPLAY LOG FILE BY DATE ; 3/20/92
2 ;;V1.0;PHARMACY PRESCRIPTION PRACTICE;;APR 7,1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5DSPLOG ;
6 ;
7 N IDATE,DONE,TMP,BNR1
8 ;
9 S (IDATE,DONE)=0
10 S BNR1="PHARMACY PRESCRIPTION PRACTICES PRINT LOG"
11 ;
12 F IDATE=0:0 D Q:+IDATE<0!(DONE)
13 .S TMP=$$BANNER^PPPDSP1(BNR1) W !!
14 .S IDATE=$$GETDATE^PPPPRT10()
15 .I IDATE<0 S DONE=1 Q
16 .D DSPLOG^PPPPRT11(IDATE)
17 Q
18 ;
19GETDATE() ; Prompts for date
20 S DIR("A")="Enter Date: "
21 ;S DIR("B")=""
22 S DIR(0)="DAO^:@DT:EX"
23 D ^DIR K DIR
24 I $D(DIRUT)!$D(DTOUT)!$D(DUOUT) Q -1
25 S IDATE=Y
26 Q IDATE
27 ;
Note: See TracBrowser for help on using the repository browser.