| [613] | 1 | PPPBTCH ;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
|
|---|
| 13 | START ;
|
|---|
| 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
|
|---|
