LRAPMRL ;DALOI/STAFF - AP MODIFY RELEASED REPORT;02/28/12 20:38
Source file <LRAPMRL.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| MAIN | ;
 | 
|
| ACCPN | ; Prompt for accession number or patient name or UID
 | 
|
| TITLE | ; Title
 | 
|
| NOTICE | ; Warn the user and allow an exit
 | 
|
| WHAT | ; What is to be edited
 | 
|
| CPTCHK | ; Determine if CPT is activated
 | 
|
| SECTION | ; Choose Anatomic Pathology section (AU,SP,CY,EM)
 | 
|
| ASK | ; Ask etiology,function,procedure,disease,weights,measures
 | 
|
| ACCYR | ; Determine Accession Year
 | 
|
| ASK2 | ; Ask about other fields
 | 
|
| SAVTXT | ; Save word processing field text.
 | 
|
| COMPARE | ; Compare report text
 | 
|
| AUDIT | ;
 | 
|
| STORE | ;
 | 
|
| SUPRPT | ; Supplementary Report
 | 
|
| UNLOCK | ; Unlock the record
 | 
|
| END | ; Clean-up variables and quit
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^LAB(69.9 - [#69.9] | GET1^DIQ |