ANSU.m

ANSU ;IHS/OIRM/DSD/CSC - NURSE STAFFING UTILITY; [ 02/25/98  10:32 AM ]

 ;;3.0;NURSING PATIENT ACUITY;;APR 01, 1996

 ;;UTILITY

EN S IOP="HOME"

 D ^%ZIS

 K IOP

 S X=$S($D(^%ZIS(2,IOST(0),5)):^(5),1:X),ANSRVON=$P(X,U,4),ANSRVOF=$P(X,U,5),ANSHOME=IOF,ANSLINE=$P(X,U,6),ANSPAGE=$P(X,U,7),ANSSPAC="*32",ANSPLUS="*43"

 S X=0

 X ^%ZOSF("RM")

 K ANSPAR

 I $D(^ANSD(51,1,0)) S ANSPAR=^(0),ANSSITE=$P(ANSPAR,U)

 I '$D(DT) S %DT="",X="T" D ^%DT S DT=Y

 I '$D(ANSPAR) D WARN

 Q

WARN ;EP;WARN USER IF SITE PARAMETERS NOT SET

 W @IOF

 W *7,!!!,"WARNING, The Nursing Site Parameters",!,?13,"Nursing Unit Data and",!,?13,"Non-Direct Care Types have not been set!!",!!,"They must be set before you proceed by......."

 W !!,?5,"1.  Selecting  Option 'SS', System Setup Utilities, from the",!,?30,"MAIN MENU"

 W !!,?5,"2.  Completing the following options in the order listed:"

 W !!?10,"a.  Option 'NU', Nursing Unit Data and",!,?10,"b.  Option 'SP', Nursing Site Parameters",!,?10,"c.  Option 'CT', Non-Direct Care Types"

 W !!,?5,"3.  Entering requested data"

 W !,?9,"(Consult your user's manual for further instructions.)"

 D PAUSE^ANSDIC

 Q

ANSU      ;IHS/OIRM/DSD/CSC - NURSE STAFFING UTILITY; [ 02/25/98  10:32 AM ]

 +1       ;;3.0;NURSING PATIENT ACUITY;;APR 01, 1996

 +2       ;;UTILITY

EN         SET IOP="HOME"

 +1        DO ^%ZIS

 +2        KILL IOP

 +3        SET X=$SELECT($DATA(^%ZIS(2,IOST(0),5)):^(5),1:X)

           SET ANSRVON=$PIECE(X,U,4)

           SET ANSRVOF=$PIECE(X,U,5)

           SET ANSHOME=IOF

           SET ANSLINE=$PIECE(X,U,6)

           SET ANSPAGE=$PIECE(X,U,7)

           SET ANSSPAC="*32"

           SET ANSPLUS="*43"

 +4        SET X=0

 +5        XECUTE ^%ZOSF("RM")

 +6        KILL ANSPAR

 +7        IF $DATA(^ANSD(51,1,0))

               SET ANSPAR=^(0)

               SET ANSSITE=$PIECE(ANSPAR,U)

 +8        IF '$DATA(DT)

               SET %DT=""

               SET X="T"

               DO ^%DT

               SET DT=Y

 +9        IF '$DATA(ANSPAR)

               DO WARN

 +10       QUIT 

WARN      ;EP;WARN USER IF SITE PARAMETERS NOT SET

 +1        WRITE @IOF

 +2        WRITE *7,!!!,"WARNING, The Nursing Site Parameters",!,?13,"Nursing Unit Data and",!,?13,"Non-Direct Care Types have not been set!!",!!,"They must be set before you proceed by......."

 +3        WRITE !!,?5,"1.  Selecting  Option 'SS', System Setup Utilities, from the",!,?30,"MAIN MENU"

 +4        WRITE !!,?5,"2.  Completing the following options in the order listed:"

 +5        WRITE !!?10,"a.  Option 'NU', Nursing Unit Data and",!,?10,"b.  Option 'SP', Nursing Site Parameters",!,?10,"c.  Option 'CT', Non-Direct Care Types"

 +6        WRITE !!,?5,"3.  Entering requested data"

 +7        WRITE !,?9,"(Consult your user's manual for further instructions.)"

 +8        DO PAUSE^ANSDIC

 +9        QUIT