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 ---[H[J[2J[HPSO7P359 838 printed Nov 22, 2024@17:33:47 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
