SDOQMP0 ;ALB/SCK - Appointment Monitoring / Performance Measure Rpt. ; [07/23/96]
Source file <SDOQMP0.m>
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.
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DIC(40.7 - [#40.7] | Classic Fileman Calls |
^SC - [#44] | Classic Fileman Calls |