PSO457P.m

PSO457P ;HEC/hrub - Post-Init for PSO*7*457 ;31 May 2019 14:27:27

 ;;7.0;OUTPATIENT PHARMACY;**457**;March 2019;Build 116

 ;

 Q

 ;

POST ; post-init entry point

 ;

 I $D(^DIR("A")) K ^DIR("A")  ; clean up any residue

 ;

 D  ; update ^XTMP storage if found

 . D BMES^XPDUTL("Checking for Clozapine Registry data in ^XTMP. "_$$FMTE^XLFDT($$NOW^XLFDT))

 . I '$D(^XTMP("PSJ CLOZ",0)) D BMES^XPDUTL("No Clozapine Registry data found in ^XTMP.  No action taken.") Q

 . D XTMPZRO^PSOCLOU D BMES^XPDUTL("Clozapine Registry data in ^XTMP updated.")

 ;

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSO457P   564     printed  Apr 09, 2024@21:34:27                                                                                                                                                                                                      Page 2

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

 +2       ;

 +3        QUIT 

 +4       ;

POST      ; post-init entry point

 +1       ;

 +2       ; clean up any residue

           IF $DATA(^DIR("A"))

               KILL ^DIR("A")

 +3       ;

 +4       ; update ^XTMP storage if found

           Begin DoDot:1

 +5            DO BMES^XPDUTL("Checking for Clozapine Registry data in ^XTMP. "_$$FMTE^XLFDT($$NOW^XLFDT))

 +6            IF '$DATA(^XTMP("PSJ CLOZ",0))

                   DO BMES^XPDUTL("No Clozapine Registry data found in ^XTMP.  No action taken.")

                   QUIT 

 +7            DO XTMPZRO^PSOCLOU

               DO BMES^XPDUTL("Clozapine Registry data in ^XTMP updated.")

           End DoDot:1

 +8       ;

 +9        QUIT 

 +10      ;