source: WorldVistAEHR/trunk/r/PHARMACY_PRESCRIPTION_PRACTICE-PPP/PPPBTCH.m@ 1582

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

initial load of WorldVistAEHR

File size: 1.0 KB
RevLine 
[613]1PPPBTCH ;ALB/DMB - DAILY BATCH ROUTINE FOR 3P ; 3/19/92
2 ;;1.0;PHARMACY PRESCRIPTION PRACTICE;**2,35,38**;APR 7,1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5 ; -- This batch job accomplishes the following things
6 ;
7 ; 0. Logs event in PPP Log file, PPPBTCH STARTED
8 ; 1. Scans FFX file for bad PDX results
9 ; 2. Scans Clinic for patients to send PDX's for
10 ; 3. Adds new patients to FFX file
11 ; 4. Prints Clinical Medication Profiles
12 ; 5. Logs event in PPP Log file, PPPBTCH Complete
13START ;
14 ;
15 N TMP
16 ;
17 ; -- Log event in PPP LOG file (#1020.4)
18 K ^TMP($J,"PPPDOUG") S PPPFLAG=1
19 S TMP=$$LOGEVNT^PPPMSC1(1023,"_PPPBTCH")
20 ; -- Run night jobs
21 D XREFSCAN^PPPSCN1
22 D FFSCAN^PPPSCN2
23 ;PPP*1*35 - Dave B - remove checking for new patients from CD-ROM
24 ;since there is no longer a CD, the data can be obtained from
25 ;the MPI/PD package
26 ;VMP OIFO BAY PINES;ELR;PPP*1*38
27 ;PUT CALL BACK IN to PPPBLD4
28 D NEWPAT^PPPBLD4
29 D START^PPPPRT2
30 S TMP=$$LOGEVNT^PPPMSC1(1024,"PPPBTCH")
31 K ^TMP($J,"PPPDOUG"),PPPFLAG
32 Q
Note: See TracBrowser for help on using the repository browser.