PSJ0111.m

PSJ0111 ;BIR/JLC - Check for Non-Standard Schedules ;01-MAR-04

 ;;5.0; INPATIENT MEDICATIONS ;**111**;16 DEC 97

 ;

 ;Reference to ^PS(51.1 is supported by DBIA# 2177.

 ;

 Q

SENDMSG ;Send mail message when check is complete.

 K PSG,XMY S XMDUZ="MEDICATIONS,INPATIENT",XMSUB="SCHEDULE FILE (#51.1)",XMTEXT="^XTMP(""PSJ"",1,",XMY("G.PHARMACY SCHEDULES@FO-BIRM.DOMAIN.EXT")=""

 D NOW^%DTC S Y=% X ^DD("DD")

 S OCNT=0,A="^PS(51.1,0)" F  S A=$Q(@A) Q:A=""  Q:$P(A,",",2)'?1.N  S OCNT=OCNT+1,^XTMP("PSJ",1,OCNT)=A_" = "_@A

 D ^XMD

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSJ0111   543     printed  Sep 23, 2025@19:41:43                                                                                                                                                                                                      Page 2

PSJ0111   ;BIR/JLC - Check for Non-Standard Schedules ;01-MAR-04

 +1       ;;5.0; INPATIENT MEDICATIONS ;**111**;16 DEC 97

 +2       ;

 +3       ;Reference to ^PS(51.1 is supported by DBIA# 2177.

 +4       ;

 +5        QUIT 

SENDMSG   ;Send mail message when check is complete.

 +1        KILL PSG,XMY

           SET XMDUZ="MEDICATIONS,INPATIENT"

           SET XMSUB="SCHEDULE FILE (#51.1)"

           SET XMTEXT="^XTMP(""PSJ"",1,"

           SET XMY("G.PHARMACY SCHEDULES@FO-BIRM.DOMAIN.EXT")=""

 +2        DO NOW^%DTC

           SET Y=%

           XECUTE ^DD("DD")

 +3        SET OCNT=0

           SET A="^PS(51.1,0)"

           FOR 

               SET A=$QUERY(@A)

               if A=""

                   QUIT 

               if $PIECE(A,",",2)'?1.N

                   QUIT 

               SET OCNT=OCNT+1

               SET ^XTMP("PSJ",1,OCNT)=A_" = "_@A

 +4        DO ^XMD

 +5        QUIT 

 +6       ;