SCMCCV4 ; bp-ciofo/vad - PCMM PC Attending Assignments Report ; 05 May 99 9:05 AM
Source file <SCMCCV4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAIN | ; Main module to drive this routine
; ------------------------------------------------------------------- |
|
| QIT() | ; Module to QUEUE and Run this job in the Background.
; ------------------------------------------------------------------- |
|
| MAINQ | ; Main module to drive this routine
; ------------------------------------------------------------------- |
|
| RUNIT | ; Module to gather the data and print the report.
; ------------------------------------------------------------------- |
|
| ASKTEAM() | ; Prompt for "A"ll or "S"elected Teams.
; ------------------------------------------------------------------- ; Sets up the SCMCTM and SCTMNAM arrays. ; Returns a "1" to STOP, or a "0" to CONTINUE. |
|
| TYPE() | ; Ask the user to enter "A"ll or "S"elected teams.
; ------------------------------------------------------------------- ; "A" means All Teams. ; "S" means Select Teams. ; Returns a "0" to quit or a "1" to continue. |
|
| TMLP | ; Allow the user to select multiple teams.
; ------------------------------------------------------------------- ; Sets up the SCMCTM and SCTMNAM arrays with the teams. ; Sets SCSTOP=1 to stop selection. |
|
| SCPTLP | ; Process the ^SCPT(404.43) global to gather reportable data.
; ------------------------------------------------------------------- |
|
| ; Store the report in temp array prior to a Mailman Message.
; ------------------------------------------------------------------- |
||
| LJ(STRING,LENGTH) | ||
| PRTTMHDR | ; Print the Team Sub-heading.
; ------------------------------------------------------------------- |
|
| PRTPHHDR | ; Print the Physician Sub-heading.
; ------------------------------------------------------------------- |
|
| MAILIT | ; Queue the report as a MailMan Message.
; ------------------------------------------------------------------- |
|
| EXIT | ; Clean up and Exit
; ------------------------------------------------------------------- |
