PSO7P753 ;WILM/BDB - Post-Install for PSO patch 743 ;12-JAN-2024
;;7.0;OUTPATIENT PHARMACY;**753**;DEC 1997;Build 53
;;Per VA Directive 6402, this routine should not be modified.
Q
;
EN ; -- entry point
; set header for the menu protocol
N FDA,PRIEN,PRNAME
D BMES^XPDUTL("-------------")
D MES^XPDUTL("Setting the header for the Order Selection Menu protocol. ")
S PRNAME="PSO LM SELECT MENU" D
.S PRIEN=+$$FIND1^DIC(101,,"X",PRNAME,"B")
.I PRIEN S FDA(101,PRIEN_",",26)="D A^PSOORUT3,SHOW^VALM S:$G(PSOACT)[""E"" XQORM(""#"")=$O(^ORD(101,""B"",""PSO LM EDIT SELECT ORDER"",0))_""^1:22"""
.Q
I $D(FDA) D FILE^DIE("E","FDA")
D BMES^XPDUTL(" Done.")
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSO7P753 678 printed Dec 13, 2024@02:24:03 Page 2
PSO7P753 ;WILM/BDB - Post-Install for PSO patch 743 ;12-JAN-2024
+1 ;;7.0;OUTPATIENT PHARMACY;**753**;DEC 1997;Build 53
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 QUIT
+4 ;
EN ; -- entry point
+1 ; set header for the menu protocol
+2 NEW FDA,PRIEN,PRNAME
+3 DO BMES^XPDUTL("-------------")
+4 DO MES^XPDUTL("Setting the header for the Order Selection Menu protocol. ")
+5 SET PRNAME="PSO LM SELECT MENU"
Begin DoDot:1
+6 SET PRIEN=+$$FIND1^DIC(101,,"X",PRNAME,"B")
+7 IF PRIEN
SET FDA(101,PRIEN_",",26)="D A^PSOORUT3,SHOW^VALM S:$G(PSOACT)[""E"" XQORM(""#"")=$O(^ORD(101,""B"",""PSO LM EDIT SELECT ORDER"",0))_""^1:22"""
+8 QUIT
End DoDot:1
+9 IF $DATA(FDA)
DO FILE^DIE("E","FDA")
+10 DO BMES^XPDUTL(" Done.")
