BWPOST1 ;IHS/ANMC/MWR - POST-INIT ROUTINE ;11-Feb-2003 12:44;PLS
;;2.0;WOMEN'S HEALTH;**8**;MAY 16, 1996
;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
;; POSTINIT SUBROUTINE: DISPLAYS TEXT.
;
;
TEXT3 ;EP
;;OPTIONS:
;;--------
;;
;;The main menu option for the Women's Health package is BWMENU.
;;At most sites this would be placed on AKMOCORE along with other
;;RPMS packages. For the sake of consistency from site to site,
;;it is recommended that the synonym "WH" (Women's Health) be
;;given to the main menu option BWMENU, however, this is not a
;;requirement. BWMENU allows access to every other option within
;;the package. (Keys: BWZMENU and BWZ MANAGER, see below.)
;;
;;The option BW MENU-LAB DATA ENTRY is a submenu that may be assigned
;;to Lab personnel for the limited purpose of accessioning PAP Smears
;;(and other procedures). This option may be attached to any other
;;Kernel menu and need not be accessed via the main menu, BWMENU.
;;(Key: BWZ LAB PCD EDIT, see below.)
;;
S BWTAB=5,BWLINL="TEXT3" D PRINTX
Q
;
TEXT31 ;EP
;;OPTIONS (continued):
;;--------------------
;;
;;The option BW PATIENT PROFILE USER is an option for providers and
;;other users outside of the Women's Health program to display or print
;;the "Patient Profile" of a patient in the Women's Health database.
;;This option may be attached to any other Kernel menu and need not
;;be accessed via the main menu, BWMENU. This option does not come
;;with a key, nor do users need any particular Fileman Access Code
;;in order to use it.
;;
;;NOTE: Be sure to select the option BW PATIENT PROFILE USER -- the
;;"USER" is important, as this option does not permit users to edit
;;the data. Do NOT use the option BW PATIENT PROFILE for this purpose.
;;
S BWTAB=5,BWLINL="TEXT31" D PRINTX
Q
;
TEXT4 ;EP
;;SECURITY:
;;---------
;;
;;All users given the BWMENU (or the BW MENU-LAB DATA ENTRY) options
;;should be given File Manager Access Codes of "MW".
;;
;;The security key BWZMENU allows users to access the main menu of
;;the RPMS Women's Health package, BWMENU. All users who are to use
;;the software for data entry, patient management, reports, etc.
;;should be given this key.
;;
;;The security key BWZ MANAGER allows managers to access the "Manager's
;;Functions" menu (BW MENU-MANAGER'S FUNCTIONS), which is a submenu of
;;the main menu (BWMENU). The Manager's Functions menu provides access
;;to many sensitive functions and should only be given to the manager
;;of the program.
;;
S BWTAB=5,BWLINL="TEXT4" D PRINTX
Q
;
TEXT41 ;EP
;;SECURITY (continued):
;;---------------------
;;
;;The security key BWZ LAB PCD EDIT is for sites where the Lab
;;personnel (presumably not the same department as a Women's Health
;;Program) are accessioning PAP Smears and other procedures for the
;;Women's Health Program. The Lab staff would receive the limited
;;submenu, BW-MENU LAB DATA ENTRY (described above under OPTIONS).
;;
;;On the LAB DATA ENTRY menu there is a special option that allows one
;;to go back and edit the RESULT of a procedure. In general, this
;;option should only be used to enter a result of "ERROR/DISREGARD",
;;in order to cancel out procedures entered in error by lab staff.
;;Access to this option by the Lab Manager should be negotiated with
;;the Women's Health program people. The key BWZ LAB PCD EDIT gives
;;the Lab Manager access to that option under the LAB DATA ENTRY menu.
;;
S BWTAB=5,BWLINL="TEXT41" D PRINTX
Q
;
;
TEXT5 ;EP
;;DEVICES:
;;--------
;;
;;This package makes extensive use of the VA Screen Manager,
;;which requires that several of the cursor and screen handling
;;fields of the Terminal Type file be present for any Device
;;accessing the package. It is recommended that any Device
;;accessing this package be given a Terminal Type ("Subtype")
;;of "C-VT100", since the standard VA Kernel distribution comes
;;with all of the necessary codes pre-loaded. A user whose Terminal
;;Type does not contain a complete set of screen handling codes will
;;receive a message that Screenman cannot "load the form."
;;
;;Other Terminal Types may also be chosen, however, the screen
;;handling codes for Cursor movements, "PF keys", "Erase Entire
;;Page", etc., may need to be entered manually if they are not
;;already present for the selected Terminal Type.
;;
S BWTAB=5,BWLINL="TEXT5" D PRINTX
Q
;
TEXT51 ;EP
;;DEVICES (continued):
;;--------------------
;;
;;If for some reason it is not practical to define Devices
;;accessing the package with a Subtype of C-VT100, users of the
;;package may be given a "DEFAULT TERMINAL TYPE FOR LM" in the
;;NEW PERSON File #200 of C-VT100. (They will then be given a
;;Terminal Type of C-VT100 regardless of which DEVICE they sign
;;on through.) It may also be necessary to set the field "ASK
;;DEVICE TYPE AT SIGN-ON" (again in file #200) equal to "ASK" in
;;order to get a user's Terminal Type to change to the C-VT100.
;;
;;Initial difficulties with the screen handling codes for ScreenMan
;;are not specific to Women's Health; however, if problems with the
;;setup cannot be resolved, please contact Area support staff.
;;
S BWTAB=5,BWLINL="TEXT51" D PRINTX
Q
;
TEXT6 ;EP
;;OLD PAP TRACKING OPTIONS:
;;-------------------------
;;
;;In order to avoid confusion, it is advisable to remove any of
;;the old PAP Tracking Program options from the Kernel menus.
;;These old options appear as "AMCP/C/PAP..." and might be found
;;under the AMCHMENU and/or AMCHMAIN options. Removal of the
;;AMCP/C/PAP options is NOT necessary in order to run the new
;;RPMS Women's Health software, it is only recommended.
;;
S BWTAB=5,BWLINL="TEXT6" D PRINTX
Q
;
TEXT8 ;EP
;;SITE PARAMETERS:
;;----------------
;;
;;As part of the installation of this new version of Women's Health,
;;the site parameters must be reviewed. In particular, be sure to
;;look at page 2 and answer the "CDC Export:" and "Import Mammograms"
;;questions, and at pages 3-5 relating to Procedure Types.
;;
;;The Site Parameter screen may be accessed from the programmer prompt
;;by entering "D ^BWSITE" (no quotes). It may also be accessed from
;;within the Women's Health menus by selecting Manager's Functions
;;from the Main Menu, then File Maintenance from the Manager's
;;Functions, and finally Edit Site Parameters from the File Maintenance
;;menu.
;;
S BWTAB=5,BWLINL="TEXT8" D PRINTX
Q
;
TEXT9 ;EP
;; * This concludes the Post-Initialization program. *
;;
;;
S BWTAB=5,BWLINL="TEXT9" 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
BWPOST1 ;IHS/ANMC/MWR - POST-INIT ROUTINE ;11-Feb-2003 12:44;PLS
+1 ;;2.0;WOMEN'S HEALTH;**8**;MAY 16, 1996
+2 ;;* MICHAEL REMILLARD, DDS * ALASKA NATIVE MEDICAL CENTER *
+3 ;; POSTINIT SUBROUTINE: DISPLAYS TEXT.
+4 ;
+5 ;
TEXT3 ;EP
+1 ;;OPTIONS:
+2 ;;--------
+3 ;;
+4 ;;The main menu option for the Women's Health package is BWMENU.
+5 ;;At most sites this would be placed on AKMOCORE along with other
+6 ;;RPMS packages. For the sake of consistency from site to site,
+7 ;;it is recommended that the synonym "WH" (Women's Health) be
+8 ;;given to the main menu option BWMENU, however, this is not a
+9 ;;requirement. BWMENU allows access to every other option within
+10 ;;the package. (Keys: BWZMENU and BWZ MANAGER, see below.)
+11 ;;
+12 ;;The option BW MENU-LAB DATA ENTRY is a submenu that may be assigned
+13 ;;to Lab personnel for the limited purpose of accessioning PAP Smears
+14 ;;(and other procedures). This option may be attached to any other
+15 ;;Kernel menu and need not be accessed via the main menu, BWMENU.
+16 ;;(Key: BWZ LAB PCD EDIT, see below.)
+17 ;;
+18 SET BWTAB=5
SET BWLINL="TEXT3"
DO PRINTX
+19 QUIT
+20 ;
TEXT31 ;EP
+1 ;;OPTIONS (continued):
+2 ;;--------------------
+3 ;;
+4 ;;The option BW PATIENT PROFILE USER is an option for providers and
+5 ;;other users outside of the Women's Health program to display or print
+6 ;;the "Patient Profile" of a patient in the Women's Health database.
+7 ;;This option may be attached to any other Kernel menu and need not
+8 ;;be accessed via the main menu, BWMENU. This option does not come
+9 ;;with a key, nor do users need any particular Fileman Access Code
+10 ;;in order to use it.
+11 ;;
+12 ;;NOTE: Be sure to select the option BW PATIENT PROFILE USER -- the
+13 ;;"USER" is important, as this option does not permit users to edit
+14 ;;the data. Do NOT use the option BW PATIENT PROFILE for this purpose.
+15 ;;
+16 SET BWTAB=5
SET BWLINL="TEXT31"
DO PRINTX
+17 QUIT
+18 ;
TEXT4 ;EP
+1 ;;SECURITY:
+2 ;;---------
+3 ;;
+4 ;;All users given the BWMENU (or the BW MENU-LAB DATA ENTRY) options
+5 ;;should be given File Manager Access Codes of "MW".
+6 ;;
+7 ;;The security key BWZMENU allows users to access the main menu of
+8 ;;the RPMS Women's Health package, BWMENU. All users who are to use
+9 ;;the software for data entry, patient management, reports, etc.
+10 ;;should be given this key.
+11 ;;
+12 ;;The security key BWZ MANAGER allows managers to access the "Manager's
+13 ;;Functions" menu (BW MENU-MANAGER'S FUNCTIONS), which is a submenu of
+14 ;;the main menu (BWMENU). The Manager's Functions menu provides access
+15 ;;to many sensitive functions and should only be given to the manager
+16 ;;of the program.
+17 ;;
+18 SET BWTAB=5
SET BWLINL="TEXT4"
DO PRINTX
+19 QUIT
+20 ;
TEXT41 ;EP
+1 ;;SECURITY (continued):
+2 ;;---------------------
+3 ;;
+4 ;;The security key BWZ LAB PCD EDIT is for sites where the Lab
+5 ;;personnel (presumably not the same department as a Women's Health
+6 ;;Program) are accessioning PAP Smears and other procedures for the
+7 ;;Women's Health Program. The Lab staff would receive the limited
+8 ;;submenu, BW-MENU LAB DATA ENTRY (described above under OPTIONS).
+9 ;;
+10 ;;On the LAB DATA ENTRY menu there is a special option that allows one
+11 ;;to go back and edit the RESULT of a procedure. In general, this
+12 ;;option should only be used to enter a result of "ERROR/DISREGARD",
+13 ;;in order to cancel out procedures entered in error by lab staff.
+14 ;;Access to this option by the Lab Manager should be negotiated with
+15 ;;the Women's Health program people. The key BWZ LAB PCD EDIT gives
+16 ;;the Lab Manager access to that option under the LAB DATA ENTRY menu.
+17 ;;
+18 SET BWTAB=5
SET BWLINL="TEXT41"
DO PRINTX
+19 QUIT
+20 ;
+21 ;
TEXT5 ;EP
+1 ;;DEVICES:
+2 ;;--------
+3 ;;
+4 ;;This package makes extensive use of the VA Screen Manager,
+5 ;;which requires that several of the cursor and screen handling
+6 ;;fields of the Terminal Type file be present for any Device
+7 ;;accessing the package. It is recommended that any Device
+8 ;;accessing this package be given a Terminal Type ("Subtype")
+9 ;;of "C-VT100", since the standard VA Kernel distribution comes
+10 ;;with all of the necessary codes pre-loaded. A user whose Terminal
+11 ;;Type does not contain a complete set of screen handling codes will
+12 ;;receive a message that Screenman cannot "load the form."
+13 ;;
+14 ;;Other Terminal Types may also be chosen, however, the screen
+15 ;;handling codes for Cursor movements, "PF keys", "Erase Entire
+16 ;;Page", etc., may need to be entered manually if they are not
+17 ;;already present for the selected Terminal Type.
+18 ;;
+19 SET BWTAB=5
SET BWLINL="TEXT5"
DO PRINTX
+20 QUIT
+21 ;
TEXT51 ;EP
+1 ;;DEVICES (continued):
+2 ;;--------------------
+3 ;;
+4 ;;If for some reason it is not practical to define Devices
+5 ;;accessing the package with a Subtype of C-VT100, users of the
+6 ;;package may be given a "DEFAULT TERMINAL TYPE FOR LM" in the
+7 ;;NEW PERSON File #200 of C-VT100. (They will then be given a
+8 ;;Terminal Type of C-VT100 regardless of which DEVICE they sign
+9 ;;on through.) It may also be necessary to set the field "ASK
+10 ;;DEVICE TYPE AT SIGN-ON" (again in file #200) equal to "ASK" in
+11 ;;order to get a user's Terminal Type to change to the C-VT100.
+12 ;;
+13 ;;Initial difficulties with the screen handling codes for ScreenMan
+14 ;;are not specific to Women's Health; however, if problems with the
+15 ;;setup cannot be resolved, please contact Area support staff.
+16 ;;
+17 SET BWTAB=5
SET BWLINL="TEXT51"
DO PRINTX
+18 QUIT
+19 ;
TEXT6 ;EP
+1 ;;OLD PAP TRACKING OPTIONS:
+2 ;;-------------------------
+3 ;;
+4 ;;In order to avoid confusion, it is advisable to remove any of
+5 ;;the old PAP Tracking Program options from the Kernel menus.
+6 ;;These old options appear as "AMCP/C/PAP..." and might be found
+7 ;;under the AMCHMENU and/or AMCHMAIN options. Removal of the
+8 ;;AMCP/C/PAP options is NOT necessary in order to run the new
+9 ;;RPMS Women's Health software, it is only recommended.
+10 ;;
+11 SET BWTAB=5
SET BWLINL="TEXT6"
DO PRINTX
+12 QUIT
+13 ;
TEXT8 ;EP
+1 ;;SITE PARAMETERS:
+2 ;;----------------
+3 ;;
+4 ;;As part of the installation of this new version of Women's Health,
+5 ;;the site parameters must be reviewed. In particular, be sure to
+6 ;;look at page 2 and answer the "CDC Export:" and "Import Mammograms"
+7 ;;questions, and at pages 3-5 relating to Procedure Types.
+8 ;;
+9 ;;The Site Parameter screen may be accessed from the programmer prompt
+10 ;;by entering "D ^BWSITE" (no quotes). It may also be accessed from
+11 ;;within the Women's Health menus by selecting Manager's Functions
+12 ;;from the Main Menu, then File Maintenance from the Manager's
+13 ;;Functions, and finally Edit Site Parameters from the File Maintenance
+14 ;;menu.
+15 ;;
+16 SET BWTAB=5
SET BWLINL="TEXT8"
DO PRINTX
+17 QUIT
+18 ;
TEXT9 ;EP
+1 ;; * This concludes the Post-Initialization program. *
+2 ;;
+3 ;;
+4 SET BWTAB=5
SET BWLINL="TEXT9"
DO PRINTX
+5 QUIT
+6 ;
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