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

AZXRVP.m

Go to the documentation of this file. 
  1. AZXRVP ;PAO/IHS/JHL;VISITS BY PROVIDERS[ 08/30/93  12:33 PM ]
  1.  ;Version 1;VISITS BY PROVIDERS;;****;DATE OF RELEASE HERE
  1.  ;JOHN H. LYNCH
  1.  ;
  1.  
  1.  ;THE ROUTINES THAT AZXRVP CALLS:
  1.  ;AZXRVP1A, Report Input
  1.  ;AZXRVP4, Report re-print
  1.  
  1.  ;THE ROUTINES THAT CALL AZXRVP:
  1.  ;NONE 
  1.  
  1.  ;Variable List
  1.  ;AZXROPT=       Users input on which option they chose.
  1.  
  1. MAIN ;AZXRVP PROGRAM CONTROL    
  1.  ;SET LOCAL VARIABLES
  1.  ;D ^XBKSET  ;THIS LINE SHOULD BE UNCOMMENTED IF RUNNING
  1.              ;IN PROGRAMMERS' MODE ONLY!
  1.  
  1.  D MAINMENU
  1.  K AZXROPT 
  1.  Q
  1.  
  1.  ;CLEAR SCREEN
  1.  W @IOF
  1.  
  1.  W !!!!!!,?28,"Visits by Providers"
  1.  W !,?21,"Phoenix Area Indian Health Service"
  1.  W !,?32,"REPORT MENU"
  1.  W !!!,?21,"Visits by Providers report.....[1]"
  1.  W !,?21,"Visits by Providers re-print...[2]"
  1.  W !,?21,"Quit...........................[0]"
  1.  W !!,?33,"Option: " R AZXROPT
  1.         
  1.  I AZXROPT=1 D ^AZXRVP1A G MAINMENU
  1.  I AZXROPT=2 D ^AZXRVP4 G MAINMENU
  1.  I (AZXROPT=0)!(AZXROPT="")!(AZXROPT="^") Q
  1.  G MAINMENU
  1.  Q