GMRCDIS ;SLC/JFR - LM ROUTINE TO DISASSOCIATE MED RESULTS; 11/5/01 11:20
Source file <GMRCDIS.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;invoke list template
|
|
| HDR | ;format list template header
|
|
| PHDR | ||
| INIT | ; set up array into ^TMP("GMRCR",$J,"DT"...
; should already have it |
|
| GETRES(GMRCO) | ; get associated MEDICINE results and format
|
|
| DIS(GMRCO) | ;select consult and start disassoc process
|
|
| EXIT | ;
|
|
| EN1(GMRCRSLT) | ; select result and verify remove action
|
|
| REMOVE(GMRCO,RSLT,GMRCAD,GMRCORNP) | ;disassociate result
; remove rslt, log actv, update sts, send alerts ; Input: ; GMRCO - ien from file 123 ; RSLT - medicine result in var ptr form (e.g. "19;MCAR(691.5,") ; GMRCAD - FM date/time of action (optional) ; GMRCORNP - DUZ of person performing action (optional) |
|
| STSCHG(GMRCIEN) | ;completed before or go back
|
|
| REFRESH(GMRCIEN) | ;re-build list of associated results
|
|
| REMUSR(GMRCIEN,USER) | ; check to see if user is authorized to remove results
|
| FileNo | Call Tags |
|---|---|
| ^GMR(123 - [#123] | Classic Fileman Calls |
