PRC247P ;RFS/MNTVBB - PRCHL GUI OPTION DECOMMISSION ; 06/10/2025 11:11am
;;5.1;IFCAP;**247**; Oct 20, 2000;Build 4
;;Per VA Directive 6402, this routine should not be modified.
;
;External References
; Reference to OUT^XPDMENU in ICR #1157
; Reference to BMES^XPDUTL in ICR #10141
;
Q
;
DISOPT ;Mark options out of order
N PRCLP,PRCOPT,PRCTEXT
S (PRCLP,PRCOPT,PRCTEXT)=0
F PRCLP=1:1 S PRCOPT=$P($TEXT(OPTLST+PRCLP),";;",2) Q:PRCOPT="$$END" D
.D OUT^XPDMENU(PRCOPT,"DO NOT USE!! - PRC GUI DECOM - PRC*5.1*247")
.S PRCTEXT="The "_PRCOPT_" option has been marked out of order." D BMES^XPDUTL(PRCTEXT)
.Q
Q
;
OPTLST ;OPTION LIST
;;PRCHL GUI
;;$$END
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRC247P 691 printed Jan 29, 2026@14:58:04 Page 2
PRC247P ;RFS/MNTVBB - PRCHL GUI OPTION DECOMMISSION ; 06/10/2025 11:11am
+1 ;;5.1;IFCAP;**247**; Oct 20, 2000;Build 4
+2 ;;Per VA Directive 6402, this routine should not be modified.
+3 ;
+4 ;External References
+5 ; Reference to OUT^XPDMENU in ICR #1157
+6 ; Reference to BMES^XPDUTL in ICR #10141
+7 ;
+8 QUIT
+9 ;
DISOPT ;Mark options out of order
+1 NEW PRCLP,PRCOPT,PRCTEXT
+2 SET (PRCLP,PRCOPT,PRCTEXT)=0
+3 FOR PRCLP=1:1
SET PRCOPT=$PIECE($TEXT(OPTLST+PRCLP),";;",2)
if PRCOPT="$$END"
QUIT
Begin DoDot:1
+4 DO OUT^XPDMENU(PRCOPT,"DO NOT USE!! - PRC GUI DECOM - PRC*5.1*247")
+5 SET PRCTEXT="The "_PRCOPT_" option has been marked out of order."
DO BMES^XPDUTL(PRCTEXT)
+6 QUIT
End DoDot:1
+7 QUIT
+8 ;
OPTLST ;OPTION LIST
+1 ;;PRCHL GUI
+2 ;;$$END
+3 ;
