- 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 Jan 18, 2025@03:25:12 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.")