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

AZXZMGT.m

Go to the documentation of this file. 
  1. AZXZMGT ;SUPPORT DATABASE MANAGEMENT REPORTS [ 04/30/92  8:04 AM ]
  1.  ;04/01/92   JOHN H. LYNCH
  1.  ;
  1.  ;A TOOL USED FOR CREATING REPORTS FROM
  1.  ;THE SUPPORT LOG DATABASE ON SERVICE UNITS
  1.  ;UNDER THE PHOENIX AREA INDIAN HEALTH SERVICE.
  1.  
  1. MAIN ;AZXZMGT PROGRAM CONTROL
  1.  ;SET LOCAL VARIABLES
  1.  D ^XBKSET  ;THIS LINE SHOULD BE UNCOMMENTED IF RUNNING IN
  1.             ;PROGRAMMERS' MODE ONLY!
  1.  
  1.  D MAINMENU
  1.  K OPTION
  1.  Q
  1.  
  1.  ;CLEAR SCREEN
  1.  W @IOF
  1.  
  1.  W !!!,?27,"RPMS Support Database"
  1.  W !,?21,"Phoenix Area Indian Health Service"
  1.  W !,?26,"Management Reports Menu"
  1.  W !!!,?21,"Management Time Report.........[1]"
  1.  W !,?21,"For Future Use.................[2]"
  1.  W !,?21,"For Future Use.................[3]"
  1.  W !,?21,"For Future Use.................[4]"
  1.  W !,?21,"Quit...........................[5]"
  1.  W !!,?33,"Option: " R OPTION
  1.  I OPTION'?1N G MAINMENU         ;ILLEGAL OPTION
  1.  I OPTION=1 D ^AZXZMGT1 G MAINMENU  
  1.  I OPTION=2 G MAINMENU
  1.  I OPTION=3 G MAINMENU
  1.  I OPTION=4 G MAINMENU
  1.  I OPTION=5 Q  
  1.  G MAINMENU
  1.  Q