Routine: ANSMENU

ANSMENU ;IHS/OIRM/DSD/CSC - CONTROL HEADINGS AND MENUS; [ 02/25/98  10:32 AM ]

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

 ;;ROUTINE TO CONTROL HEADINGS AND MENUS

TITLE ;EP;TO DISPLAY TITLE

 S IOP="HOME"

 D ^%ZIS,HOME,HEAD

EXIT K ANSX,ANSZ,ANSTRM

 I $D(ANSZ),ANSZ]"" W !!?80-$L(ANSZ)/2,ANSZ K ANSZ

HEAD ;EP;TO DISPLAY HEADER

 W @IOF

 U IO

HEAD1 F ANSJ=0:1:4 D H1

 D HDVS

 I DUZ S ANSX=$P(^VA(200,DUZ,0),U),ANSX=$P($P(ANSX,",",2)," ")_" "_$P(ANSX,","),ANSX="CURRENT USER: "_ANSX W !?80-$L(ANSX)\2,ANSX I $P(^(0),U,4)'["M"&($P(^(0),U,4)'["@") D

 .W !!

 .F ANSX=1:1:7 W *7,"WARNING",?$X+5

 .W !!,"You do NOT have the correct FILE MANAGER ACCESS CODE to use the Patient Acuity",!,"System.  Please contact your computer Site Manager immediately."

 .D PAUSE^ANSDIC

 D:ANSON=""!(ANSOF="") RV

H1 S ANSX=$T(TEXT+ANSJ),ANSX=$P(ANSX,";;",2)

 W !?80-$L(ANSX)\2,ANSX

HDVS I $D(DUZ(2))#2,DUZ(2) S:$D(^DIC(4,DUZ(2),0)) ANSX=$P(^(0),U)

 I $D(^DIC(9.4,"C","ANS")) S ANSZ=$O(^DIC(9.4,"C","ANS",0)),ANSZ=$P(^DIC(9.4,ANSZ,"VERSION"),U),ANSZ="VERSION "_ANSZ

 I $E(IOST,1,2)="C-" W:$G(ANSZ)]"" !?80-$L(ANSZ)\2,ANSZ

 W:$G(ANSX)]"" !?80-$L(ANSX)\2,ANSX

MM ;EP

 S ANSZ="MAIN MENU"

 G TITLE

AR ;EP

 S ANSZ="NURSIN ACUITY REPORTS"

 G TITLE

SU ;EP

 S ANSZ="SYSTEM UTILITIES"

 G TITLE

HOME ;EP;TO SET TERMINAL CONTROL VARIABLES

 S ANSTRM=^%ZIS(2,IOST(0),5),ANSON=$P(ANSTRM,U,4),ANSOF=$P(ANSTRM,U,5)

 D:ANSON=""!(ANSOF="") RV

CLEAN ;EP;TO KILL SELECTD VARIABLES

 K ANSON,ANSOF,ANSZ,ANSZ,ANSTRM,ANSPPO,ANSPTX,ANSREV,ANSRR,ANSSOF,ANSTRN,ANSBOX

RV ;WARNING MESSAGE WHEN REVERSE VIDEO NOT DEFINED

 W @IOF,!?10,"WARNING     WARNING     WARNING     WARNING     WARNING"

 W !!,*7,*7,"Your DEVICE and/or TERMINAL TYPE are not properly defined.",!,"The REVERSE VIDEO ON and/or REVERSE VIDEO OFF are not properly defined."

 W !,"This is the responsibility of your computer site manager."

 W !!,"Please contact this individual for assistance.  Let them know that you",!,"are logged in on device NO.: ",$I

 D P1^ANSDIC

TEXT ;;WARNING: RESTRICTED PATIENT DATA, UNAUTHORIZED

 ;;ENTRY INTO THIS SYSTEM OR USE OF THIS DATA IS A FEDERAL CRIME

 ;;****************************************************

 ;;**    NURSING PATIENT ACUITY ASSESSMENT SYSTEM    **

 ;;****************************************************

ANSMENU   ;IHS/OIRM/DSD/CSC - CONTROL HEADINGS AND MENUS; [ 02/25/98  10:32 AM ]

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

 +2       ;;ROUTINE TO CONTROL HEADINGS AND MENUS

TITLE     ;EP;TO DISPLAY TITLE

 +1        SET IOP="HOME"

 +2        DO ^%ZIS

           DO HOME

           DO HEAD

EXIT       KILL ANSX,ANSZ,ANSTRM

 +1        IF $DATA(ANSZ)

               IF ANSZ]""

                   WRITE !!?80-$LENGTH(ANSZ)/2,ANSZ

                   KILL ANSZ

 +2        QUIT

HEAD      ;EP;TO DISPLAY HEADER

 +1        WRITE @IOF

 +2        USE IO

HEAD1      FOR ANSJ=0:1:4

               DO H1

 +1        DO HDVS

 +2        IF DUZ

               SET ANSX=$PIECE(^VA(200,DUZ,0),U)

               SET ANSX=$PIECE($PIECE(ANSX,",",2)," ")_" "_$PIECE(ANSX,",")

               SET ANSX="CURRENT USER: "_ANSX

               WRITE !?80-$LENGTH(ANSX)\2,ANSX

               IF $PIECE(^(0),U,4)'["M"&($PIECE(^(0),U,4)'["@")

                   Begin DoDot:1

 +3                    WRITE !!

 +4                    FOR ANSX=1:1:7

                           WRITE *7,"WARNING",?$X+5

 +5                    WRITE !!,"You do NOT have the correct FILE MANAGER ACCESS CODE to use the Patient Acuity",!,"System.  Please contact your computer Site Manager immediately."

 +6                    DO PAUSE^ANSDIC

                   End DoDot:1

 +7        IF ANSON=""!(ANSOF="")

               DO RV

 +8        QUIT

H1         SET ANSX=$TEXT(TEXT+ANSJ)

           SET ANSX=$PIECE(ANSX,";;",2)

 +1        WRITE !?80-$LENGTH(ANSX)\2,ANSX

 +2        QUIT

HDVS       IF $DATA(DUZ(2))#2

               IF DUZ(2)

                   IF $DATA(^DIC(4,DUZ(2),0))

                       SET ANSX=$PIECE(^(0),U)

 +1        IF $DATA(^DIC(9.4,"C","ANS"))

               SET ANSZ=$ORDER(^DIC(9.4,"C","ANS",0))

               SET ANSZ=$PIECE(^DIC(9.4,ANSZ,"VERSION"),U)

               SET ANSZ="VERSION "_ANSZ

 +2        IF $EXTRACT(IOST,1,2)="C-"

               IF $GET(ANSZ)]""

                   WRITE !?80-$LENGTH(ANSZ)\2,ANSZ

 +3        IF $GET(ANSX)]""

               WRITE !?80-$LENGTH(ANSX)\2,ANSX

 +4        QUIT

MM        ;EP

 +1        SET ANSZ="MAIN MENU"

 +2        GOTO TITLE

AR        ;EP

 +1        SET ANSZ="NURSIN ACUITY REPORTS"

 +2        GOTO TITLE

SU        ;EP

 +1        SET ANSZ="SYSTEM UTILITIES"

 +2        GOTO TITLE

HOME      ;EP;TO SET TERMINAL CONTROL VARIABLES

 +1        SET ANSTRM=^%ZIS(2,IOST(0),5)

           SET ANSON=$PIECE(ANSTRM,U,4)

           SET ANSOF=$PIECE(ANSTRM,U,5)

 +2        IF ANSON=""!(ANSOF="")

               DO RV

 +3        QUIT

CLEAN     ;EP;TO KILL SELECTD VARIABLES

 +1        KILL ANSON,ANSOF,ANSZ,ANSZ,ANSTRM,ANSPPO,ANSPTX,ANSREV,ANSRR,ANSSOF,ANSTRN,ANSBOX

 +2        QUIT

RV        ;WARNING MESSAGE WHEN REVERSE VIDEO NOT DEFINED

 +1        WRITE @IOF,!?10,"WARNING     WARNING     WARNING     WARNING     WARNING"

 +2        WRITE !!,*7,*7,"Your DEVICE and/or TERMINAL TYPE are not properly defined.",!,"The REVERSE VIDEO ON and/or REVERSE VIDEO OFF are not properly defined."

 +3        WRITE !,"This is the responsibility of your computer site manager."

 +4        WRITE !!,"Please contact this individual for assistance.  Let them know that you",!,"are logged in on device NO.: ",$IO

 +5        DO P1^ANSDIC

 +6        QUIT

TEXT      ;;WARNING: RESTRICTED PATIENT DATA, UNAUTHORIZED

 +1       ;;ENTRY INTO THIS SYSTEM OR USE OF THIS DATA IS A FEDERAL CRIME

 +2       ;;****************************************************

 +3       ;;**    NURSING PATIENT ACUITY ASSESSMENT SYSTEM    **

 +4       ;;****************************************************

ANSMENU.m