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 |
|