©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
ORQQPL2 ; ALB/PDR/REV - RPCs FOR CPRS GUI IMPLEMENTATION ;09:49 AM 29 Feb 2000
Source file <ORQQPL2.m>
| Package | Total | Call Graph |
|---|---|---|
| Problem List | 3 | DT^GMPLHIST NEWNOTE^GMPLSAVE (AUDIT,DTMOD)^GMPLX |
| Kernel | 1 | $$HTFM^XLFDT |
| Toolkit | 1 | ($$GET,ADD,CHG)^XPAR |
| VA Fileman | 1 | ^DIE |
| Package | Total | Caller Graph |
|---|---|---|
| Order Entry Results Reporting | 1 | ORQQPL |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| OLDCOMM(ORY,PIFN) | ; Return comments for a problem - SINGLE DIVISION!
|
|
| FLUSH(RETURN,I) | ; FLUSH FORMATTED AUDIT STRING
|
|
| REPLACE(RETURN,DA) | ; -- replace problem on patient's list
; taken from REPLACE^GMPLRPTR |
|
| INACT(RETURN,GMPIFN) | ; -- inactivate a problem
; RETURN: ;(consistent with UPDATE function) ; SUCCESS: ; RETURN>0, RETURN(0)="" ; FAILURE: ; RETURN<0, RETURN(0)=verbose error message |
|
| STRIP(VAL) | ; STRIP LEADING SPACES FROM VALUES
|
|
| DELETE(RESULT,GMPIFN,GMPROV,GMPVAMC,REASON) | ; DELETE A PROBLEM
; From GMPL1 - silent version |
|
| HIST(RETURN,GMPIFN) | ; GET AUDIT HISTORY
; taken from EN^GMPLDISP |
|
| GETCOMM(ORY,PIFN) | ||
| VERIFY(RETURN,GMPIFN) | ; -- verify a transcribed problem
; RETURN: ;(consistent with UPDATE function) ; SUCCESS: ; RETURN>0, RETURN(0)="" ; FAILURE: ; RETURN<0, RETURN(0)=verbose error message |
|
| SAVEVIEW(Y,GMPLVIEW) | ; -- save new view in File #200/Field #125
|
| Name | Field # of Occurrence |
|---|---|
| ^DIE | REPLACE+7 |
| DT^GMPLHIST | HIST+11 |
| NEWNOTE^GMPLSAVE | DELETE+5 |
| AUDIT^GMPLX | DELETE+10, REPLACE+9, VERIFY+17, INACT+17 |
| DTMOD^GMPLX | DELETE+11, REPLACE+10, VERIFY+18, INACT+18 |
| $$HTFM^XLFDT | DELETE+6, REPLACE+8, VERIFY+7, INACT+7 |
| $$GET^XPAR | SAVEVIEW+5 |
| ADD^XPAR | SAVEVIEW+8 |
| CHG^XPAR | SAVEVIEW+7 |
| RPC Name | Call Tags |
|---|---|
| ORQQPL DELETE | DELETE |
| ORQQPL AUDIT HIST | HIST |
| ORQQPL REPLACE | REPLACE |
| ORQQPL VERIFY | VERIFY |
| ORQQPL PROB COMMENTS | GETCOMM |
| ORQQPL INACTIVATE | INACT |
| ORQQPL SAVEVIEW | SAVEVIEW |
| FileNo | Call Tags |
|---|---|
| ^AUPNPROB - [#9000011] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNPROB - [#9000011] | DELETE+8*, REPLACE+3, VERIFY+8, VERIFY+11, VERIFY+15*, VERIFY+19, INACT+8, INACT+11, INACT+15*, INACT+19 , GETCOMM+3, GETCOMM+5, GETCOMM+6, GETCOMM+7 |
| ^GMPL(125.8 - [#125.8] | HIST+4, HIST+8, HIST+10 |
| ^VA(200 - [#200] | SAVEVIEW+3, SAVEVIEW+4* |
| Name | Line Occurrences |
|---|---|
| $$STRIP | HIST+19, HIST+20, FLUSH+2 |
| FLUSH | HIST+17, HIST+22 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AIFN | HIST+2~, HIST+9*, HIST+10* |
| CHNGE | DELETE+2~, DELETE+6*, DELETE+7*, DELETE+10, REPLACE+2~, REPLACE+8*, REPLACE+9, VERIFY+6~, VERIFY+16*, VERIFY+17 , INACT+6~, INACT+16*, INACT+17 |
| DA | REPLACE~, REPLACE+3, REPLACE+8, REPLACE+10 |
| DIE | REPLACE+2~, REPLACE+6* |
| DR | REPLACE+2~, REPLACE+5* |
| DUZ | DELETE+7, REPLACE+8, VERIFY+16, INACT+16, SAVEVIEW+3, SAVEVIEW+4, SAVEVIEW+5, SAVEVIEW+7, SAVEVIEW+8 |
| FAC | GETCOMM+1~, GETCOMM+2*, GETCOMM+3*, GETCOMM+5, GETCOMM+6, GETCOMM+7 |
| GMPDT | HIST+2~ |
| GMPDT( | HIST+14, HIST+15 |
| GMPFLD | DELETE+12! |
| GMPFLD(10 | DELETE+4* |
| GMPIFN | HIST~, HIST+4, HIST+8, HIST+10, DELETE~, DELETE+6, DELETE+8, DELETE+11, VERIFY~, VERIFY+8 , VERIFY+11, VERIFY+15, VERIFY+16, VERIFY+18, VERIFY+19, INACT~, INACT+8, INACT+11, INACT+15, INACT+16 , INACT+18, INACT+19 |
| GMPLVIEW | SAVEVIEW~, SAVEVIEW+2, SAVEVIEW+4, SAVEVIEW+7, SAVEVIEW+8 |
| GMPROV | DELETE~, DELETE+7 |
| GMPVAMC | DELETE~ |
| I | HIST+2~, HIST+13*, HIST+17, HIST+21, HIST+22, FLUSH~, FLUSH+1, FLUSH+2, FLUSH+3* |
| IDT | HIST+2~, HIST+7*, HIST+8*, HIST+10 |
| J | STRIP+1~, STRIP+2*, STRIP+3 |
| L | HIST+2~, HIST+15*, HIST+16, HIST+18, HIST+19, HIST+20 |
| LCNT | HIST+2~, HIST+3* |
| NIFN | GETCOMM+1~, GETCOMM+4*, GETCOMM+5*, GETCOMM+6, GETCOMM+7 |
| NOTE | GETCOMM+1~, GETCOMM+7*, GETCOMM+8 |
| NOTECNT | GETCOMM+1~, GETCOMM+2*, GETCOMM+8* |
| NOW | VERIFY+6~, VERIFY+7*, VERIFY+16, INACT+6~, INACT+7*, INACT+16 |
| ORDT | HIST+2~, HIST+18*, FLUSH+2 |
| ORY | OLDCOMM~, GETCOMM~ |
| ORY( | GETCOMM+8* |
| PIFN | OLDCOMM~, GETCOMM~, GETCOMM+3, GETCOMM+5, GETCOMM+6, GETCOMM+7 |
| REASON | DELETE~, DELETE+3, DELETE+4 |
| RESULT | DELETE~, DELETE+9* |
| RETURN | HIST~, HIST+17, HIST+22, FLUSH~, REPLACE~, REPLACE+4*, REPLACE+11*, VERIFY~, VERIFY+9*, VERIFY+13* , VERIFY+20*, INACT~, INACT+9*, INACT+13*, INACT+20* |
| RETURN( | FLUSH+2* |
| RETURN(0 | HIST+5*, HIST+21*, VERIFY+10*, VERIFY+14*, VERIFY+21*, INACT+10*, INACT+14*, INACT+21* |
| S | HIST+2~, HIST+13*, HIST+14*, HIST+15 |
| TMP | SAVEVIEW+1~, SAVEVIEW+3*, SAVEVIEW+4, SAVEVIEW+5*, SAVEVIEW+6 |
| TXT | HIST+2~, HIST+13*, HIST+19*, HIST+20*, FLUSH+2 |
| U | FLUSH+2, DELETE+7, DELETE+8, REPLACE+3, REPLACE+8, VERIFY+8, VERIFY+15, VERIFY+16, INACT+8, INACT+15 , INACT+16, GETCOMM+6, GETCOMM+7, SAVEVIEW+3, SAVEVIEW+4, SAVEVIEW+7, SAVEVIEW+8 |
| VAL | STRIP~, STRIP+2, STRIP+3 |
| Y | SAVEVIEW~ |