©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
GMRCSLM1 ;SLC/DCM - Gather data and format ^TMP global for consult tracking Silent call for use by List Manager and GUI ;10/9/01 23:12
Source file <GMRCSLM1.m>
| Package | Total | Call Graph |
|---|---|---|
| Consult Request Tracking | 3 | SERV1^GMRCASV ($$PROC,$$SVC)^GMRCAU REGDTM^GMRCU |
| Kernel | 2 | $$FMTE^XLFDT $$UP^XLFSTR |
| VA Fileman | 1 | $$GET1^DIQ |
| Package | Total | Caller Graph |
|---|---|---|
| Consult Request Tracking | 10 | GMRCALOR GMRCAR GMRCCPRS GMRCMCP GMRCPX GMRCR GMRCSLM GMRCSLMA GMRCSSP GMRCSTAT |
| Order Entry Results Reporting | 4 | ORCHTAB1 ORQQCN ORQQCN1 ORWCS |
| IHS Electronic Health Record | 1 | BEHOCNCV |
| Registration | 1 | DGHTENR |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SET | ;;Format entries into a word processing 'TMP("GMRCR",$J,"CS",' global that List Manager can display
|
|
| END | ||
| AD | ;Main entry point. Loop through AD x-ref in file 123; Find consults that have been released to requested service
|
|
| BUILD1 | ;OTXT does contain information
|
|
| OER(DFN,GMRCDG,GMRCDT1,GMRCDT2,GMRCSTCK,GMRCOER) | ;;GUI interface for CPRS
|
|
| SVC(NODE) | ;Check for a valid service
|
|
| BUILD2 | ;OTXT contains no information
|
|
| SERVPROC | ; Build contents of SERV/PROC field for List Manager
|
| FileNo | Call Tags |
|---|---|
| ^GMR(123.3 - [#123.3] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | SET+7 |
| ^GMR(123 - [#123] | SVC+2, SVC+3, SVC+4, AD+12, SET+8, SET+9, SET+16, SET+56, SERVPROC+4 |
| ^GMR(123.5 - [#123.5] | AD+10, SET+33, SET+35, OER+13 |
| ^ORD(100.01 - [#100.01] | SET+40, SET+41, SET+42, SET+43, SET+44, END+2 |
| ^TMP("GMRCR" | AD+9!, SET+27*, SET+47*, SET+62*, END*, END+1*, END+2*, END+4* |
| ^TMP("GMRCS" | SVC+4, OER+16! |
| ^TMP("GMRCSLIST" | OER+16! |
| Name | Line Occurrences |
|---|---|
| $$SVC | AD+12 |
| AD | GMRCSLM1+5, OER+15 |
| BUILD1 | SERVPROC+6 |
| BUILD2 | SERVPROC+5 |
| END | AD+13 |
| SERVPROC | SET+45 |
| SET | AD+12 |
| Name | Field # of Occurrence |
|---|---|
| ^(0 | END+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ABBRP | BUILD1+1~, BUILD1+12*, BUILD1+18 |
| ABBRS | BUILD1+1~, BUILD1+12*, BUILD1+19, BUILD1+20 |
| BADFLG | BUILD1+1~, BUILD1+4*, BUILD1+11*, BUILD1+19, BUILD1+20 |
| >> BLK | AD+11*, SET+26*, SET+27, SET+47, END*, END+4*, END+5* |
| >> CDT | SET+28*, SET+47 |
| DATA | SET+50~, SET+51*, SET+52*, SET+53*, SET+56*, SET+57*, SET+61*, SET+62 |
| DFN | AD+12, SET+7, OER~ |
| END | END+6! |
| FLG | END+6!, BUILD1+1~, BUILD1+5*, BUILD1+6*, BUILD1+9, BUILD1+10, BUILD1+13, BUILD1+14, BUILD1+15, BUILD1+16 , BUILD1+17, BUILD1+18, BUILD1+19, BUILD1+20, BUILD2+1~, BUILD2+3*, BUILD2+4*, BUILD2+5, BUILD2+6, BUILD2+7 |
| >> GMRC(0 | SET+9*, SET+14, SET+21, SET+23, SET+24, SET+29, SET+30, SET+32, SET+39, SET+44* , SET+47, SET+52, SET+53, SET+57, SET+61, END+6! |
| >> GMRC(12 | SET+16*, SET+17, SET+18 |
| >> GMRCALFL | END+5 |
| GMRCCK | SET+11~, SET+12, SET+13*, SET+14*, SET+15, SET+17*, SET+18* |
| GMRCD | AD+12*, END+6! |
| >> GMRCDA | AD+12*, SET+5*, SET+6*, SET+27, SET+47, SET+51, SET+56, SERVPROC+4, BUILD1+12 |
| GMRCDEAV | SVC+1! |
| GMRCDG | AD+10*, END+6!, OER~, OER+13* |
| GMRCDT1 | SET+24, END+1, OER~, OER+12* |
| GMRCDT2 | SET+24, END+1, OER~ |
| GMRCFMDT | SET+24*, SET+51, END+6! |
| GMRCGVER | SET+58~, SET+59*, SET+60 |
| GMRCIFN | SET+5*, SET+6*, SET+8, SET+9, SET+16, END+6! |
| >> GMRCIS | SET+12, SET+17, SET+18 |
| GMRCNPM | END*, END+6! |
| GMRCNUL | AD+9!, END* |
| GMRCOER | AD+11*, SET+25, SET+37, SET+41, SET+42, SET+44, SET+46, SET+49, OER~, OER+14* |
| >> GMRCPRNM | END |
| >> GMRCQUT | SET+8* |
| >> GMRCSEX | SET+7* |
| >> GMRCSS | AD+10* |
| >> GMRCSSNM | AD+10* |
| GMRCSSS | AD+10! |
| GMRCSTCK | SET+19, SET+21, END+2, OER~ |
| >> GMRCVP | SET+23 |
| GMRCWARD | END+6! |
| I | SET+20~, SET+21*, END+2*, END+7! |
| LEN | BUILD1+1~, BUILD1+7*, BUILD1+9, BUILD1+10, BUILD1+13, BUILD1+14, BUILD1+15, BUILD1+16, BUILD1+17, BUILD1+18 , BUILD1+19, BUILD1+20, BUILD2+1~, BUILD2+3*, BUILD2+4* |
| >> LNCT | AD+11*, SET+27, SET+47, SET+48*, SET+62, SET+63*, END*, END+1*, END+2*, END+4* , END+5* |
| NODE | SVC~, SVC+2, SVC+3, SVC+4 |
| >> ORWCLVER | SET+59 |
| OTXT | SERVPROC+1~, SERVPROC+4*, SERVPROC+5, SERVPROC+6, BUILD1+3*, BUILD1+9, BUILD1+10, BUILD1+13, BUILD1+14, BUILD1+15 , BUILD1+16, BUILD1+17, BUILD1+18, BUILD1+19, BUILD1+20 |
| PROC | SET+9*, SET+29*, SET+30*, SET+31*, SET+51, END+7!, BUILD1+2, BUILD1+5, BUILD1+6, BUILD1+13 , BUILD2+2, BUILD2+3, BUILD2+4 |
| STATUS | SET+19~, SET+21* |
| STS | SET+39*, SET+40, SET+41*, SET+42*, SET+43*, SET+44*, SET+47, SET+51, END+2*, END+7! |
| STSOER | SET+64! |
| >> TAB | AD+11*, SET+4*, SET+47, END |
| TITLE | SET+19~, SET+47, SET+53, SERVPROC+2*, BUILD1+3*, BUILD1+7, BUILD1+9*, BUILD1+10*, BUILD1+13*, BUILD1+14* , BUILD1+15*, BUILD1+16*, BUILD1+17*, BUILD1+18*, BUILD1+19*, BUILD1+20*, BUILD2+3*, BUILD2+4*, BUILD2+5*, BUILD2+6* , BUILD2+7* |
| TO | SET+32*, SET+33, SET+35*, SET+36*, SET+37*, SET+38*, SET+51, END+6!, BUILD1+2, BUILD1+8* , BUILD1+9, BUILD1+11, BUILD1+13, BUILD1+14, BUILD1+16, BUILD2+2, BUILD2+3, BUILD2+7 |
| TOD | SET+33*, SET+34*, SET+36, SET+37, END+6! |
| TPROC | BUILD1+1~, BUILD1+2*, BUILD1+13, BUILD1+14, BUILD1+15, BUILD1+18, BUILD2+1~, BUILD2+2*, BUILD2+6, BUILD2+7 |
| TTO | BUILD1+1~, BUILD1+2*, BUILD1+9, BUILD1+10, BUILD1+13, BUILD1+14, BUILD1+15, BUILD1+16, BUILD1+17, BUILD1+18 , BUILD1+19, BUILD1+20, BUILD2+1~, BUILD2+2*, BUILD2+6, BUILD2+7 |
| TYPE | SERVPROC+1~, SERVPROC+3*, BUILD1+5*, BUILD1+6*, BUILD1+9, BUILD1+10, BUILD1+13, BUILD1+14, BUILD1+15, BUILD1+16 , BUILD1+17, BUILD1+18, BUILD1+19, BUILD1+20, BUILD2+3*, BUILD2+4*, BUILD2+5, BUILD2+6, BUILD2+7 |
| U | SET+29, SET+51, SET+52, SET+53, SET+56, SET+57, SET+61 |
| URG | END+7! |
| >> X | SET+24*, SET+28 |
| >> XQADATA | SET+5, SET+6 |