Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BWPOST

BWPOST.m

Go to the documentation of this file. 
  1. 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
  1.  ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
  1.  ;;  POSTINIT ROUTINE TO EDIT SITE PARAMETERS, DELETE JUNK DATA,
  1.  ;;  RESET ACC# COUNTERS, DISPLAY INFO REGARDING MENUS AND KEYS.
  1.  ;
  1.  ;
  1. ENV ;EP;
  1.  ; The following line prevents the "Disable Options..." and "Move
  1.  ; Routines..." questions from being asked during the install.
  1.  S XPDENV=1,(XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
  1.  Q
  1.  D SETVARS^BWUTL5 S IOP=$I D ^%ZIS
  1.  S Y=$P($P($T(BWPOST+1),";;",2),";")
  1.  S BWPTITL="v"_Y_" POST-INIT PROGRAM"
  1.  D PROGRAM
  1.  D EXIT
  1.  Q
  1.  ;
  1.  ;
  1. PROGRAM ;EP
  1.  ;---> UPDATE TABLES.
  1.  ;D ^BWUPDATE
  1.  ;
  1.  ;---> RECOMMEND PRINTSCREEN.
  1.  D TITLE^BWUTL5(BWPTITL)
  1.  D TEXT1,DIRZ^BWUTL3
  1.  Q:BWPOP
  1.  ;
  1.  ;---> INTRODUCTION.
  1.  D TITLE^BWUTL5(BWPTITL)
  1.  D TEXT11,DIRZ^BWUTL3
  1.  Q:BWPOP
  1.  ;
  1.  ;---> EDIT SITE PARAMETERS.
  1.  ;D TITLE^BWUTL5(BWPTITL) D
  1.  ;.I DUZ(0)'["@"&(DUZ(0)'["W") D TEXT21 Q
  1.  ;.D TEXT2,DIRZ^BWUTL3 Q:BWPOP  D EDIT^BWSITE
  1.  ;D DIRZ^BWUTL3
  1.  ;Q:BWPOP
  1.  ;
  1.  ;---> PLACEMENT OF OPTIONS.
  1.  D TITLE^BWUTL5(BWPTITL)
  1.  D TEXT3^BWPOST1,DIRZ^BWUTL3
  1.  Q:BWPOP
  1.  D TITLE^BWUTL5(BWPTITL)
  1.  D TEXT31^BWPOST1,DIRZ^BWUTL3
  1.  Q:BWPOP
  1.  ;
  1.  ;---> SECURITY KEYS.
  1.  D TITLE^BWUTL5(BWPTITL)
  1.  D TEXT4^BWPOST1,DIRZ^BWUTL3
  1.  Q:BWPOP
  1.  D TITLE^BWUTL5(BWPTITL)
  1.  D TEXT41^BWPOST1,DIRZ^BWUTL3
  1.  Q:BWPOP
  1.  ;
  1.  ;---> RECOMMEND USE OF C-VT100.
  1.  D TITLE^BWUTL5(BWPTITL)
  1.  D TEXT5^BWPOST1,DIRZ^BWUTL3
  1.  Q:BWPOP
  1.  D TITLE^BWUTL5(BWPTITL)
  1.  D TEXT51^BWPOST1,DIRZ^BWUTL3
  1.  Q:BWPOP
  1.  ;
  1.  ;---> ADVISE REMOVAL OF OLD PAP TRACKING OPTIONS.
  1.  D TITLE^BWUTL5(BWPTITL)
  1.  D TEXT6^BWPOST1,DIRZ^BWUTL3
  1.  Q:BWPOP
  1.  ;
  1.  ;---> CONVERSION.
  1.  D TITLE^BWUTL5(BWPTITL)
  1.  D TEXT7,DIRZ^BWUTL3
  1.  Q:BWPOP
  1.  ;
  1.  ;---> SITE PARAMETERS.
  1.  D TITLE^BWUTL5(BWPTITL)
  1.  D TEXT8^BWPOST1,DIRZ^BWUTL3
  1.  Q:BWPOP
  1.  ;
  1.  ;---> CONCLUSION.
  1.  D TITLE^BWUTL5(BWPTITL)
  1.  D TEXT9^BWPOST1,DIRZ^BWUTL3
  1.  Q
  1.  ;
  1. EXIT ;EP
  1.  D KILLALL^BWUTL8
  1.  Q
  1.  ;
  1. TEXT1 ;EP
  1.  ;;This is the Women's Health Post-Initialization Program.
  1.  ;;
  1.  ;;It may be helpful to capture or printscreen the postinit screens
  1.  ;;that follow for later reference in setting up menus and users,
  1.  ;;assigning keys, etc.
  1.  ;;
  1.  ;;You may exit this Post-Initialization program now by entering
  1.  ;;a "^" at the prompt.  This Post-Initialization program can be
  1.  ;;restarted at any time from programmer mode by entering "D ^BWPOST".
  1.  ;;
  1.  S BWTAB=5,BWLINL="TEXT1" D PRINTX
  1.  Q
  1.  ;
  1. TEXT11 ;EP
  1.  ;;Welcome to the Women's Health Post-Initialization Program.
  1.  ;;
  1.  ;;In the screens that follow, information regarding setup of the
  1.  ;;software will be presented.
  1.  ;;
  1.  ;;You may exit this Post-Initialization program at any point by
  1.  ;;entering a "^" at the prompt.  This Post-Initialization program
  1.  ;;can be restarted at any time from programmer mode by entering
  1.  ;;"D ^BWPOST".
  1.  ;;
  1.  ;
  1.  S BWTAB=5,BWLINL="TEXT11" D PRINTX
  1.  Q
  1.  ;
  1. TEXT2 ;EP
  1.  ;;Next you will be given the opportunity to edit the Women's Health
  1.  ;;site parameters.  At the "Select SITE/FACILITY: " prompt, enter
  1.  ;;the name of site where this program is to be run.  You will then
  1.  ;;be presented with the EDIT SITE PARAMETERS screen.  These parameters
  1.  ;;may be changed at any time later through the File Maintenance menu,
  1.  ;;under the Manager's Functions menu.
  1.  ;;
  1.  S BWTAB=5,BWLINL="TEXT2" D PRINTX
  1.  Q
  1.  ;
  1. TEXT21 ;EP
  1.  ;;Because your current DUZ(0) does not contain either an "@" or a "W",
  1.  ;;the Edit Site Parameters Screen will not be displayed.  Editing the
  1.  ;;site parameters is not a crucial step at this point.  Site parameters
  1.  ;;may be edited at any time from the File Maintenance menu of the
  1.  ;;Manager's Functions menu of the package.
  1.  ;;
  1.  ;;Alternatively, you could quit the postinit program now with an "^",
  1.  ;;set your DUZ(0)="@" or "W", and restart the program by entering
  1.  ;;D ^BWPOST.
  1.  ;;
  1.  S BWTAB=5,BWLINL="TEXT21" D PRINTX
  1.  Q
  1.  ;
  1.  ;
  1. TEXT7 ;EP
  1.  ;;IMPORTING DATA FROM THE OLD PAP TRACKING PROGRAM:
  1.  ;;-------------------------------------------------
  1.  ;;
  1.  ;;If data from the old RPMS PAP Tracking package is to be copied
  1.  ;;into the new Women's Health database, this can be accomplished
  1.  ;;by running the routine BWOLD (at the programmer prompt enter
  1.  ;;D ^BWOLD).  WARNING: THIS ROUTINE SHOULD ONLY BE RUN ONCE.
  1.  ;;This routine only copies data from the old database into the
  1.  ;;new one.  The old data is left unchanged in the global ^AMCH(86.
  1.  ;;The conversion can be done at a later time, however,
  1.  ;;care should be taken not to enter PAPs or colposcopies into the
  1.  ;;new Women's Health database that have already been entered in
  1.  ;;the old PAP Tracking package.
  1.  ;;
  1.  S BWTAB=5,BWLINL="TEXT7" D PRINTX
  1.  Q
  1.  ;
  1.  ;
  1. PRINTX ;EP
  1.  N I,T,X S T="" F I=1:1:BWTAB S T=T_" "
  1.  F I=1:1 S X=$T(@BWLINL+I) Q:X'[";;"  W !,T,$P(X,";;",2)
  1.  Q