GMRCGUIU ;SLC/DCM,JFR - Utilities for CPRS GUI ;Sep 15, 2020@06:46:33
Source file <GMRCGUIU.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GUIC | ;Kill variables from GMRCGUIC
|
|
| SETDA(GMRCSS,GMRCPROC,GMRCURG,GMRCPL,GMRCATN,GMRCRQT,GMRCION,GMRCERDT,GMRCDIAG,GMRCDXCD,GMRCDSID) | ||
| COMMENT(GMRCO,MSG,ND,GMRCDA) | ||
| SENDCOMT(GMRCO,ND1) | ||
| GETMED(GMRCIFN,GMRCRES) | ;return available med results for proc request
; input: ; GMRCIFN - ien from file 123 ; GMRCRES - variable passed in by reference used for output ; output: ; GMRCRES(x) = result_name^date^summary^result_ref ; example: ; GMRCRES(1)="19;MCAR(691.5,^EKG^JUN 30,1999@15:52^ABNORMAL" |
|
| GETRES(GMRCO,GMRCAR) | ;return array of associated med rslts
; DBIA #: ? ; Input: ; GMRCO - ien from file 123 ; GMRCAR - variable passed by ref to return array in ; Output: ; GMRCAR(x)=result_ref^result_name^date^impression ; Example: ; GMRCAR(1)="19;MCAR(691.5,^EKG^JUN 30,1999@15:52^ABNORMAL" |
|
| DISPMED(GMRCRES,GMRCAR) | ; display a med result
; Input: ; GMRCRES - med result var ptr (e.g. "19;MCAR(691.5") ; GMRCAR - array to return output from medicine API ; Output: ; GMRCAR ; - var passed by ref or as global ref to return text of ; medicine pkg report ; Example: GMRCAR(1)=" PROCEDURE DATE/TIME: 06/30/99 15:52" ; GMRCAR(2)=" CONFIDENTIAL ECG REPORT" ; GMRCAR(3...)= |
|
| CANDOMED(GMRCIEN,USER) | ;can person associate med results?
; GMRCIEN - ien from file 123 |
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^MCAR(697.2 - [#697.2] | GET1^DIQ |
