- 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 ---[H[J[2J[HPSJ0111 543 printed Feb 18, 2025@23:31:59 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 ;