©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
GMRCPC ;SLC/DCM,dee,MA - List Manager Routine: Collect and display consults by service and status ;23-Sep-2011 09:17;PLS
Source file <GMRCPC.m>
| Package | Total | Caller Graph |
|---|---|---|
| Consult Request Tracking | 6 | GMRC PRINT RPT NUMBERED GMRC RPT COMPLETE CONSULTS GMRC RPT COMPLETE/PENDING GMRC RPT PENDING CONSULTS GMRCPC1 GMRCSTLM |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;GMRC List Manager Routine -- main entry point for GMRC PENDING CONSULTS
|
|
| HDR | ; -- header code
|
|
| PRNTONLY(GMRCCTRL) | ;Option to just send the report to a device.
|
|
| CWIDTH(GMRCCTRL) | ;Prints a message about how wide the report is.
|
|
| PWIDTH(GMRCCTRL) | ;Prints a message about how wide the report is.
|
|
| EXPND | ; -- expand code
|
|
| PRNTQ | ;Print Queued report from ^TMP global then kill off ^TMP & ^XTMP
|
|
| INIT | ; -- init variables and list array
|
|
| EXIT | ; -- exit code
|
|
| HELP | ; -- help code
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR(123.5 - [#123.5] | EN+2, EN+4, EN+5 |
| ^TMP("GMRCR" | EXIT+4!, PRNTQ+6, PRNTQ+7! |
| ^TMP("GMRCRINDEX" | EXIT+4! |
| ^TMP("GMRCS" | EXIT+4! |
| ^TMP("GMRCSLIST" | EN+15, EXIT+4!, PRNTONLY+10 |
| ^TMP("GMRCTOT" | EXIT+4! |
| ^XTMP("GMRCR" | PRNTQ+7! |
| Name | Line Occurrences |
|---|---|
| $$CWIDTH | PWIDTH+1 |
| EXIT | EN+2, EN+13, EN+15, PRNTONLY+5, PRNTONLY+8, PRNTONLY+10, PRNTONLY+15, PRNTONLY+24, PRNTQ+9 |
| PWIDTH | PRNTONLY+12 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CNT | EXIT+1! |
| CTRLCOL | EXIT+1! |
| DOLLARH | PRNTQ+7! |
| GMRCARRN | EXIT+3! |
| GMRCCOMP | EXIT+1! |
| GMRCCT | HDR+1, EXIT+1! |
| GMRCCTRL | HDR+4, EXIT+3!, CWIDTH~, CWIDTH+3, CWIDTH+4, CWIDTH+6, PWIDTH~, PWIDTH+1, PRNTONLY~, PRNTONLY+11* , PRNTONLY+12, PRNTONLY+21, PRNTQ+3 |
| GMRCDG | EN+7*, PRNTONLY+1~, PRNTONLY+21, PRNTQ+3 |
| GMRCDT1 | EN+9*, EN+11, PRNTONLY+2~, PRNTONLY+21, PRNTQ+3 |
| GMRCDT2 | EN+10*, EN+11, PRNTONLY+2~, PRNTONLY+21, PRNTQ+3 |
| >> GMRCEACT | EN+2, EN+3 |
| GMRCEDT1 | EN+11, HDR+3, EXIT+2!, PRNTONLY+2~ |
| GMRCEDT2 | EN+11, HDR+3, EXIT+2!, PRNTONLY+2~ |
| GMRCHEAD | HDR+2, EXIT+3! |
| GMRCQUT | EN+13, EN+15*, HDR+1, EXIT+1!, PRNTONLY+1~, PRNTONLY+5, PRNTONLY+8, PRNTONLY+10*, PRNTONLY+15 |
| GMRCSTAT | EXIT+3!, PRNTONLY+1~, PRNTONLY+4*, PRNTONLY+21, PRNTQ+3 |
| GMRCSVC | EN+1!, EN+2, EN+4*, EN+5, EN+7, EN+13, EXIT+1! |
| GMRCSVCP | EN+1!, EN+3*, EN+4, EXIT+1! |
| GMRCSVNM | EXIT+2! |
| GMRTST | EXIT+2!, PRNTONLY+21, PRNTQ+3 |
| INDEX | PRNTQ+2~, PRNTQ+5*, PRNTQ+6* |
| IO | PRNTQ+4 |
| IO("Q" | PRNTONLY+17 |
| J | PRNTQ+7! |
| RETURN | PRNTONLY+1~, PRNTONLY+21, PRNTQ+2~, PRNTQ+3 |
| >> TMPNAME | PRNTQ+6, PRNTQ+7 |
| VALMBCK | PRNTONLY+1~ |
| >> VALMCAP | HDR+4* |
| VALMHDR | EXIT+1! |
| VALMHDR(1 | HDR+2* |
| VALMHDR(2 | HDR+3* |
| WIDTH | CWIDTH+1~, CWIDTH+2*, CWIDTH+4*, CWIDTH+5*, CWIDTH+6*, CWIDTH+7 |
| >> X | HELP+1* |
| >> ZTSAVE("GMRCCTRL" | PRNTONLY+19* |
| >> ZTSAVE("GMRCSTAT" | PRNTONLY+18* |