PRSE.m

PRSE ;HISC/RM-ROUTINE TO CHECK FOR VERSION NUMBER, AND RUN EMPLOYEE/ED MENU ;86/8/26

 ;;4.0;PAID;;Sep 21, 1995

 ;THIS ROUTINE IS BEING ADDED TO CHECK VERSION NUMBER OF EMPLOYEE ED TRACKING

 ;BUT LATER WILL RUN A MENU TO DEMONSTRATE EMPLOYEE ED TRACKING

 S X=$G(^PRSE(452.7,1,"OFF")) I X=""!(X=1) D MSG6^PRSEMSG Q

 S PRSEVER=$$VERSION^XPDUTL("PRSE") W:PRSEVER'="" !!,"Version ",PRSEVER," of the Education Tracking Package" K PRSEVER

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PRSE   442     printed  Apr 09, 2024@21:28:23                                                                                                                                                                                                         Page 2

PRSE      ;HISC/RM-ROUTINE TO CHECK FOR VERSION NUMBER, AND RUN EMPLOYEE/ED MENU ;86/8/26

 +1       ;;4.0;PAID;;Sep 21, 1995

 +2       ;THIS ROUTINE IS BEING ADDED TO CHECK VERSION NUMBER OF EMPLOYEE ED TRACKING

 +3       ;BUT LATER WILL RUN A MENU TO DEMONSTRATE EMPLOYEE ED TRACKING

 +4        SET X=$GET(^PRSE(452.7,1,"OFF"))

           IF X=""!(X=1)

               DO MSG6^PRSEMSG

               QUIT 

 +5        SET PRSEVER=$$VERSION^XPDUTL("PRSE")

           if PRSEVER'=""

               WRITE !!,"Version ",PRSEVER," of the Education Tracking Package"

           KILL PRSEVER

 +6        QUIT