PSO7P701.m

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 ---PSO7P701   897     printed  Apr 09, 2024@21:28:50                                                                                                                                                                                                     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