NURA.m

NURA ;HIRMFO/RM/JH/MD-ROUTINE TO CHECK FOR VERSION NUMBER, AND RUN NURS. ADMIN. MENU ;8/16/95

 ;;4.0;NURSING SERVICE;;Apr 25, 1997

 ;THIS ROUTINE IS BEING ADDED TO CHECK VERSION NUMBER OF NURSING ADMINISTRATION MODULE

 ;BUT LATER WILL RUN A MENU TO DEMONSTRATE NURSING ADMINISTRATION

 Q:'$D(^DIC(213.9,1,"OFF"))  Q:$P(^DIC(213.9,1,"OFF"),"^",1)=1

 S NURAVER=$$VERSION^XPDUTL("NURA") W:NURAVER'="" !!,"Version ",NURAVER," of the Nursing Administration Module" K NURAVER

 Q

NURA      ;HIRMFO/RM/JH/MD-ROUTINE TO CHECK FOR VERSION NUMBER, AND RUN NURS. ADMIN. MENU ;8/16/95

 +1       ;;4.0;NURSING SERVICE;;Apr 25, 1997

 +2       ;THIS ROUTINE IS BEING ADDED TO CHECK VERSION NUMBER OF NURSING ADMINISTRATION MODULE

 +3       ;BUT LATER WILL RUN A MENU TO DEMONSTRATE NURSING ADMINISTRATION

 +4        IF '$DATA(^DIC(213.9,1,"OFF"))

               QUIT 

           IF $PIECE(^DIC(213.9,1,"OFF"),"^",1)=1

               QUIT 

 +5        SET NURAVER=$$VERSION^XPDUTL("NURA")

           IF NURAVER'=""

               WRITE !!,"Version ",NURAVER," of the Nursing Administration Module"

           KILL NURAVER

 +6        QUIT