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

PSJBCMA6.m

Go to the documentation of this file.
  1. PSJBCMA6 ;B'ham/JCH - Send Message when Clinic Order Setup incomplete ; 18 Aug 98 / 2:48 PM
  1. ;;5.0;INPATIENT MEDICATIONS;**279**;16 DEC 97;Build 150
  1. ;
  1. Q
  1. NOCLDEF(DFN,ORDER) ; If clinic not defined in Clinic Definition file for Pending order, send message
  1. Q:'$G(DFN)!'$G(ORDER) Q:'(ORDER["P")
  1. N I,CL,CLNM,PSJMARR,DIC,X,Y,NDP2,ND0,MSG2
  1. S CL=$G(^PS(53.1,+ORDER,"DSS")) Q:'CL!'$P(CL,"^",2)
  1. S DIC="^PS(53.46,",DIC(0)="NSUZX",X=+CL D ^DIC Q:(Y>0)
  1. ;
  1. S DIC="^SC(",DIC(0)="NSUXZ",X=+CL D ^DIC Q:'$G(Y)
  1. S CLNM=$P(Y,"^",2)
  1. S PSJMARR(1,0)=" The following location is not defined in the CLINIC DEFINITION (#53.46) file:"
  1. S PSJMARR(3,0)=" Location.......: "_CLNM
  1. S PSJMARR(4,0)=" As a result, the following Clinic Order will not display in BCMA:"
  1. S PSJMARR(5,0)=" Patient DFN....: "_DFN
  1. S PSJMARR(6,0)=" Order Number...: "_ORDER,PSJMARR(7,0)=""
  1. S MSG2=" Clinic Orders associated with "_CLNM_" will not display in BCMA unless the clinic is defined in the CLINIC DEFINITION (#53.46) file, and the SEND TO BCMA (#3) field is set to YES."
  1. D TXT^PSGMUTL(MSG2,74)
  1. S I="" F S I=$O(MARX(I)) Q:I="" S PSJMARR(7+I,0)=" "_MARX(I)
  1. D MSGEN(.PSJMARR)
  1. K %
  1. Q
  1. MSGEN(PSJCLMSG) ; Begin
  1. D SENDMSG
  1. Q
  1. SENDMSG ;Send mail message
  1. K PSG,XMY S XMDUZ="MEDICATIONS,INPATIENT",XMSUB="INCOMPLETE CLINIC DEFINITION SETUP",XMTEXT="PSGCL(",XMY("G.PSJ CLINIC DEFINITION")="" D NOW^%DTC S Y=% X ^DD("DD")
  1. N I S I="" F S I=$O(PSJCLMSG(I)) Q:I="" S PSGCL(I,0)=$G(PSJCLMSG(I,0))
  1. D ^XMD
  1. ;
  1. DONE ;
  1. K DA,DIK,X,XMDUZ,XMSUB,XMTEXT,XMY,Y,PSGCL,MARX,XMDUN,XMMG,XMZ
  1. Q
  1. ;
  1. GETDT ; check date/time for job to run
  1. N %DT,Y S %DT="NRS"
  1. D ^%DT I Y=-1 K X
  1. E S X=Y
  1. Q
  1. CON() ;
  1. N %DT S %DT="NRS" D ^%DT
  1. Q Y
  1. ;
  1. CWARN(DFN,ORDER) ; Display warning about undefined CLINIC DEFINITION
  1. Q:'$G(DFN)!'$G(ORDER) Q:'(ORDER["P")
  1. N I,MARX,MSG1,I,CL,CLNM,DIC,X,Y
  1. S CL=$G(^PS(53.1,+ORDER,"DSS")) Q:'CL!'$P(CL,"^",2)
  1. S DIC="^PS(53.46,",DIC(0)="NSUZX",X=+CL D ^DIC Q:(Y>0)
  1. S DIC="^SC(",DIC(0)="NSUXZ",X=+CL D ^DIC Q:'$G(Y)
  1. S CLNM=$P(Y,"^",2)
  1. D CLEAR^VALM1,FULL^VALM1
  1. S MSG1="Clinic "_CLNM_" is not defined in the CLINIC DEFINITION (#53.46) file."
  1. D TXT^PSGMUTL(MSG1,70)
  1. W ! S I="" F S I=$O(MARX(I)) Q:I="" W !,MARX(I)
  1. W !!,"This order will NOT display in BCMA, unless the clinic is defined in the"
  1. W !,"CLINIC DEFINITION (#53.46) file, and the SEND TO BCMA (#3) field is set to YES."
  1. W !!,"Please contact your Pharmacy ADPAC.",!
  1. D CONT^PSJOE0
  1. Q