LR527PST.m

LR527PST ;HPS/DSK - LR*5.2*527 PATCH POST INSTALL ROUTINE ;Aug 09, 2019@12:00

 ;;5.2;LAB SERVICE;**527**;Sep 27, 1994;Build 16

 ;

 ; Reference to OUT^XPDMENU and DELETE^XPDMENU supported by IA #1157

 Q

 ;

EN ;

 N LROPT

 S LROPT=$$DELETE^XPDMENU("LR IN","LRDELOG")

 W !,"Menu option ""Remove an accession"" ",$S('LROPT:"NOT ",1:""),"deleted from ""Accessioning menu""."

 F LROPT="LRDELOG","LRTSTJAM" D

 . D OUT^XPDMENU(LROPT,"Out of Service per patch LR*5.2*527")

 . W !,"Option ",LROPT," placed ""Out of Service""."

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LR527PST   533     printed  Nov 22, 2024@17:14:25                                                                                                                                                                                                     Page 2

LR527PST  ;HPS/DSK - LR*5.2*527 PATCH POST INSTALL ROUTINE ;Aug 09, 2019@12:00

 +1       ;;5.2;LAB SERVICE;**527**;Sep 27, 1994;Build 16

 +2       ;

 +3       ; Reference to OUT^XPDMENU and DELETE^XPDMENU supported by IA #1157

 +4        QUIT 

 +5       ;

EN        ;

 +1        NEW LROPT

 +2        SET LROPT=$$DELETE^XPDMENU("LR IN","LRDELOG")

 +3        WRITE !,"Menu option ""Remove an accession"" ",$SELECT('LROPT:"NOT ",1:""),"deleted from ""Accessioning menu""."

 +4        FOR LROPT="LRDELOG","LRTSTJAM"

               Begin DoDot:1

 +5                DO OUT^XPDMENU(LROPT,"Out of Service per patch LR*5.2*527")

 +6                WRITE !,"Option ",LROPT," placed ""Out of Service""."

               End DoDot:1

 +7        QUIT