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

PSO457P.m

Go to the documentation of this file.
  1. PSO457P ;HEC/hrub - Post-Init for PSO*7*457 ;31 May 2019 14:27:27
  1. ;;7.0;OUTPATIENT PHARMACY;**457**;March 2019;Build 116
  1. ;
  1. Q
  1. ;
  1. POST ; post-init entry point
  1. ;
  1. I $D(^DIR("A")) K ^DIR("A") ; clean up any residue
  1. ;
  1. D ; update ^XTMP storage if found
  1. . D BMES^XPDUTL("Checking for Clozapine Registry data in ^XTMP. "_$$FMTE^XLFDT($$NOW^XLFDT))
  1. . I '$D(^XTMP("PSJ CLOZ",0)) D BMES^XPDUTL("No Clozapine Registry data found in ^XTMP. No action taken.") Q
  1. . D XTMPZRO^PSOCLOU D BMES^XPDUTL("Clozapine Registry data in ^XTMP updated.")
  1. ;
  1. Q
  1. ;