PSO7P753.m

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 ---PSO7P753   678     printed  Sep 23, 2025@20:00:14                                                                                                                                                                                                     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.")