Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SDOQMP0

Package: Scheduling

Routine: SDOQMP0


Information

SDOQMP0 ;ALB/SCK - Appointment Monitoring / Performance Measure Rpt. ; [07/23/96]

Source Information

Source file <SDOQMP0.m>

Entry Points

Name Comments DBIA/ICR reference
SELECT() ; Selection method for clinic selection.
; Returns:
; Y = S, D, or C for Stop Code, Division, or Clinic.
; Y = Null for up-arrow or timeout
SELQ
CLINIC() ; One-Many-All clinic selection
; Output
; CLINIC(IEN)=""
STOP() ; -- get stop code data
; output: VAUTC := stop codes selected (VAUTC=1 for all)
; return: was selection made [ 1|yes 0|no]
STOPQ
DIV() ; -- get division data
; input: none
; output: VAUTD := divs selected (VAUTD=1 for all)
; return: was selection made [ 1|yes 0|no]
STOPCDE(PMIEN) ; Get associated stop code number for clinic
; Input
; PMIEN - Ien of clinic in the Hospital location file
CLNOK(PMSC) ; Checks associated stop code for clinic.
; Input
; PMSC - Associated stop code for current clinic
DIVISION(PMIEN) ; Returns the name of the division the clinic as assigned to.
; Input:
; Ien of clinic in the Hospital location file.
DIVQ
LOOPSC ; Loops through all clinics in the Hospital location file, and selects clinics that are
; associated with one of the selected stop codes, adding them to the "SDAMMS" TMP global.
; If VAUTC=1, then select clinics for all Stop codes.
; If VAUTC=0, then select only those clinics for the Stop codes in the
; VAUTC(StopCode Ien) local array.
;
LOOPD ; Loops through all clinics in the Hospital location file, and select clinics that are
; in one of the selected divisions, adding them to the "SDAMMS" TMP global.
; If VAUTD=1, then select clinics for all Divisions.
; If VAUTD=0, then select only those clinics for the Divisions in the
; VAUTC(StopCode Ien) local array.
CHKTASK() ; Checks if the expiration date has been reached. If it has, delete the option
; scheduling run time field to turn off the reschedule option
CHKQ
LOOPS ; Use appropriate loop for building the clinic global.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Clinic Selection"
  • Line Location: CLINIC+4
Function Call: WRITE
  • Prompt: !!,"Stop Code Selection"
  • Line Location: STOP+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(40.7 - [#40.7] Classic Fileman Calls
^SC - [#44] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call