WVREFUSE ;HCIOFO/JWR - Add/Enter/Manipulate procedure refusals ;12/9/98 15:56
Source file <WVREFUSE.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| EDREF | ;EDIT AN EXISTING REFUSAL
 | 
|
| ADDREF | ;ADD A NEW REFUSAL (not used now, use UNIV for adding a refusal)
 | 
|
| CHECK | ;Checks for existing refusals for this patient within 30 day period
 ; for this procedure.  | 
|
| UNIV | ;Add new Refusal & check other recent (within 30 days) Refusals
 | 
|
| EXIT | ;kill variables
 | 
|
| LOOP | ;Loop though the array of refuals for this patient & write them out
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^WV(790 - [#790] | Classic Fileman Calls | 
| ^WV(790.3 - [#790.3] | Classic Fileman Calls |