GMRCMED ;SLC/JFR - MEDICINE INTERFACE ROUTINES; 2/20/01 13:32
Source file <GMRCMED.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SET(NUM) | ; set selected med result into GMRCMEDR
|
|
| RESETIT(NUM) | ;return prev. selected number to normal video
|
|
| RESULTS(ROOT,GMRCDFN) | ;get list of results from Medicine
; ROOT = "MCAR(691","MCAR(691.5" etc. (global root w/o comma) ; return list formatted in ^TMP("GMRCMC",$J |
|
| PHDR | ;set protocols into actions
|
|
| SELECT(CNT) | ;grab an item from list
|
|
| DISPRES(ITEM) | ;
|
|
| AR(ITEM) | ;associate specific result and complete consult
|
|
| MEDCOMP(GMRCDA,GMRCRSLT,GMRCAD,GMRCORNP,GMRCALRT) | ;add medicine result
; update status and send alerts ; Input: ; GMRCDA - ien from file 123 ; GMRCRSLT - medicine result in var ptr form (e.g. "19;MCAR(691.5,") ; GMRCAD - FM date/time of action (optional) ; GMRCORNP - DUZ of person taking action ; GMRCALRT - array of users to receive alert (optional) |
|
| REFRESH(GMRCIEN) | ;update list of available results
|
|
| SCRNDRFT(GMRCMCDA,GMRCMCFL) | ;screen out draft or marked for del med results
; Input: ; GMRCDA - ien from a MEDICINE file ; GMRCMCFL - file # from MEDICINE (e.g. 691, 691.5, 699 etc.) ; Output: Boolean 1=screen it out 0=include it |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^MCAR(697.2 - [#697.2] | GET1^DIQ |
