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

PSB0000.m

Go to the documentation of this file.
  1. PSB0000 ;BIR/JLC - BUILD APATCH CROSS-REFERENCE ;04/01/02
  1. ;;2.0;BAR CODE MED ADMIN;;May 2002
  1. Q
  1. EN I $G(DUZ)="" W !,"Your DUZ is not defined. It must be defined to run this routine." Q
  1. K ZTSAVE,ZTSK S ZTRTN="ENQN^PSB0000",ZTDESC="Build PATCH cross-reference",ZTIO="" D ^%ZTLOAD
  1. W !!,"The build of the PATCH xref is",$S($D(ZTSK):"",1:" NOT")," queued",!
  1. I $D(ZTSK) D
  1. . W " (to start NOW).",!!,"YOU WILL RECEIVE A MAILMAN MESSAGE WHEN TASK #"_ZTSK_" HAS COMPLETED."
  1. Q
  1. ENQN ;first - delete the old style cross reference
  1. D DELIX^DDMOD(53.795,.04,2,"K")
  1. S IEN=0
  1. F S IEN=$O(^PSB(53.79,IEN)) Q:'IEN D
  1. . S DA(1)=IEN,DA=1,DIK="^PSB(53.79,DA(1),.5,",DIK(1)=".04^APATCH" D EN^DIK
  1. SENDMSG ;Send mail message when check is complete.
  1. K PSG,XMY S XMDUZ="MEDICATIONS,INPATIENT",XMSUB="BUILD OF PATCH CROSSREFERENCE COMPLETE",XMTEXT="PSB(",XMY(DUZ)="" D NOW^%DTC S Y=% X ^DD("DD")
  1. S PSB(1,0)=" The build of the PATCH crossreference completed as of "_Y_"."
  1. D ^XMD Q