| 1 | NURXPST ;HIRMFO/FT-Nursing Service v4.0 Post-Initialization Routine ;1/21/97 14:27
|
|---|
| 2 | ;;4.0;NURSING SERVICE;;Apr 25, 1997
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine contains the post-initialization code for Nursing
|
|---|
| 5 | ; Service package v4.0.
|
|---|
| 6 | ;
|
|---|
| 7 | D MAILGRP,POST1^NURSFILE,MASMSG
|
|---|
| 8 | Q
|
|---|
| 9 | MAILGRP ; Remind IRM to check for members in NURS-ADP mail group
|
|---|
| 10 | D BMES^XPDUTL("Reminder: Make certain the NURS-ADP mail group has at least one member.")
|
|---|
| 11 | Q
|
|---|
| 12 | ONLINE ; Set Nursing software switch back to On-Line
|
|---|
| 13 | S $P(^DIC(213.9,1,"OFF"),U,1)=0
|
|---|
| 14 | D BMES^XPDUTL("Setting Nursing software switch back to ON-LINE")
|
|---|
| 15 | Q
|
|---|
| 16 | MAS ; post-init ward deactivation/activation to update mas movements
|
|---|
| 17 | S (NURSTUS)="I",(NURSBAD,NURSEND,OUTSW)=0 D DATACK^NURSCPLU D:'NURSDATA FIRSTIME^NURSCPLU I NURSEND K NURSEND D ONLINE Q
|
|---|
| 18 | F NURS1=0:0 S NURS1=$O(^NURSF(211.4,"D","A",NURS1)) Q:NURS1'>0 S NURSWRD(NURS1)=NURS1
|
|---|
| 19 | D ACTINAC
|
|---|
| 20 | S (NURSTUS)="A" D ACTINAC
|
|---|
| 21 | D ONLINE
|
|---|
| 22 | K NURS,DA,DIC,X,Y,NURSTUS,SSTAT,NURS1,NURSBAD,NURSEND,OUTSW,NURSWRD
|
|---|
| 23 | Q
|
|---|
| 24 | ACTINAC D ACTWARD^NURSCPLU
|
|---|
| 25 | I $D(NURSWRD) D INIT214^NURSCPLU K NURSEND
|
|---|
| 26 | Q
|
|---|
| 27 | MASMSG ;
|
|---|
| 28 | K NURMSG
|
|---|
| 29 | S NURMSG(1)=" "
|
|---|
| 30 | S NURMSG(2)="Before setting the Nursing software back on-line, I need"
|
|---|
| 31 | S NURMSG(3)="to update the NURS Patient file (#214) with any MAS patient"
|
|---|
| 32 | S NURMSG(4)="movements that took place while this software was installed."
|
|---|
| 33 | S NURMSG(5)="At the programmers prompt please do the following:"
|
|---|
| 34 | S NURMSG(6)=""
|
|---|
| 35 | S NURMSG(7)=" D MAS^NURXPST"
|
|---|
| 36 | S NURMSG(8)=" "
|
|---|
| 37 | D BMES^XPDUTL(.NURMSG)
|
|---|
| 38 | K NURMSG
|
|---|
| 39 | Q
|
|---|
