GMRCADG ;ABV/PIJ - Consults Report by Released by Policy. Patch GMRC*3.0*107 ;7/5/18 07:36
Source file <GMRCADG.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Consult Request Tracking | 1 | GMRC RPT ADMIN REL CONS GROUPR |
| Electronic Health Modernization | 1 | EHM-00050 |
| Kernel | 1 | ^DIC(19 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; -- main entry point for GMRC RPT ADMIN RELEASE CONSULT GROUPER
|
|
| EN1 | ;Ask for date range
|
|
| HDR | ; -- header code
|
|
| BLDLIST | ; -- init variables and list array
|
|
| FWD() | ;Check if the consult was forwarded from a consult service -DS or -ADMIN
|
|
| INIT | ;
|
|
| VALM10(LINEVAR) | ;
|
|
| HELP | ; -- help code
|
|
| EXIT | ; -- exit code
|
|
| EXPND | ; -- expand code
|
|
| DTRES | ;Restore old date in case user '^' out.
|
| Name | Field # of Occurrence |
|---|---|
| $$GET1^DIQ | BLDLIST+15, BLDLIST+31, FWD+2 |
| GETS^DIQ | FWD+4 |
| ^DIR | EN1+3, EN1+10 |
| LISTDATE^GMRCSTU1 | EN1+17 |
| EN^VALM | EN+4 |
| $$SETFLD^VALM1 | INIT+22, INIT+26, INIT+31, INIT+34, INIT+40, INIT+43 |
| SET^VALM10 | INIT+49, VALM10+2 |
| $$SITE^VASITE | HDR+2 |
| $$FMTE^XLFDT | EN1+6, EN1+14 |
| DISP^XQORM1 | HELP+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^OR(100 - [#100] | GET1^DIQ |
| 100.001 | GET1^DIQ |
| 100.008 | GET1^DIQ |
| ^GMR(123 - [#123] | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR(123.1 - [#123.1] | BLDLIST+4 |
| ^OR(100 - [#100] | BLDLIST+9, BLDLIST+12 |
| ^TMP("GMRCADG" | BLDLIST+7!, BLDLIST+23*, BLDLIST+24*, BLDLIST+27*, BLDLIST+28*, BLDLIST+32*, BLDLIST+33*, INIT+20, INIT+24, INIT+30 , INIT+33, INIT+39, INIT+42, INIT+53! |
| ^TMP("VALMAR" | INIT+1!, EXIT+1! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADMINDS | INIT+14~, INIT+17*, INIT+19*, INIT+20*, INIT+22, INIT+24, INIT+30, INIT+33, INIT+39, INIT+42 |
| ARR | FWD+1~ |
| ARR( | FWD+5, FWD+6, FWD+7, FWD+9, FWD+10 |
| DIR | EN1+8!, INIT+2~ |
| DIR("A" | EN1+2*, EN1+9* |
| DIR(0 | EN1+2*, EN1+9* |
| DIRUT | INIT+2~ |
| DTOUT | EN1+4, EN1+11, INIT+2~ |
| DUOUT | EN1+4, EN1+11, INIT+2~ |
| FMRELDT | BLDLIST+1~, BLDLIST+2*, BLDLIST+9*, BLDLIST+10, BLDLIST+12 |
| FWD1 | BLDLIST+1~, BLDLIST+4*, BLDLIST+5*, FWD+7 |
| FWD2 | BLDLIST+1~, BLDLIST+4*, BLDLIST+5*, FWD+7 |
| GMRCDT1 | EN1+5*, EN1+6, EN1+11!, EN1+12, EN1+17, BLDLIST+10, INIT+3~, INIT+5*, DTRES+1* |
| GMRCDT2 | EN1+13*, EN1+14, EN1+17, BLDLIST+10, INIT+3~, INIT+5*, DTRES+2* |
| GMRCDTS1 | DTRES+1, DTRES+3! |
| GMRCDTS2 | DTRES+2, DTRES+3! |
| GMRCEDT1 | EN+2~, EN1+17, HDR+4, INIT+5* |
| GMRCEDT2 | EN+2~, EN1+17, HDR+4, INIT+5* |
| GMRCQUT | EN1+4*, EN1+11*, INIT+2~, INIT+5*, INIT+10 |
| GMRCSITE | HDR+1~, HDR+2*, HDR+3 |
| I | BLDLIST+1~, BLDLIST+10*, FWD+1~, FWD+6* |
| IEN123 | FWD+1~, FWD+3*, FWD+4, FWD+6 |
| IEN123S | FWD+1~, FWD+6*, FWD+7, FWD+9, FWD+10 |
| IENS | BLDLIST+1~, BLDLIST+13*, BLDLIST+15, BLDLIST+31 |
| L | FWD+1~, FWD+5*, FWD+6 |
| LINE | BLDLIST+1~, INIT+15*, INIT+49, VALM10+1*, VALM10+2, VALM10+3 |
| LINECNT | BLDLIST+3*, INIT+3~, INIT+6*, INIT+15*, INIT+21* |
| LINEVAR | BLDLIST+2*, INIT+17*, INIT+22*, INIT+26*, INIT+27, INIT+31*, INIT+34*, INIT+36, INIT+40*, INIT+43* , INIT+45, INIT+48*, INIT+49, VALM10~, VALM10+2 |
| NUM | INIT+14~, INIT+15*, INIT+24*, INIT+25, INIT+26, INIT+33*, INIT+34, INIT+42*, INIT+43 |
| ORDITEM | BLDLIST+1~, BLDLIST+15*, BLDLIST+18, BLDLIST+19, BLDLIST+27, BLDLIST+28, BLDLIST+32, BLDLIST+33, INIT+14~, INIT+29* , INIT+30*, INIT+31, INIT+33, INIT+39, INIT+42 |
| ORIEN | BLDLIST+1~, BLDLIST+2*, BLDLIST+12*, BLDLIST+13, FWD+2 |
| PACKREF | FWD+1~, FWD+2*, FWD+3 |
| R1 | FWD+1~, FWD+7*, FWD+8 |
| R2 | FWD+1~, FWD+7*, FWD+8 |
| RELBY | BLDLIST+1~, BLDLIST+31*, BLDLIST+32, BLDLIST+33, INIT+14~, INIT+38*, INIT+39*, INIT+40, INIT+42 |
| RET | FWD+1~, FWD+2*, FWD+6, FWD+9*, FWD+10*, FWD+11 |
| TOTAL | INIT+2~, INIT+6*, INIT+25*, INIT+48 |
| U | HDR+2 |
| VALMBCK | EN+2~, INIT+10*, INIT+51* |
| VALMCNT | EN+2~, INIT+6*, VALM10+3* |
| VALMHDR | EN+2~ |
| VALMHDR(1 | HDR+3* |
| VALMHDR(2 | HDR+4* |
| VALMQUIT | EN+2~, INIT+10* |
| X | BLDLIST+1~, BLDLIST+2*, BLDLIST+17*, BLDLIST+18*, BLDLIST+19*, BLDLIST+20*, BLDLIST+23, BLDLIST+24, BLDLIST+27, BLDLIST+28 , BLDLIST+32, BLDLIST+33, INIT+2~, HELP+1* |
| Y | EN1+5, EN1+12, EN1+13, INIT+2~ |