- PSS0093 ;BIR/JLC-CHECK FOR SCHEDULES WITH PRN IN NAMES ;02/10/2006
- ;;1.0;PHARMACY DATA MANAGEMENT;**93**;9/30/97
- ;
- ;
- Q
- EN K ZTSAVE,ZTSK S ZTRTN="ENQN^PSS0093",ZTDESC="PDM - Check for schedules with PRN in name",ZTIO="" D ^%ZTLOAD
- W !!,"The check for PRN schedules is",$S($D(ZTSK):"",1:" NOT")," queued",!
- I $D(ZTSK) D
- . W " (to start NOW).",!!,"YOU WILL RECEIVE A MAILMAN MESSAGE WHEN TASK #"_ZTSK_" HAS COMPLETED."
- Q
- ENQN N IEN,PSSC,PSS,SCHED
- S PSS=6,PSS(6,0)="",IEN=0 F S IEN=$O(^PS(51.1,IEN)) Q:'IEN D
- . S SCHED=$P($G(^PS(51.1,IEN,0)),"^") I $L(PSS(PSS,0))>55 S PSS=PSS+1,PSS(PSS,0)=""
- . I SCHED["PRN" S PSS(PSS,0)=PSS(PSS,0)_SCHED_", "
- SENDMSG ;Send mail message when check is complete.
- N XMDUZ,XMSUB,XMTEXT,XMY
- S XMDUZ="MANAGEMENT,PHARMACY DATA",XMSUB="CHECK FOR PRN SCHEDULES COMPLETE",XMTEXT="PSS(",XMY(DUZ)="" D NOW^%DTC S Y=% X ^DD("DD")
- S PSS(1,0)=" The check for PRN schedules completed as of "_Y_"."
- S PSS(2,0)=" ",PSS(3,0)="The following schedules contain PRN. Please change the schedule type"
- S PSS(4,0)="to PRN if appropriate.",PSS(5,0)=" "
- D ^XMD Q
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSS0093 1106 printed Feb 18, 2025@23:55:05 Page 2
- PSS0093 ;BIR/JLC-CHECK FOR SCHEDULES WITH PRN IN NAMES ;02/10/2006
- +1 ;;1.0;PHARMACY DATA MANAGEMENT;**93**;9/30/97
- +2 ;
- +3 ;
- +4 QUIT
- EN KILL ZTSAVE,ZTSK
- SET ZTRTN="ENQN^PSS0093"
- SET ZTDESC="PDM - Check for schedules with PRN in name"
- SET ZTIO=""
- DO ^%ZTLOAD
- +1 WRITE !!,"The check for PRN schedules is",$SELECT($DATA(ZTSK):"",1:" NOT")," queued",!
- +2 IF $DATA(ZTSK)
- Begin DoDot:1
- +3 WRITE " (to start NOW).",!!,"YOU WILL RECEIVE A MAILMAN MESSAGE WHEN TASK #"_ZTSK_" HAS COMPLETED."
- End DoDot:1
- +4 QUIT
- ENQN NEW IEN,PSSC,PSS,SCHED
- +1 SET PSS=6
- SET PSS(6,0)=""
- SET IEN=0
- FOR
- SET IEN=$ORDER(^PS(51.1,IEN))
- if 'IEN
- QUIT
- Begin DoDot:1
- +2 SET SCHED=$PIECE($GET(^PS(51.1,IEN,0)),"^")
- IF $LENGTH(PSS(PSS,0))>55
- SET PSS=PSS+1
- SET PSS(PSS,0)=""
- +3 IF SCHED["PRN"
- SET PSS(PSS,0)=PSS(PSS,0)_SCHED_", "
- End DoDot:1
- SENDMSG ;Send mail message when check is complete.
- +1 NEW XMDUZ,XMSUB,XMTEXT,XMY
- +2 SET XMDUZ="MANAGEMENT,PHARMACY DATA"
- SET XMSUB="CHECK FOR PRN SCHEDULES COMPLETE"
- SET XMTEXT="PSS("
- SET XMY(DUZ)=""
- DO NOW^%DTC
- SET Y=%
- XECUTE ^DD("DD")
- +3 SET PSS(1,0)=" The check for PRN schedules completed as of "_Y_"."
- +4 SET PSS(2,0)=" "
- SET PSS(3,0)="The following schedules contain PRN. Please change the schedule type"
- +5 SET PSS(4,0)="to PRN if appropriate."
- SET PSS(5,0)=" "
- +6 DO ^XMD
- QUIT