PSO7P359.m

PSO7P359 ;BIRM/BNT - Post-intall for PSO*7*359 ;02/16/11

 ;;7.0;OUTPATIENT PHARMACY;**359**;DEC 1997;Build 27

 ;;Per VHA Directive 2004-038, this routine should not be modified.

 ;

 Q

 ;

 ;

POST ; Entry Point for post-install

 D MES^XPDUTL("  Starting post-install of PSO*7*359")

 N PSORDHM,PSOHA1,XQORM,I

 ; Remove ^XUTL entry for hidden action menu protocols

 ; Get the IEN for the PSO REJECT DISPLAY HIDDEN MENU

 S PSORDHM=$O(^ORD(101,"B","PSO REJECT DISPLAY HIDDEN MENU",0))

 ; Get the IEN for the PSO HIDDEN ACTIONS #1

 S PSOHA1=$O(^ORD(101,"B","PSO HIDDEN ACTIONS #1",0))

 ;

 F I=PSORDHM,PSOHA1 S XQORM=I_";ORD(101," I $D(^XUTL("XQORM",XQORM)) D

 . D MES^XPDUTL("    Removing cached hidden menu for "_$P(^ORD(101,I,0),U,1))

 . K ^XUTL("XQORM",XQORM)

 ;

 D MES^XPDUTL("  Finished post-install of PSO*7*359")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSO7P359   838     printed  Apr 09, 2024@21:31:14                                                                                                                                                                                                     Page 2

PSO7P359  ;BIRM/BNT - Post-intall for PSO*7*359 ;02/16/11

 +1       ;;7.0;OUTPATIENT PHARMACY;**359**;DEC 1997;Build 27

 +2       ;;Per VHA Directive 2004-038, this routine should not be modified.

 +3       ;

 +4        QUIT 

 +5       ;

 +6       ;

POST      ; Entry Point for post-install

 +1        DO MES^XPDUTL("  Starting post-install of PSO*7*359")

 +2        NEW PSORDHM,PSOHA1,XQORM,I

 +3       ; Remove ^XUTL entry for hidden action menu protocols

 +4       ; Get the IEN for the PSO REJECT DISPLAY HIDDEN MENU

 +5        SET PSORDHM=$ORDER(^ORD(101,"B","PSO REJECT DISPLAY HIDDEN MENU",0))

 +6       ; Get the IEN for the PSO HIDDEN ACTIONS #1

 +7        SET PSOHA1=$ORDER(^ORD(101,"B","PSO HIDDEN ACTIONS #1",0))

 +8       ;

 +9        FOR I=PSORDHM,PSOHA1

               SET XQORM=I_";ORD(101,"

               IF $DATA(^XUTL("XQORM",XQORM))

                   Begin DoDot:1

 +10                   DO MES^XPDUTL("    Removing cached hidden menu for "_$PIECE(^ORD(101,I,0),U,1))

 +11                   KILL ^XUTL("XQORM",XQORM)

                   End DoDot:1

 +12      ;

 +13       DO MES^XPDUTL("  Finished post-install of PSO*7*359")

 +14       QUIT