©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
GMRCPR0 ; SLC/DLT - Data Entry Promptint actions ;9/8/98 03:59
Source file <GMRCPR0.m>
| Package | Total | Call Graph |
|---|---|---|
| Consult Request Tracking | 2 | EXAC^GMRCADC SERV^GMRCPS |
| Kernel | 2 | $$UP^XLFSTR EN^XQORM |
| VA Fileman | 2 | ^DIC ^DIR |
| Package | Total | Caller Graph |
|---|---|---|
| Order Entry Results Reporting | 4 | ORCDGMRC ORQQCN1 ORWDCN32 ORY26 |
| Consult Request Tracking | 1 | GMRCIUTL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ASK1 | ||
| ASKTO | ;Ask for service when file link not defined in protocol file
|
|
| TO | ;Get Service from File Link field
|
|
| GETSVC(SLIST,PROC) | ;Get the services that process a procedure type
|
|
| ASK | ;ASK FOR TO, PROCEDURE,URGENCY, AND PLACE OF CONSULT
|
|
| PROC | ;Use XQORM to select procedure
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DISV( | ASK1+9, ASK1+10 |
| ^GMR(123.3 - [#123.3] | GETSVC+5 |
| ^GMR(123.5 - [#123.5] | ASK+1, ASK+2, TO+3, GETSVC+6, GETSVC+7, GETSVC+8, GETSVC+10 |
| ^ORD(100.98 - [#100.98] | TO+4 |
| ^ORD(101 - [#101] | ASK+1, ASK+2, TO+1, PROC+5, PROC+6 |
| ^XUTL("XQORM" | ASK1+10, ASK1+23 |
| Name | Line Occurrences |
|---|---|
| ASKTO | TO+2 |
| PROC | ASK+2 |
| Name | Field # of Occurrence |
|---|---|
| ^( | PROC+5 |
| ^(20 | PROC+6 |
| ^(5 | ASK+1 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| DIC | ASK1+6*!, ASK1+20*, PROC+2* |
| DIC(0 | ASK1+6*, ASK1+20*, PROC+2* |
| DIR | ASK1+2! |
| DIR("A" | ASK1+2* |
| DIR("B" | ASK1+2* |
| DIR(0 | ASK1+2* |
| DIROUT | ASK1+2!, ASK1+13!, ASK1+24!, ASK1+27!, PROC+4! |
| DTOUT | ASK1+2!, ASK1+13!, ASK1+24!, ASK1+27!, PROC+4! |
| DUOUT | ASK1+2!, ASK1+13!, ASK1+24!, ASK1+27!, PROC+4! |
| DUZ | ASK1+9, ASK1+10 |
| >> GMRCDG | ASKTO+1, ASKTO+2 |
| >> GMRCEN | PROC+6* |
| >> GMRCEND | ASK+2, ASK1+2*, ASK1+11, ASK1+13*, ASK1+16, ASK1+24*, ASK1+25, ASK1+27*, TO+2, ASKTO+1* , PROC+1*, PROC+4* |
| >> GMRCIOPT | ASK1*, ASK1+1*, ASK1+2, ASK1+3*, ASK1+4, ASK1+18 |
| GMRCMSG | ASK1+14*! |
| GMRCORSV | ASK+1*!, ASK+2*! |
| >> GMRCPL | ASK1+28* |
| >> GMRCPLI | ASK1+28* |
| >> GMRCPR | ASK+1, ASK+2, PROC+3, PROC+5* |
| >> GMRCPRI | ASK+1*, ASK+2, TO+1, PROC+5*, PROC+6 |
| >> GMRCQUT | PROC+4* |
| >> GMRCSRVC | ASK+1*, ASK+2*, ASK+3* |
| >> GMRCSS | ASK+1, TO+1*, TO+2, TO+3*, ASKTO+2* |
| >> GMRCSSNM | ASK+3, TO+3* |
| >> GMRCTYPE | PROC+6* |
| >> GMRCURG | ASK1+17* |
| GMRCURG1 | ASK1+9*!, ASK1+10*, ASK1+12! |
| >> GMRCURGI | ASK1+17* |
| >> GMRCVP | PROC+5* |
| >> GMRCWARD | ASK1 |
| >> ORTO | TO+4* |
| PROC | GETSVC~, GETSVC+2, GETSVC+5 |
| SCNT | GETSVC+1~, GETSVC+3*, GETSVC+9*, GETSVC+10, GETSVC+12 |
| SLIST | GETSVC~, GETSVC+3*, GETSVC+12* |
| SLIST( | GETSVC+10* |
| SVC | GETSVC+1~, GETSVC+4*, GETSVC+5*, GETSVC+6, GETSVC+7, GETSVC+8, GETSVC+10 |
| U | ASK1+23, GETSVC+7, GETSVC+8, GETSVC+10 |
| >> X | ASK1+4*, ASK1+5*, ASK1+13, ASK1+18*, ASK1+19*, ASK1+24, ASK1+27, PROC+2*, PROC+4, PROC+6* |
| XQORM | ASK1+7*, ASK1+9, ASK1+10, ASK1+21!*, ASK1+23, ASK1+24!, ASK1+27!, ASK1+28!, PROC+1~, PROC+3* , PROC+4! |
| XQORM("??" | ASK1+7*, ASK1+21*, PROC+3* |
| XQORM("A" | ASK1+8*, ASK1+22*, PROC+3* |
| XQORM("B" | ASK1+10*, ASK1+23*, PROC+3* |
| XQORM("NO^^" | ASK1+8*, ASK1+23*, PROC+3* |
| XQORM(0 | ASK1+7*, ASK1+21*, PROC+3* |
| >> Y | ASK1+3, ASK1+6, ASK1+7, ASK1+11, ASK1+14, ASK1+20, ASK1+21, ASK1+25, ASK1+27, PROC+2 , PROC+3 |
| >> Y(1 | ASK1+17, ASK1+28, PROC+5 |