source: FOIAVistA/trunk/r/PHARMACY_PRESCRIPTION_PRACTICE-PPP/PPPPRT3.m

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

initial load of FOIAVistA 6/30/08 version

File size: 855 bytes
Line 
1PPPPRT3 ;ALB/GGP - PPP PRINT ROUTINE 3 ; 03/12/92
2 ;;V1.0;PHARMACY PRESCRIPTION PRACTICE;;APR 7,1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ; PRINT ROUTINES FOR PHARMACY PRACTICES PROJECT
5PRSTAT ;
6 ;
7 ; This function prints the pharmacy project statistics.
8 ; fileman# 1020.3.
9 ;
10 N L,DIC,FLDS,BY,FR,TO,DHD,DIOEND
11 ;
12 S L=0,DIC="^PPP(1020.3,"
13 S FLDS="[PPPSTAP]",BY="@ONE"
14 S FR="",TO=""
15 S DIOEND="I $E(IOST,1,2)=""C-"" W !!,""LISTING COMPLETE."" R !,""Press <RETURN> to continue..."",PPPX:DTIME K PPPX"
16 D EN1^DIP
17 Q
18PRLOG ;
19 ; This function prints the pharmacy project logfile.
20 ; fileman# 1020.4
21 ;
22 N L,DIC,FLDS,BY,DHD,DIOEND
23 ;
24 S L=0,DIC="^PPP(1020.4,"
25 S FLDS="[PPP LOGP]",BY="@DATE"
26 S DIOEND="I $E(IOST,1,2)=""C-"" W !!,""LISTING COMPLETE."" R !,""Press <RETURN> to continue..."",PPPX:DTIME K PPPX"
27 D EN1^DIP
28 Q
Note: See TracBrowser for help on using the repository browser.