29 lines
855 B
Mathematica
29 lines
855 B
Mathematica
PPPPRT3 ;ALB/GGP - PPP PRINT ROUTINE 3 ; 03/12/92
|
|
;;V1.0;PHARMACY PRESCRIPTION PRACTICE;;APR 7,1995
|
|
;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|
; PRINT ROUTINES FOR PHARMACY PRACTICES PROJECT
|
|
PRSTAT ;
|
|
;
|
|
; This function prints the pharmacy project statistics.
|
|
; fileman# 1020.3.
|
|
;
|
|
N L,DIC,FLDS,BY,FR,TO,DHD,DIOEND
|
|
;
|
|
S L=0,DIC="^PPP(1020.3,"
|
|
S FLDS="[PPPSTAP]",BY="@ONE"
|
|
S FR="",TO=""
|
|
S DIOEND="I $E(IOST,1,2)=""C-"" W !!,""LISTING COMPLETE."" R !,""Press <RETURN> to continue..."",PPPX:DTIME K PPPX"
|
|
D EN1^DIP
|
|
Q
|
|
PRLOG ;
|
|
; This function prints the pharmacy project logfile.
|
|
; fileman# 1020.4
|
|
;
|
|
N L,DIC,FLDS,BY,DHD,DIOEND
|
|
;
|
|
S L=0,DIC="^PPP(1020.4,"
|
|
S FLDS="[PPP LOGP]",BY="@DATE"
|
|
S DIOEND="I $E(IOST,1,2)=""C-"" W !!,""LISTING COMPLETE."" R !,""Press <RETURN> to continue..."",PPPX:DTIME K PPPX"
|
|
D EN1^DIP
|
|
Q
|