DG1010P ;ALB/JDS;REW - 1010 PRINT--INQUIRY PATIENT ; 1/3/05 6:18pm
Source file <DG1010P.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| FIND | ||
| W1 | ||
| QU | ;
 | 
|
| EN | ;
 | 
|
| DQ | ;
 | 
|
| Q | ||
| RESTORE | ||
| EMB | ;emboss card?
 | 
|
| EF | ;encounter form?
 | 
|
| SEL1010(PROMPT) | ;* Prompt user to select the 1010EZ to print
 | 
|
| EZPRMPT() | ;* Prompt for 1010EZ print
 ; OUTPUT - ; RPTSEL : -1 REPORT NOT SELECTED ; RPTSEL : -2 USER EXITED WITHOUT RESPONSE ; RPTSEL : 0 USER ANSWERED "NO" ; RPTSEL : 1 USER ANSWERED "YES"  | 
|
| EZRPRMPT() | ;* Prompt for 1010EZR print
 ; OUTPUT - ; RPTSEL : -1 REPORT NOT SELECTED ; RPTSEL : -2 USER EXITED WITHOUT RESPONSE ; RPTSEL : 0 USER ANSWERED "NO" ; RPTSEL : 1 USER ANSWERED "YES"  | 
|
| MTPRMPT(DFN,DGMTI) | ;* Prompt for Means test included on 1010EZ
 | 
|
| PRT1010(PRT1010,DFN,MTIEN) | ;* Print 1010EZ reports
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^DPT - [#2] | Classic Fileman Calls | 
| ^EAS(712 - [#712] | GET1^DIQ |