©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
ORQQCN1 ; slc/REV - Functions for GUI consult actions - RPCs for GMRCGUIA ; 8-NOV-2000 14:49:16 [1/9/01 10:39am]
Source file <ORQQCN1.m>
| Package | Total | Call Graph |
|---|---|---|
| Consult Request Tracking | 8 | CPRS^GMRCACTM $$EDRESOK^GMRCEDT2 ($$DC,$$FR,$$RC)^GMRCGUIA DOCLIST^GMRCGUIB (FILE,SEND)^GMRCGUIC GETSVC^GMRCPR0 OER^GMRCSLM1 $$ORIFN^GMRCUTL1 |
| Text Integration Utility | 2 | ($$HASDAD,$$HASKIDS,SETDAD,SETKIDS)^TIUSRVLI $$RESOLVE^TIUSRVLO |
| Kernel | 1 | $$PATCH^XPDUTL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| FINDCSLT(Y,GMRCIEN) | ; Return list item for the selected consult only
|
|
| PROCSVCS(ORY,ORDITM) | ; Return a list of services for a procedure
|
|
| CANEDIT(Y,GMRCO) | ; Return whether consult can be edited and resubmitted
|
|
| RESUBMIT(Y,GMRCO,OREDITED) | ; Edit/Resubmit a cancelled consult/procedure request
|
|
| FR(Y,GMRCO,GMRCSS,GMRCORNP,GMRCATTN,GMRCURGI,ORDATE,ORCOM) | ;Forward consult/request to another service
|
|
| SETACTM(Y,GMRCO) | ;set action menus in GUI based on service of selected consult
|
|
| URG(Y,GMRCO) | ;new urgency from 101.42
|
|
| GETORDER(Y,GMRCO) | ; Return OERR order number for consult/procedure
|
|
| DC(Y,GMRCO,GMRCORNP,GMRCAD,GMRCACTM,ORCOM) | ;Discontinue or Deny a consult
|
|
| EDITLOAD(Y,GMRCO) | ; Load a cancelled consult/procedure for editing
|
|
| RC(Y,GMRCO,GMRCORNP,GMRCAD,ORCOM) | ;Receive the consult into the service
|
|
| GETCSLT(ORY,ORIEN,SHOWADD) | ||
| PROCIEN(ORY,ORDITM) | ; Return pointer to file 123.3 given orderable item
|
| Name | Field # of Occurrence |
|---|---|
| CPRS^GMRCACTM | SETACTM+4 |
| $$EDRESOK^GMRCEDT2 | CANEDIT+1 |
| $$DC^GMRCGUIA | DC+8 |
| $$FR^GMRCGUIA | FR+9 |
| $$RC^GMRCGUIA | RC+8 |
| DOCLIST^GMRCGUIB | GETCSLT+6, GETCSLT+7 |
| FILE^GMRCGUIC | RESUBMIT+4 |
| SEND^GMRCGUIC | EDITLOAD+4 |
| GETSVC^GMRCPR0 | PROCSVCS+3 |
| OER^GMRCSLM1 | FINDCSLT+6 |
| $$ORIFN^GMRCUTL1 | GETORDER+2 |
| $$HASDAD^TIUSRVLI | GETCSLT+21 |
| $$HASKIDS^TIUSRVLI | GETCSLT+22 |
| SETDAD^TIUSRVLI | GETCSLT+21 |
| SETKIDS^TIUSRVLI | GETCSLT+22 |
| $$RESOLVE^TIUSRVLO | GETCSLT+17 |
| $$PATCH^XPDUTL | GETCSLT+5 |
| RPC Name | Call Tags |
|---|---|
| ORQQCN RECEIVE | RC |
| ORQQCN DISCONTINUE | DC |
| ORQQCN FORWARD | FR |
| ORQQCN SET ACT MENUS | SETACTM |
| ORQQCN URGENCIES | URG |
| ORQQCN GET CONSULT | GETCSLT |
| ORQQCN FIND CONSULT | FINDCSLT |
| ORQQCN GET PROC SVCS | PROCSVCS |
| ORQQCN GET ORDER NUMBER | GETORDER |
| ORQQCN RESUBMIT | RESUBMIT |
| ORQQCN LOAD FOR EDIT | EDITLOAD |
| ORQQCN CANEDIT | CANEDIT |
| ORQQCN GET PROC IEN | PROCIEN |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^GMR(123 - [#123] | URG+5, URG+6, GETCSLT+4, FINDCSLT+3 |
| ^ORD(101 - [#101] | URG+3, URG+4, URG+11 |
| ^ORD(101.42 - [#101.42] | URG+10 |
| ^ORD(101.43 - [#101.43] | PROCIEN+1, PROCSVCS+2 |
| ^TMP("GMRCR" | FINDCSLT+7, FINDCSLT+8, FINDCSLT+9!, RESUBMIT+2, EDITLOAD+3 |
| ^VA(200 - [#200] | GETCSLT+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| GMRCACTM | DC~, DC+8 |
| GMRCAD | RC~, RC+8, DC~, DC+8 |
| GMRCATTN | FR~, FR+8*, FR+9 |
| GMRCCSLT | URG+2~, URG+3*, URG+7 |
| GMRCIEN | FINDCSLT~, FINDCSLT+2, FINDCSLT+3, FINDCSLT+8 |
| GMRCO | RC~, RC+8, DC~, DC+8, FR~, FR+9, SETACTM~, SETACTM+1, SETACTM+4, SETACTM+5 , SETACTM+6, URG~, URG+1, URG+5, URG+6, GETORDER~, GETORDER+1, GETORDER+2, CANEDIT~, CANEDIT+1 , RESUBMIT~, RESUBMIT+4, EDITLOAD~, EDITLOAD+1, EDITLOAD+4 |
| GMRCOER | FINDCSLT+1~, FINDCSLT+5*, FINDCSLT+6 |
| GMRCORNP | RC~, RC+8, DC~, DC+8, FR~, FR+9 |
| GMRCPROC | URG+2~, URG+4* |
| GMRCPROT | URG+2~, URG+11*, URG+12 |
| GMRCSS | FR~, FR+9 |
| GMRCTYPE | URG+2~, URG+5*, URG+7 |
| GMRCURG | URG+2~, URG+9*, URG+10*, URG+11, URG+12 |
| GMRCURGI | FR~, FR+9 |
| I | URG+10*, URG+12, GETCSLT+1~, GETCSLT+11*, GETCSLT+17, GETCSLT+18*, GETCSLT+21*, GETCSLT+22*, GETCSLT+24, GETCSLT+25* , EDITLOAD+2~, EDITLOAD+3* |
| MEDRSLTS | GETCSLT+1~, GETCSLT+2*, GETCSLT+6 |
| ORCOM | RC~, RC+8, DC~, DC+8, FR~, FR+9 |
| ORDATE | FR~, FR+9 |
| ORDITM | PROCIEN~, PROCIEN+1, PROCSVCS~, PROCSVCS+2 |
| ORDOC | GETCSLT+1~, GETCSLT+13*, GETCSLT+14, GETCSLT+15, GETCSLT+17, GETCSLT+19, GETCSLT+21, GETCSLT+22 |
| OREDITED | RESUBMIT~, RESUBMIT+3 |
| ORFLG | SETACTM+2~ |
| ORFLG( | SETACTM+5, SETACTM+6 |
| ORGMRC | GETCSLT+1~, GETCSLT+6, GETCSLT+7 |
| ORGMRC(0 | GETCSLT+8 |
| ORGMRC(50 | GETCSLT+12, GETCSLT+13, GETCSLT+24 |
| ORI | GETCSLT+1~, GETCSLT+11*, GETCSLT+19, GETCSLT+21*, GETCSLT+22* |
| ORIEN | GETCSLT~, GETCSLT+3, GETCSLT+4, GETCSLT+6, GETCSLT+7 |
| ORNODE | RESUBMIT+1~, RESUBMIT+2*, RESUBMIT+3, RESUBMIT+4, EDITLOAD+2~, EDITLOAD+3*, EDITLOAD+4, EDITLOAD+5 |
| ORPT | FINDCSLT+1~, FINDCSLT+4*, FINDCSLT+6 |
| ORREQ | GETCSLT+1~, GETCSLT+8*, GETCSLT+10 |
| ORY | GETCSLT~, PROCIEN~, PROCIEN+1*, PROCSVCS~, PROCSVCS+3 |
| ORY( | GETCSLT+17*, GETCSLT+18*, GETCSLT+24*, GETCSLT+25* |
| ORY("INDX" | GETCSLT+19*, GETCSLT+26! |
| ORY(0 | GETCSLT+4*, GETCSLT+8*, GETCSLT+10* |
| PROCIEN | PROCSVCS+1~, PROCSVCS+2*, PROCSVCS+3 |
| ROOT | GETCSLT+1~, GETCSLT+14*, GETCSLT+15, GETCSLT+16, GETCSLT+23 |
| SEQ | FINDCSLT+1~, FINDCSLT+5*, FINDCSLT+7*, FINDCSLT+8 |
| SEQ0 | FINDCSLT+1~, FINDCSLT+8* |
| SEQUENCE | GETCSLT+1~, GETCSLT+9* |
| SHOWADD | GETCSLT~, GETCSLT+9, GETCSLT+20 |
| U | URG+12, GETCSLT+8, GETCSLT+10, GETCSLT+13, GETCSLT+14, GETCSLT+17, GETCSLT+18, GETCSLT+25, FINDCSLT+4, FINDCSLT+8 , PROCIEN+1, PROCSVCS+2 |
| X | URG+2~, URG+7*, URG+8*, URG+10, GETCSLT+1~, GETCSLT+11*, GETCSLT+12*, GETCSLT+13, GETCSLT+24 |
| X0 | FINDCSLT+1~, FINDCSLT+3*, FINDCSLT+4 |
| Y | RC~, RC+8*, DC~, DC+8*, FR~, FR+9*, SETACTM~, SETACTM+3*, SETACTM+6*, URG~ , FINDCSLT~, FINDCSLT+3*, FINDCSLT+4*, FINDCSLT+8*, GETORDER~, GETORDER+1*, GETORDER+2*, CANEDIT~, CANEDIT+1*, RESUBMIT~ , RESUBMIT+5*, EDITLOAD~, EDITLOAD+5* |
| Y( | URG+12* |