Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PSO7P753

PSO7P753.m

Go to the documentation of this file.
  1. PSO7P753 ;WILM/BDB - Post-Install for PSO patch 743 ;12-JAN-2024
  1. ;;7.0;OUTPATIENT PHARMACY;**753**;DEC 1997;Build 53
  1. ;;Per VA Directive 6402, this routine should not be modified.
  1. Q
  1. ;
  1. EN ; -- entry point
  1. ; set header for the menu protocol
  1. N FDA,PRIEN,PRNAME
  1. D BMES^XPDUTL("-------------")
  1. D MES^XPDUTL("Setting the header for the Order Selection Menu protocol. ")
  1. S PRNAME="PSO LM SELECT MENU" D
  1. .S PRIEN=+$$FIND1^DIC(101,,"X",PRNAME,"B")
  1. .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"""
  1. .Q
  1. I $D(FDA) D FILE^DIE("E","FDA")
  1. D BMES^XPDUTL(" Done.")