BWPOST ;IHS/ANMC/MWR - POST-INIT ROUTINE [ 07/30/2002 3:29 PM ];11-Feb-2003 12:43;PLS
;;2.0;WOMEN'S HEALTH;**8**;MAY 16, 1996
;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
;; POSTINIT ROUTINE TO EDIT SITE PARAMETERS, DELETE JUNK DATA,
;; RESET ACC# COUNTERS, DISPLAY INFO REGARDING MENUS AND KEYS.
;
;
ENV ;EP;
; The following line prevents the "Disable Options..." and "Move
; Routines..." questions from being asked during the install.
S XPDENV=1,(XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
Q
D SETVARS^BWUTL5 S IOP=$I D ^%ZIS
S Y=$P($P($T(BWPOST+1),";;",2),";")
S BWPTITL="v"_Y_" POST-INIT PROGRAM"
D PROGRAM
D EXIT
Q
;
;
PROGRAM ;EP
;---> UPDATE TABLES.
;D ^BWUPDATE
;
;---> RECOMMEND PRINTSCREEN.
D TITLE^BWUTL5(BWPTITL)
D TEXT1,DIRZ^BWUTL3
Q:BWPOP
;
;---> INTRODUCTION.
D TITLE^BWUTL5(BWPTITL)
D TEXT11,DIRZ^BWUTL3
Q:BWPOP
;
;---> EDIT SITE PARAMETERS.
;D TITLE^BWUTL5(BWPTITL) D
;.I DUZ(0)'["@"&(DUZ(0)'["W") D TEXT21 Q
;.D TEXT2,DIRZ^BWUTL3 Q:BWPOP D EDIT^BWSITE
;D DIRZ^BWUTL3
;Q:BWPOP
;
;---> PLACEMENT OF OPTIONS.
D TITLE^BWUTL5(BWPTITL)
D TEXT3^BWPOST1,DIRZ^BWUTL3
Q:BWPOP
D TITLE^BWUTL5(BWPTITL)
D TEXT31^BWPOST1,DIRZ^BWUTL3
Q:BWPOP
;
;---> SECURITY KEYS.
D TITLE^BWUTL5(BWPTITL)
D TEXT4^BWPOST1,DIRZ^BWUTL3
Q:BWPOP
D TITLE^BWUTL5(BWPTITL)
D TEXT41^BWPOST1,DIRZ^BWUTL3
Q:BWPOP
;
;---> RECOMMEND USE OF C-VT100.
D TITLE^BWUTL5(BWPTITL)
D TEXT5^BWPOST1,DIRZ^BWUTL3
Q:BWPOP
D TITLE^BWUTL5(BWPTITL)
D TEXT51^BWPOST1,DIRZ^BWUTL3
Q:BWPOP
;
;---> ADVISE REMOVAL OF OLD PAP TRACKING OPTIONS.
D TITLE^BWUTL5(BWPTITL)
D TEXT6^BWPOST1,DIRZ^BWUTL3
Q:BWPOP
;
;---> CONVERSION.
D TITLE^BWUTL5(BWPTITL)
D TEXT7,DIRZ^BWUTL3
Q:BWPOP
;
;---> SITE PARAMETERS.
D TITLE^BWUTL5(BWPTITL)
D TEXT8^BWPOST1,DIRZ^BWUTL3
Q:BWPOP
;
;---> CONCLUSION.
D TITLE^BWUTL5(BWPTITL)
D TEXT9^BWPOST1,DIRZ^BWUTL3
Q
;
EXIT ;EP
D KILLALL^BWUTL8
Q
;
TEXT1 ;EP
;;This is the Women's Health Post-Initialization Program.
;;
;;It may be helpful to capture or printscreen the postinit screens
;;that follow for later reference in setting up menus and users,
;;assigning keys, etc.
;;
;;You may exit this Post-Initialization program now by entering
;;a "^" at the prompt. This Post-Initialization program can be
;;restarted at any time from programmer mode by entering "D ^BWPOST".
;;
S BWTAB=5,BWLINL="TEXT1" D PRINTX
Q
;
TEXT11 ;EP
;;Welcome to the Women's Health Post-Initialization Program.
;;
;;In the screens that follow, information regarding setup of the
;;software will be presented.
;;
;;You may exit this Post-Initialization program at any point by
;;entering a "^" at the prompt. This Post-Initialization program
;;can be restarted at any time from programmer mode by entering
;;"D ^BWPOST".
;;
;
S BWTAB=5,BWLINL="TEXT11" D PRINTX
Q
;
TEXT2 ;EP
;;Next you will be given the opportunity to edit the Women's Health
;;site parameters. At the "Select SITE/FACILITY: " prompt, enter
;;the name of site where this program is to be run. You will then
;;be presented with the EDIT SITE PARAMETERS screen. These parameters
;;may be changed at any time later through the File Maintenance menu,
;;under the Manager's Functions menu.
;;
S BWTAB=5,BWLINL="TEXT2" D PRINTX
Q
;
TEXT21 ;EP
;;Because your current DUZ(0) does not contain either an "@" or a "W",
;;the Edit Site Parameters Screen will not be displayed. Editing the
;;site parameters is not a crucial step at this point. Site parameters
;;may be edited at any time from the File Maintenance menu of the
;;Manager's Functions menu of the package.
;;
;;Alternatively, you could quit the postinit program now with an "^",
;;set your DUZ(0)="@" or "W", and restart the program by entering
;;D ^BWPOST.
;;
S BWTAB=5,BWLINL="TEXT21" D PRINTX
Q
;
;
TEXT7 ;EP
;;IMPORTING DATA FROM THE OLD PAP TRACKING PROGRAM:
;;-------------------------------------------------
;;
;;If data from the old RPMS PAP Tracking package is to be copied
;;into the new Women's Health database, this can be accomplished
;;by running the routine BWOLD (at the programmer prompt enter
;;D ^BWOLD). WARNING: THIS ROUTINE SHOULD ONLY BE RUN ONCE.
;;This routine only copies data from the old database into the
;;new one. The old data is left unchanged in the global ^AMCH(86.
;;The conversion can be done at a later time, however,
;;care should be taken not to enter PAPs or colposcopies into the
;;new Women's Health database that have already been entered in
;;the old PAP Tracking package.
;;
S BWTAB=5,BWLINL="TEXT7" D PRINTX
Q
;
;
PRINTX ;EP
N I,T,X S T="" F I=1:1:BWTAB S T=T_" "
F I=1:1 S X=$T(@BWLINL+I) Q:X'[";;" W !,T,$P(X,";;",2)
Q
BWPOST ;IHS/ANMC/MWR - POST-INIT ROUTINE [ 07/30/2002 3:29 PM ];11-Feb-2003 12:43;PLS
+1 ;;2.0;WOMEN'S HEALTH;**8**;MAY 16, 1996
+2 ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
+3 ;; POSTINIT ROUTINE TO EDIT SITE PARAMETERS, DELETE JUNK DATA,
+4 ;; RESET ACC# COUNTERS, DISPLAY INFO REGARDING MENUS AND KEYS.
+5 ;
+6 ;
ENV ;EP;
+1 ; The following line prevents the "Disable Options..." and "Move
+2 ; Routines..." questions from being asked during the install.
+3 SET XPDENV=1
SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
+4 QUIT
+5 DO SETVARS^BWUTL5
SET IOP=$IO
DO ^%ZIS
+6 SET Y=$PIECE($PIECE($TEXT(BWPOST+1),";;",2),";")
+7 SET BWPTITL="v"_Y_" POST-INIT PROGRAM"
+8 DO PROGRAM
+9 DO EXIT
+10 QUIT
+11 ;
+12 ;
PROGRAM ;EP
+1 ;---> UPDATE TABLES.
+2 ;D ^BWUPDATE
+3 ;
+4 ;---> RECOMMEND PRINTSCREEN.
+5 DO TITLE^BWUTL5(BWPTITL)
+6 DO TEXT1
DO DIRZ^BWUTL3
+7 IF BWPOP
QUIT
+8 ;
+9 ;---> INTRODUCTION.
+10 DO TITLE^BWUTL5(BWPTITL)
+11 DO TEXT11
DO DIRZ^BWUTL3
+12 IF BWPOP
QUIT
+13 ;
+14 ;---> EDIT SITE PARAMETERS.
+15 ;D TITLE^BWUTL5(BWPTITL) D
+16 ;.I DUZ(0)'["@"&(DUZ(0)'["W") D TEXT21 Q
+17 ;.D TEXT2,DIRZ^BWUTL3 Q:BWPOP D EDIT^BWSITE
+18 ;D DIRZ^BWUTL3
+19 ;Q:BWPOP
+20 ;
+21 ;---> PLACEMENT OF OPTIONS.
+22 DO TITLE^BWUTL5(BWPTITL)
+23 DO TEXT3^BWPOST1
DO DIRZ^BWUTL3
+24 IF BWPOP
QUIT
+25 DO TITLE^BWUTL5(BWPTITL)
+26 DO TEXT31^BWPOST1
DO DIRZ^BWUTL3
+27 IF BWPOP
QUIT
+28 ;
+29 ;---> SECURITY KEYS.
+30 DO TITLE^BWUTL5(BWPTITL)
+31 DO TEXT4^BWPOST1
DO DIRZ^BWUTL3
+32 IF BWPOP
QUIT
+33 DO TITLE^BWUTL5(BWPTITL)
+34 DO TEXT41^BWPOST1
DO DIRZ^BWUTL3
+35 IF BWPOP
QUIT
+36 ;
+37 ;---> RECOMMEND USE OF C-VT100.
+38 DO TITLE^BWUTL5(BWPTITL)
+39 DO TEXT5^BWPOST1
DO DIRZ^BWUTL3
+40 IF BWPOP
QUIT
+41 DO TITLE^BWUTL5(BWPTITL)
+42 DO TEXT51^BWPOST1
DO DIRZ^BWUTL3
+43 IF BWPOP
QUIT
+44 ;
+45 ;---> ADVISE REMOVAL OF OLD PAP TRACKING OPTIONS.
+46 DO TITLE^BWUTL5(BWPTITL)
+47 DO TEXT6^BWPOST1
DO DIRZ^BWUTL3
+48 IF BWPOP
QUIT
+49 ;
+50 ;---> CONVERSION.
+51 DO TITLE^BWUTL5(BWPTITL)
+52 DO TEXT7
DO DIRZ^BWUTL3
+53 IF BWPOP
QUIT
+54 ;
+55 ;---> SITE PARAMETERS.
+56 DO TITLE^BWUTL5(BWPTITL)
+57 DO TEXT8^BWPOST1
DO DIRZ^BWUTL3
+58 IF BWPOP
QUIT
+59 ;
+60 ;---> CONCLUSION.
+61 DO TITLE^BWUTL5(BWPTITL)
+62 DO TEXT9^BWPOST1
DO DIRZ^BWUTL3
+63 QUIT
+64 ;
EXIT ;EP
+1 DO KILLALL^BWUTL8
+2 QUIT
+3 ;
TEXT1 ;EP
+1 ;;This is the Women's Health Post-Initialization Program.
+2 ;;
+3 ;;It may be helpful to capture or printscreen the postinit screens
+4 ;;that follow for later reference in setting up menus and users,
+5 ;;assigning keys, etc.
+6 ;;
+7 ;;You may exit this Post-Initialization program now by entering
+8 ;;a "^" at the prompt. This Post-Initialization program can be
+9 ;;restarted at any time from programmer mode by entering "D ^BWPOST".
+10 ;;
+11 SET BWTAB=5
SET BWLINL="TEXT1"
DO PRINTX
+12 QUIT
+13 ;
TEXT11 ;EP
+1 ;;Welcome to the Women's Health Post-Initialization Program.
+2 ;;
+3 ;;In the screens that follow, information regarding setup of the
+4 ;;software will be presented.
+5 ;;
+6 ;;You may exit this Post-Initialization program at any point by
+7 ;;entering a "^" at the prompt. This Post-Initialization program
+8 ;;can be restarted at any time from programmer mode by entering
+9 ;;"D ^BWPOST".
+10 ;;
+11 ;
+12 SET BWTAB=5
SET BWLINL="TEXT11"
DO PRINTX
+13 QUIT
+14 ;
TEXT2 ;EP
+1 ;;Next you will be given the opportunity to edit the Women's Health
+2 ;;site parameters. At the "Select SITE/FACILITY: " prompt, enter
+3 ;;the name of site where this program is to be run. You will then
+4 ;;be presented with the EDIT SITE PARAMETERS screen. These parameters
+5 ;;may be changed at any time later through the File Maintenance menu,
+6 ;;under the Manager's Functions menu.
+7 ;;
+8 SET BWTAB=5
SET BWLINL="TEXT2"
DO PRINTX
+9 QUIT
+10 ;
TEXT21 ;EP
+1 ;;Because your current DUZ(0) does not contain either an "@" or a "W",
+2 ;;the Edit Site Parameters Screen will not be displayed. Editing the
+3 ;;site parameters is not a crucial step at this point. Site parameters
+4 ;;may be edited at any time from the File Maintenance menu of the
+5 ;;Manager's Functions menu of the package.
+6 ;;
+7 ;;Alternatively, you could quit the postinit program now with an "^",
+8 ;;set your DUZ(0)="@" or "W", and restart the program by entering
+9 ;;D ^BWPOST.
+10 ;;
+11 SET BWTAB=5
SET BWLINL="TEXT21"
DO PRINTX
+12 QUIT
+13 ;
+14 ;
TEXT7 ;EP
+1 ;;IMPORTING DATA FROM THE OLD PAP TRACKING PROGRAM:
+2 ;;-------------------------------------------------
+3 ;;
+4 ;;If data from the old RPMS PAP Tracking package is to be copied
+5 ;;into the new Women's Health database, this can be accomplished
+6 ;;by running the routine BWOLD (at the programmer prompt enter
+7 ;;D ^BWOLD). WARNING: THIS ROUTINE SHOULD ONLY BE RUN ONCE.
+8 ;;This routine only copies data from the old database into the
+9 ;;new one. The old data is left unchanged in the global ^AMCH(86.
+10 ;;The conversion can be done at a later time, however,
+11 ;;care should be taken not to enter PAPs or colposcopies into the
+12 ;;new Women's Health database that have already been entered in
+13 ;;the old PAP Tracking package.
+14 ;;
+15 SET BWTAB=5
SET BWLINL="TEXT7"
DO PRINTX
+16 QUIT
+17 ;
+18 ;
PRINTX ;EP
+1 NEW I,T,X
SET T=""
FOR I=1:1:BWTAB
SET T=T_" "
+2 FOR I=1:1
SET X=$TEXT(@BWLINL+I)
IF X'[";;"
QUIT
WRITE !,T,$PIECE(X,";;",2)
+3 QUIT
