- 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 ---[H[J[2J[HPSO457P 564 printed Dec 13, 2024@02:22:57 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 ;