source: WorldVistAEHR/trunk/r/PHARMACY_DATA_MANAGEMENT-PSS/PSS0093.m@ 1259

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1PSS0093 ;BIR/JLC-CHECK FOR SCHEDULES WITH PRN IN NAMES ;02/10/2006
2 ;;1.0;PHARMACY DATA MANAGEMENT;**93**;9/30/97
3 ;
4 ;
5 Q
6EN K ZTSAVE,ZTSK S ZTRTN="ENQN^PSS0093",ZTDESC="PDM - Check for schedules with PRN in name",ZTIO="" D ^%ZTLOAD
7 W !!,"The check for PRN schedules is",$S($D(ZTSK):"",1:" NOT")," queued",!
8 I $D(ZTSK) D
9 . W " (to start NOW).",!!,"YOU WILL RECEIVE A MAILMAN MESSAGE WHEN TASK #"_ZTSK_" HAS COMPLETED."
10 Q
11ENQN N IEN,PSSC,PSS,SCHED
12 S PSS=6,PSS(6,0)="",IEN=0 F S IEN=$O(^PS(51.1,IEN)) Q:'IEN D
13 . S SCHED=$P($G(^PS(51.1,IEN,0)),"^") I $L(PSS(PSS,0))>55 S PSS=PSS+1,PSS(PSS,0)=""
14 . I SCHED["PRN" S PSS(PSS,0)=PSS(PSS,0)_SCHED_", "
15SENDMSG ;Send mail message when check is complete.
16 N XMDUZ,XMSUB,XMTEXT,XMY
17 S XMDUZ="MANAGEMENT,PHARMACY DATA",XMSUB="CHECK FOR PRN SCHEDULES COMPLETE",XMTEXT="PSS(",XMY(DUZ)="" D NOW^%DTC S Y=% X ^DD("DD")
18 S PSS(1,0)=" The check for PRN schedules completed as of "_Y_"."
19 S PSS(2,0)=" ",PSS(3,0)="The following schedules contain PRN. Please change the schedule type"
20 S PSS(4,0)="to PRN if appropriate.",PSS(5,0)=" "
21 D ^XMD Q
Note: See TracBrowser for help on using the repository browser.