©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
GMRCGUIU ;SLC/DCM,JFR - Utilities for CPRS GUI ;16-Apr-2014 14:19;DU
Source file <GMRCGUIU.m>
| Package | Total | Call Graph |
|---|---|---|
| Consult Request Tracking | 3 | ($$ADDCM,AUDIT0)^GMRCEDT3 TRIGR^GMRCIEVT $$SCRNDRFT^GMRCMED |
| Medicine | 3 | $$SINGLE^MCAPI EN^MCARPS2 MEDLKUP^MCARUTL3 |
| Kernel | 1 | $$FMTE^XLFDT |
| Order Entry Results Reporting | 1 | START^ORWRP |
| VA Fileman | 1 | $$GET1^DIQ |
| Package | Total | Caller Graph |
|---|---|---|
| Consult Request Tracking | 2 | GMRCACTM GMRCGUIC |
| Order Entry Results Reporting | 1 | ORQQCN3 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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" |
|
| SENDCOMT(GMRCO,ND1) | ;Get comments
|
|
| SETDA(GMRCSS,GMRCPROC,GMRCURG,GMRCPL,GMRCATN,GMRCRQT,GMRCION,GMRCDIAG,GMRCDXCD,GMRCPRB) | ;Set DA in ^GMR(123,GMRCO,40
|
|
| CANDOMED(GMRCIEN,USER) | ;can person associate med results?
; GMRCIEN - ien from file 123 |
|
| COMMENT(GMRCO,MSG,ND,GMRCDA) | ;File comments from GUI edits
|
|
| GUIC | ;Kill variables from GMRCGUIC
|
|
| 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...)= |
|
| 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" |
| FileNo | Call Tags |
|---|---|
| ^MCAR(697.2 - [#697.2] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR(123 - [#123] | COMMENT+5*, COMMENT+6*, COMMENT+7, SENDCOMT+3, SENDCOMT+6, SENDCOMT+8, SENDCOMT+13, SENDCOMT+15, GETMED+10, GETMED+14 , GETMED+19, GETRES+11, GETRES+13, GETRES+18, CANDOMED+3, CANDOMED+4, CANDOMED+5 |
| ^GMR(123.3 - [#123.3] | GETMED+12, CANDOMED+6 |
| ^TMP("GMRCFLD20" | GUIC+8! |
| ^TMP("OR" | GETMED+15, GETMED+17, GETMED+18, GETMED+25! |
| ^TMP("ORDATA" | DISPMED+12, DISPMED+15, DISPMED+16, DISPMED+17! |
| ^VA(200 - [#200] | SENDCOMT+6, SENDCOMT+13 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | SENDCOMT+6 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CMTDT | SENDCOMT+1~, SENDCOMT+2*, SENDCOMT+6*, SENDCOMT+7, SENDCOMT+13*, SENDCOMT+14 |
| CNT | GETMED+8~, GETMED+16*, GETMED+17*, GETMED+18, GETRES+9~, GETRES+10*, GETRES+18, GETRES+19, GETRES+20, GETRES+21* |
| DATA | GETMED+18~*, GETMED+19, GETMED+20, GETMED+22, GETRES+9~ |
| DFN | GETMED+8~ |
| DT | COMMENT+4 |
| >> GLOBAL | SENDCOMT+4, SENDCOMT+7, SENDCOMT+8, SENDCOMT+9*, SENDCOMT+12, SENDCOMT+14, SENDCOMT+15, SENDCOMT+16* |
| >> GMRC(0 | GUIC+1! |
| GMRCA | GUIC+1!, COMMENT+2* |
| GMRCADUZ | GUIC+4! |
| GMRCAR | GETRES~, DISPMED~, DISPMED+13, DISPMED+14, DISPMED+15, DISPMED+16* |
| GMRCAR( | GETRES+18*, GETRES+19*, GETRES+20* |
| GMRCAR(1 | DISPMED+14* |
| GMRCATN | GUIC+1!, GUIC+6!, SETDA~, SETDA+7, SETDA+8 |
| GMRCD | GUIC+1! |
| GMRCDA | COMMENT~, COMMENT+2*, COMMENT+3, COMMENT+4, COMMENT+5, COMMENT+6, COMMENT+8 |
| GMRCDD | GUIC+1! |
| GMRCDIAG | GUIC+1!, GUIC+7!, SETDA~, SETDA+10, SETDA+11 |
| GMRCDT | GUIC+1!, COMMENT+6 |
| GMRCDXCD | GUIC+7!, SETDA~, SETDA+13 |
| GMRCED | GUIC+1! |
| GMRCEDCM | GUIC+1! |
| GMRCFL | GUIC+2! |
| GMRCFLD | GUIC+2! |
| GMRCFLD(40 | COMMENT+4* |
| GMRCGUIF | GUIC+5! |
| GMRCIEN | CANDOMED~, CANDOMED+3, CANDOMED+4, CANDOMED+5 |
| GMRCIFN | GETMED~, GETMED+10, GETMED+14 |
| GMRCINO | GUIC+6! |
| GMRCION | GUIC+2!, SETDA~, SETDA+9 |
| GMRCITM | GUIC+5! |
| GMRCLNO | GUIC+2! |
| GMRCMCAR | GETRES+12~, GETRES+17, GETRES+20 |
| GMRCMCR | GETRES+12~, GETRES+15*, GETRES+16, GETRES+19 |
| GMRCMSG | GUIC+5! |
| GMRCNATO | GUIC+2! |
| GMRCND | COMMENT+1~, COMMENT+5* |
| GMRCND1 | GUIC+5! |
| GMRCNOD | GUIC+5! |
| GMRCNT | GUIC+2!, COMMENT+5*, COMMENT+6 |
| GMRCO | COMMENT~, COMMENT+2, COMMENT+3, COMMENT+5, COMMENT+6, COMMENT+7, COMMENT+8, SENDCOMT~, SENDCOMT+3, SENDCOMT+6 , SENDCOMT+8, SENDCOMT+13, SENDCOMT+15, GETRES~, GETRES+11, GETRES+13, GETRES+18 |
| GMRCORTX | GUIC+2! |
| GMRCOUNT | GUIC+5! |
| GMRCPL | GUIC+2!, GUIC+6!, SETDA~, SETDA+6 |
| GMRCPRB | SETDA~, SETDA+15 |
| GMRCPROC | GUIC+3!, GUIC+6!, SETDA~, SETDA+4 |
| GMRCPROV | GUIC+5!, GUIC+7! |
| GMRCREQ | GUIC+5!, GUIC+6! |
| GMRCRES | GETMED~, DISPMED~ |
| GMRCRES( | GETMED+22* |
| GMRCRQT | GUIC+3!, SETDA~ |
| GMRCS38 | GUIC+3! |
| GMRCSS | GUIC+3!, GUIC+6!, SETDA~, SETDA+3 |
| GMRCSVC | GUIC+3! |
| GMRCTRLC | GUIC+3! |
| GMRCTYPE | GUIC+3! |
| GMRCURG | GUIC+3!, GUIC+6!, SETDA~, SETDA+5 |
| GMRCURGY | GUIC+6! |
| GMRCX | GUIC+4! |
| I | GETMED+8~, GETMED+16*, GETMED+21*, GETMED+22 |
| LN | GUIC+4! |
| MCARCODE | GETMED+9~, GETMED+24! |
| MCARDT | GETMED+9~, GETMED+24! |
| MCESKEY | GETMED+9~, GETMED+24! |
| MCFILE | GETMED+9~, GETMED+24! |
| MCKEYCAR | GETMED+9~, GETMED+24! |
| MSG | COMMENT~, COMMENT+5 |
| ND | GUIC+7!, COMMENT~, COMMENT+5, SENDCOMT+15 |
| ND1 | SENDCOMT~, SENDCOMT+4*, SENDCOMT+7*, SENDCOMT+8*, SENDCOMT+9*, SENDCOMT+12*, SENDCOMT+14*, SENDCOMT+15*, SENDCOMT+16* |
| NDX | GUIC+7!, SENDCOMT+1~, SENDCOMT+2*, SENDCOMT+3*, SENDCOMT+5*, SENDCOMT+6, SENDCOMT+8, SENDCOMT+12*, SENDCOMT+13, SENDCOMT+15 |
| NDY | SENDCOMT+1~, SENDCOMT+7*, SENDCOMT+8*, SENDCOMT+15* |
| ORDG | GUIC+4! |
| PROC | GETMED+8~, GETMED+10*, GETMED+11, GETMED+12, CANDOMED+2~, CANDOMED+4*, CANDOMED+6 |
| RES | GETRES+9~, GETRES+10*, GETRES+11*, GETRES+13, GETRES+18 |
| RES0 | GETRES+12~, GETRES+13*, GETRES+14, GETRES+15, GETRES+17 |
| RMBED | GUIC+4! |
| ROOT | GETMED+8~, GETMED+12*, GETMED+13, GETMED+14, GETMED+19, GETMED+20, GETMED+22 |
| S5 | GETMED+8~, GETMED+14* |
| SENDR | SENDCOMT+1~, SENDCOMT+2*, SENDCOMT+6*, SENDCOMT+7, SENDCOMT+13*, SENDCOMT+14 |
| TYPE | SENDCOMT+1~, SENDCOMT+3* |
| TYPE( | SENDCOMT+3* |
| TYPE(19 | SENDCOMT+4, SENDCOMT+5 |
| TYPE(20 | SENDCOMT+12 |
| U | COMMENT+7, GETMED+10, GETMED+12, GETMED+14, GETMED+19, GETMED+20, GETMED+22, GETRES+18, GETRES+19, GETRES+20 , CANDOMED+4, CANDOMED+6 |
| USER | CANDOMED~ |
| VISIT | GUIC+4! |
| X | SETDA+1~, SETDA+2*, SETDA+3*, SETDA+4*, SETDA+5*, SETDA+6*, SETDA+7*, SETDA+8*, SETDA+9*, SETDA+11* , SETDA+12*, SETDA+13*, SETDA+15*, SETDA+16*, SETDA+17 |
| XQAKILL | GUIC+8! |
| Y | COMMENT+1~, COMMENT+4* |