- 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
- Q
- 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
- Q
- H1 S ANSX=$T(TEXT+ANSJ),ANSX=$P(ANSX,";;",2)
- W !?80-$L(ANSX)\2,ANSX
- Q
- 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
- Q
- 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
- Q
- CLEAN ;EP;TO KILL SELECTD VARIABLES
- K ANSON,ANSOF,ANSZ,ANSZ,ANSTRM,ANSPPO,ANSPTX,ANSREV,ANSRR,ANSSOF,ANSTRN,ANSBOX
- Q
- 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
- Q
- 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 ;;****************************************************
