Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSJ0111

PSJ0111.m

Go to the documentation of this file.
  1. PSJ0111 ;BIR/JLC - Check for Non-Standard Schedules ;01-MAR-04
  1. ;;5.0; INPATIENT MEDICATIONS ;**111**;16 DEC 97
  1. ;
  1. ;Reference to ^PS(51.1 is supported by DBIA# 2177.
  1. ;
  1. Q
  1. SENDMSG ;Send mail message when check is complete.
  1. K PSG,XMY S XMDUZ="MEDICATIONS,INPATIENT",XMSUB="SCHEDULE FILE (#51.1)",XMTEXT="^XTMP(""PSJ"",1,",XMY("G.PHARMACY SCHEDULES@FO-BIRM.DOMAIN.EXT")=""
  1. D NOW^%DTC S Y=% X ^DD("DD")
  1. 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
  1. D ^XMD
  1. Q
  1. ;