©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
GMRCDRFR ;SLC/JFR - DEFAULT REASON FOR REQUEST UTILS ; 11/12/00 12:00
Source file <GMRCDRFR.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 2 | EN^VALM FULL^VALM1 |
| VA Fileman | 2 | $$GET1^DIQ ^DIR |
| Kernel | 1 | DISP^XQORM1 |
| Text Integration Utility | 1 | BLRPLT^TIUSRVD |
| Package | Total | Caller Graph |
|---|---|---|
| Order Entry Results Reporting | 2 | ORCDGMRC ORQQCN2 |
| Consult Request Tracking | 1 | GMRC TEST DEFAULT REASON |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; -- main entry point for GMRC DEFAULT REASON
|
|
| HDR | ; -- header code
|
|
| SELPROC | ; get a new procedure
|
|
| SELSS | ; get new service
|
|
| REAF(GMRCOI) | ;return value of RESTRICT DEFAULT REASON EDIT field to CPRS
|
|
| EXPND | ; -- expand code
|
|
| GETDEF(GMRCARR,GMRCSRV,GMRCDFN,RESOLV) | ; return default reason for request
; GMRCARR = array to return containing default RFR ; GMRCSRV = reference to file 123.5 (#;99CON) or file 123.3 (#;99PRC) ; GMRCDFN = patient identifier if to return resolved ; RESOLV = 1 or 0 ; if RESOLV=1 GMRCARR will be returned resolved |
|
| INIT | ; -- init variables and list array
|
|
| EXIT | ; -- exit code
|
|
| SELPT | ;get new patient
|
|
| HELP | ; -- help code
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR( | GETDEF+8, GETDEF+10, GETDEF+11, REAF+10, REAF+11, REAF+12 |
| ^GMR(123.3 - [#123.3] | HDR+1 |
| ^GMR(123.5 - [#123.5] | HDR+2 |
| ^TMP("GMRCRFR" | SELPT+6!, SELSS+8!, SELPROC+9!, INIT+1, INIT+2, INIT+3, INIT+4*, INIT+5 |
| ^TMP("TIUBOIL" | GETDEF+12, GETDEF+13! |
| Name | Line Occurrences |
|---|---|
| GETDEF | INIT+2 |
| INIT | EN+8 |
| SELPROC | EN+6 |
| SELPT | EN+7 |
| SELSS | EN+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIR | EN+1~, SELPT+1~, SELSS+1~, SELPROC+2~ |
| DIR("A" | EN+3*, SELSS+4*, SELPROC+5* |
| DIR(0 | EN+2*, SELPT+3*, SELSS+4*, SELPROC+5* |
| DIROUT | EN+1~ |
| DIRUT | EN+1~, EN+4, SELPT+1~, SELPT+4, SELSS+1~, SELSS+6, SELPROC+2~, SELPROC+7 |
| DTOUT | EN+1~, SELPT+1~, SELSS+1~, SELPROC+2~ |
| DUOUT | EN+1~, SELPT+1~, SELSS+1~, SELPROC+2~ |
| FILE | REAF+8~, REAF+9*, REAF+10, REAF+11, REAF+12 |
| GMRCARR | GETDEF~, GETDEF+10, GETDEF+12 |
| GMRCDFN | EN+1~, GETDEF~, GETDEF+9, GETDEF+11 |
| GMRCFIL | GETDEF+6~, GETDEF+7*, GETDEF+8, GETDEF+10, GETDEF+11 |
| GMRCOI | REAF~, REAF+9, REAF+10, REAF+11, REAF+12 |
| GMRCPAT | EN+7, SELPT+5*, HDR+3, INIT+2, EXIT+1! |
| GMRCPROC | EN+6, SELSS+3!, SELPROC+4!, SELPROC+8*, HDR+1, INIT+2, EXIT+1! |
| GMRCSRV | GETDEF~, GETDEF+5, GETDEF+7, GETDEF+8, GETDEF+10, GETDEF+11 |
| GMRCSV | EN+1~, EN+5, SELSS+3!, SELSS+7*, SELPROC+4!, HDR+2, INIT+2, EXIT+1! |
| RESOLV | GETDEF~, GETDEF+9 |
| U | HDR+1, HDR+2, REAF+11, REAF+12 |
| >> VALMBG | INIT+6* |
| >> VALMCNT | INIT+5* |
| >> VALMHDR(1 | HDR+1*, HDR+2* |
| >> VALMHDR(2 | HDR+3* |
| X | EN+1~, SELPT+1~, SELSS+1~, SELPROC+2~, HELP+1* |
| Y | EN+1~, EN+5, EN+6, SELPT+1~, SELPT+5, SELSS+1~, SELSS+7, SELPROC+2~, SELPROC+8 |