NURXPST.m

NURXPST ;HIRMFO/FT-Nursing Service v4.0 Post-Initialization Routine ;1/21/97  14:27

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

 ;

 ; This routine contains the post-initialization code for Nursing

 ; Service package v4.0.

 ;

 D MAILGRP,POST1^NURSFILE,MASMSG

 Q

MAILGRP ; Remind IRM to check for members in NURS-ADP mail group

 D BMES^XPDUTL("Reminder: Make certain the NURS-ADP mail group has at least one member.")

 Q

ONLINE ; Set Nursing software switch back to On-Line

 S $P(^DIC(213.9,1,"OFF"),U,1)=0

 D BMES^XPDUTL("Setting Nursing software switch back to ON-LINE")

 Q

MAS ; post-init ward deactivation/activation to update mas movements

 S (NURSTUS)="I",(NURSBAD,NURSEND,OUTSW)=0 D DATACK^NURSCPLU D:'NURSDATA FIRSTIME^NURSCPLU I NURSEND K NURSEND D ONLINE Q

 F NURS1=0:0 S NURS1=$O(^NURSF(211.4,"D","A",NURS1)) Q:NURS1'>0  S NURSWRD(NURS1)=NURS1

 D ACTINAC

 S (NURSTUS)="A" D ACTINAC

 D ONLINE

 K NURS,DA,DIC,X,Y,NURSTUS,SSTAT,NURS1,NURSBAD,NURSEND,OUTSW,NURSWRD

 Q

ACTINAC D ACTWARD^NURSCPLU

 I $D(NURSWRD) D INIT214^NURSCPLU K NURSEND

 Q

MASMSG ;

 K NURMSG

 S NURMSG(1)=" "

 S NURMSG(2)="Before setting the Nursing software back on-line, I need"

 S NURMSG(3)="to update the NURS Patient file (#214) with any MAS patient"

 S NURMSG(4)="movements that took place while this software was installed."

 S NURMSG(5)="At the programmers prompt please do the following:"

 S NURMSG(6)=""

 S NURMSG(7)=" D MAS^NURXPST"

 S NURMSG(8)=" "

 D BMES^XPDUTL(.NURMSG)

 K NURMSG

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---NURXPST   1504     printed  Apr 09, 2024@21:22:31                                                                                                                                                                                                     Page 2

NURXPST   ;HIRMFO/FT-Nursing Service v4.0 Post-Initialization Routine ;1/21/97  14:27

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

 +2       ;

 +3       ; This routine contains the post-initialization code for Nursing

 +4       ; Service package v4.0.

 +5       ;

 +6        DO MAILGRP

           DO POST1^NURSFILE

           DO MASMSG

 +7        QUIT 

MAILGRP   ; Remind IRM to check for members in NURS-ADP mail group

 +1        DO BMES^XPDUTL("Reminder: Make certain the NURS-ADP mail group has at least one member.")

 +2        QUIT 

ONLINE    ; Set Nursing software switch back to On-Line

 +1        SET $PIECE(^DIC(213.9,1,"OFF"),U,1)=0

 +2        DO BMES^XPDUTL("Setting Nursing software switch back to ON-LINE")

 +3        QUIT 

MAS       ; post-init ward deactivation/activation to update mas movements

 +1        SET (NURSTUS)="I"

           SET (NURSBAD,NURSEND,OUTSW)=0

           DO DATACK^NURSCPLU

           if 'NURSDATA

               DO FIRSTIME^NURSCPLU

           IF NURSEND

               KILL NURSEND

               DO ONLINE

               QUIT 

 +2        FOR NURS1=0:0

               SET NURS1=$ORDER(^NURSF(211.4,"D","A",NURS1))

               if NURS1'>0

                   QUIT 

               SET NURSWRD(NURS1)=NURS1

 +3        DO ACTINAC

 +4        SET (NURSTUS)="A"

           DO ACTINAC

 +5        DO ONLINE

 +6        KILL NURS,DA,DIC,X,Y,NURSTUS,SSTAT,NURS1,NURSBAD,NURSEND,OUTSW,NURSWRD

 +7        QUIT 

ACTINAC    DO ACTWARD^NURSCPLU

 +1        IF $DATA(NURSWRD)

               DO INIT214^NURSCPLU

               KILL NURSEND

 +2        QUIT 

MASMSG    ;

 +1        KILL NURMSG

 +2        SET NURMSG(1)=" "

 +3        SET NURMSG(2)="Before setting the Nursing software back on-line, I need"

 +4        SET NURMSG(3)="to update the NURS Patient file (#214) with any MAS patient"

 +5        SET NURMSG(4)="movements that took place while this software was installed."

 +6        SET NURMSG(5)="At the programmers prompt please do the following:"

 +7        SET NURMSG(6)=""

 +8        SET NURMSG(7)=" D MAS^NURXPST"

 +9        SET NURMSG(8)=" "

 +10       DO BMES^XPDUTL(.NURMSG)

 +11       KILL NURMSG

 +12       QUIT