PSO408PI ;BIRM/MFR - PSO*7*408 Post-install routine ;11/26/12
;;7.0;OUTPATIENT PHARMACY;**408**;DEC 1997;Build 100
;
EN ; - Entry Point
N PSOROOT
D OPTSTAT^XUTMOPT("PSO SPMP SCHEDULED EXPORT",.PSOROOT)
I '+$G(PSOROOT(1)) D RESCH^XUTMOPT("PSO SPMP SCHEDULED EXPORT",$$FMADD^XLFDT(DT,1)+.01,"","24H","L")
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSO408PI 323 printed Nov 22, 2024@17:32:54 Page 2
PSO408PI ;BIRM/MFR - PSO*7*408 Post-install routine ;11/26/12
+1 ;;7.0;OUTPATIENT PHARMACY;**408**;DEC 1997;Build 100
+2 ;
EN ; - Entry Point
+1 NEW PSOROOT
+2 DO OPTSTAT^XUTMOPT("PSO SPMP SCHEDULED EXPORT",.PSOROOT)
+3 IF '+$GET(PSOROOT(1))
DO RESCH^XUTMOPT("PSO SPMP SCHEDULED EXPORT",$$FMADD^XLFDT(DT,1)+.01,"","24H","L")
+4 QUIT
+5 ;
