SCRPV1 ; bp/djb - PCMM Inconsistency Rpt - Main ; 8/25/99 9:52am
Source file <SCRPV1.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| EN | ;
 | 
|
| TOP | ;
 | 
|
| EXIT | ; Cleanup and Exit
 | 
|
| RUN | ;Gather the data and print the report.
 | 
|
| DEVICE() | ; Select output device.
 | 
|
| ASKTM() | ; Ask user to select teams.
 ; A = All Teams ; S = Select Teams ; Return: 0,A, or S.  | 
|
| GETTM | ;Allow the user to select multiple teams.
 | 
|
| ASKMODE() | ; Which report type to run: BRIEF or DETAIL.
 ; B = Brief ; DP = Detailed by PATIENT ; DT = Detailed by TEAM ; Return: 0,B, or D.  | 
|
| IEN | ;Call here to include the 404.43 IEN on the right side of the
 | 
|
| MAIL(SCDUZ) | ; Queue report as a MailMan Message.
 | 
|
| MAILPOS | ;Print POSITION error counts only.
 | 
|
| MAILPT | ;Print PATIENT error counts only.
 | 
|
| SET(TXT) | ;Build message array
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  |