PSO7P701 ;DAL/JCH - Post Install routine for patch PSO*7*701 ;08/30/2022
;;7.0;OUTPATIENT PHARMACY;**701**;DEC 1997;Build 3
Q
EN ; Post-Installation Entry Point
N ERR,OPTNAME,MENUTEXT
N DIFROM
S DUZ=$S($G(DUZ):+$G(DUZ),1:.5)
;
S OPTNAME="PSO EPCS PSDRPH KEY"
S MENUTEXT="Allocate/De-Allocate of PSDRPH Key (Audited)"
D EDMNUTXT(OPTNAME,MENUTEXT)
;
I $D(ZTQUEUED) S ZTREQ="@" ; Kernel Environment variables. If queued, remove task when complete.
Q
;
EDMNUTXT(NAME,TEXT) ; Edit Menu Text
; NAME - The NAME field (#.01) in the OPTION file (#19) of the option to edit.
; TEXT - The new value of the MENU TEXT field (#1) in the OPTION file (#19) of the option being edited.
;
N PSOFDA
;
S OPTIEN=$$FIND1^DIC(19,"","X","PSO EPCS PSDRPH KEY")
Q:'OPTIEN ; Option doesn't exist, can't edit
;
S PSOFDA(19,OPTIEN_",",1)=TEXT
D FILE^DIE(,"PSOFDA") K FDA
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSO7P701 897 printed Dec 13, 2024@02:24 Page 2
PSO7P701 ;DAL/JCH - Post Install routine for patch PSO*7*701 ;08/30/2022
+1 ;;7.0;OUTPATIENT PHARMACY;**701**;DEC 1997;Build 3
+2 QUIT
EN ; Post-Installation Entry Point
+1 NEW ERR,OPTNAME,MENUTEXT
+2 NEW DIFROM
+3 SET DUZ=$SELECT($GET(DUZ):+$GET(DUZ),1:.5)
+4 ;
+5 SET OPTNAME="PSO EPCS PSDRPH KEY"
+6 SET MENUTEXT="Allocate/De-Allocate of PSDRPH Key (Audited)"
+7 DO EDMNUTXT(OPTNAME,MENUTEXT)
+8 ;
+9 ; Kernel Environment variables. If queued, remove task when complete.
IF $DATA(ZTQUEUED)
SET ZTREQ="@"
+10 QUIT
+11 ;
EDMNUTXT(NAME,TEXT) ; Edit Menu Text
+1 ; NAME - The NAME field (#.01) in the OPTION file (#19) of the option to edit.
+2 ; TEXT - The new value of the MENU TEXT field (#1) in the OPTION file (#19) of the option being edited.
+3 ;
+4 NEW PSOFDA
+5 ;
+6 SET OPTIEN=$$FIND1^DIC(19,"","X","PSO EPCS PSDRPH KEY")
+7 ; Option doesn't exist, can't edit
if 'OPTIEN
QUIT
+8 ;
+9 SET PSOFDA(19,OPTIEN_",",1)=TEXT
+10 DO FILE^DIE(,"PSOFDA")
KILL FDA
+11 QUIT
