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

AZXRVP1A.m

Go to the documentation of this file. 
  1. AZXRVP1A ;PAO/IHS/JHL;VISITS BY PROVIDERS[ 08/31/93  11:22 AM ]
  1.  ;Version 1;VISITS BY PROVIDERS;;****;DATE OF RELEASE HERE
  1.  ;JOHN H. LYNCH
  1.  ;
  1.  ;ALLOWS THE USER TO INPUT THE FACILITY, DATE RANGES, 
  1.  ;CLINIC STOPS, AFFILIATIONS, PRIMARY PROVIDERS, AND
  1.  ;COVERAGE TYPES TO RECEIVE BACK ALL VISITS BY PROVIDERS.
  1.  ;
  1.  ;AZXRVP1A, INPUT PROGRAM 1 OF 4.
  1.  
  1.  ;THE ROUTINES THAT CALL AZXRVP1A:
  1.  ;NONE
  1.  
  1.  ;THE ROUTINES THAT AZXRVP1A CALLS:
  1.  ;AZXRVP1B, 2nd input program.
  1.  ;^DIC, Fileman Lookup.
  1.  
  1.  ;Variable List
  1.  ;DTIME=       Default timeout on all prompts.
  1.  ;DIC=         Global root of file for Fileman Lookup.
  1.  ;DIC(0)=      Fileman Lookup parameters.
  1.  ;DIC("A")=    Fileman Lookup default prompt.
  1.  ;AZXRBCK=     Flags whether user wants to back up one prompt.
  1.  ;AZXRFAC=     [1]Facility in external form^[2]DFN from LOCATION file.
  1.  ;AZXRQUIT=    Flag to check if ^AZXRTMP1 is locked.
  1.  ;X=           Lookup value from user input.
  1.  ;Y=           Returned lookup value from ^DIC.
  1.  
  1.  
  1. MAIN ;AZXRVP1A PROGRAM CONTROL    
  1.  S DTIME="60"                            ;DEFAULT TIMEOUT ON PROMPTS
  1.  D VPCHK                                 ;ONLY ONE REPORT CAN RUN
  1.  I AZXRQUIT="Y" K DTIME,AZXRQUIT Q       ;KILL LOCAL VARS AND QUIT
  1.  
  1.  D INPUT                                 ;GET USER INPUTS
  1.  D KILL                                  ;KILL OFF ALL LOCAL VARIABLES
  1.  Q
  1.  
  1. VPCHK ;ONLY ONE REPORT CAN RUN AT A TIME
  1.  S AZXRQUIT="N"                          ;INIT AZXRQUIT
  1.  I $D(^AZXRTMP1(0,0)) W !!,?21,"This report is already being run.",!,?21,"Please try again later." S AZXRQUIT="Y" H 3 Q
  1.                                          ;CHK IF TEMP GLOBAL LOCKED
  1.  S ^AZXRTMP1(0,0)="GLOBAL LOCKED^KILL THIS NODE IF NEEDED TO BE UNLOCKED"
  1.                                          ;LOCK GLOBAL
  1.  Q
  1.  
  1. INPUT ;ASK USER FOR THE FACILITY TO USE FOR REPORT
  1.  ;THEN CALL AZXRFDT ROUTINE
  1.  
  1.  W @IOF                                  ;CLEAR SCREEN
  1.  
  1.  W !!!,"Visits by Providers...",!!
  1.  
  1. FACILITY ;CALL FILEMAN LOOKUP FOR FACILITY
  1.  ;SET LOCAL VARIABLES
  1.  S DIC="^AUTTLOC("                       ;GLOBAL ROOT OF LOCATION FILE
  1.                                          ;USED FOR LOOKUP
  1.  
  1.  S DIC(0)="AEQZ"                         ;DIC(0)= LOOKUP VALUES
  1.                                          ;  A= ASK USER FOR INPUT
  1.                                          ;  E= ECHO ANSWER
  1.                                          ;  Q= QUESTION ERRONEOUS INPUT
  1.                                          ;  Z= ZERO NODE RETURNED IN
  1.                                          ;     Y(0) AND EXTERNAL FORM
  1.                                          ;     IN Y(0,0)
  1.  
  1.  S DIC("A")="Enter Facility: "           ;DIC("A")= DEFAULT PROMPT FOR
  1.                                          ;          LOOKUP
  1.  D ^DIC
  1.  
  1.  I (X="^")!(X="")!($D(DTOUT)) K DTOUT,^AZXRTMP1(0,0) Q  
  1.                                          ;X= USER INPUT VALUE FROM ^DIC
  1.                                          ;   OR A TIMEOUT HAS OCCURRED
  1.                                          ;   TIME TO QUIT PROGRAM
  1.                                          ;   CLEAR LOCK ON TEMP GLOBAL
  1.  
  1.  S $P(AZXRFAC,U,2)=Y(0,0)                ;AZXRFAC= FACILITY IN EXTERNAL
  1.                                          ;         FORM
  1.  
  1.  S $P(AZXRFAC,U)=$P(Y,U,1)               ;AZXRFAC= INTERNAL NUMBER IN 
  1.                                          ;         LOCATION FILE
  1.  
  1.  D FDATE^AZXRVP1B                        ;CALL INPUT ROUTINE 2,
  1.                                          ;AZXRVP1B
  1.  
  1.  G:AZXRBCK="Y" FACILITY                  ;USER WANTS TO BACKUP "^"
  1.  Q
  1.  
  1. KILL ;KILL LOCAL VARIABLES AND EXIT ROUTINE AZXRVP1A
  1.  K DTIME,DIC,X,AZXRFAC,Y,AZXRBCK,%DT,AZXRFDT,AZXRTDT
  1.  K J,K,L,AZXROK,AZXRCLNC,AZXRAFF,AZXRAFFN,AZXRAFOK
  1.  K AZXRPROV,AZXRCOV,%ZIS,%IS,AZXRAFFS,DINUM
  1.  Q