ORQQPL2 ; ALB/PDR/REV/TC - RPCs FOR CPRS GUI IMPLEMENTATION ;03/08/13 08:25
Source file <ORQQPL2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| HIST(RETURN,GMPIFN) | ; GET AUDIT HISTORY
; taken from EN^GMPLDISP |
|
| FLUSH(RETURN,I,ORDT,TXT) | ; FLUSH FORMATTED AUDIT STRING
|
|
| STRIP(VAL) | ; STRIP LEADING SPACES FROM VALUES
|
|
| DELETE(RESULT,GMPIFN,GMPROV,GMPVAMC,REASON) | ; DELETE A PROBLEM
; From GMPL1 - silent version |
|
| REPLACE(RETURN,DA) | ; -- replace problem on patient's list
; taken from REPLACE^GMPLRPTR |
|
| 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 |
|
| INACT(RETURN,GMPIFN) | ; -- inactivate a problem
; RETURN: ;(consistent with UPDATE function) ; SUCCESS: ; RETURN>0, RETURN(0)="" ; FAILURE: ; RETURN<0, RETURN(0)=verbose error message |
|
| OLDCOMM(ORY,PIFN) | ; Return comments for a problem - SINGLE DIVISION!
|
|
| GETCOMM(ORY,PIFN) | ||
| SAVEVIEW(Y,GMPLVIEW) | ; -- save new view in File #200/Field #125
|
|
| NTRTBULL(ORY,ORTERM,ORNP,ORPT,ORCOMM) | ; Send NTRT Request bulletin to CAC mailgroup
|
|
| TESTBULL | ; Test setting up and sending PL NTRT bulletin
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| 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 |
| ORQQPL PROBLEM NTRT BULLETIN | NTRTBULL |
| FileNo | Call Tags |
|---|---|
| ^AUPNPROB - [#9000011] | Classic Fileman Calls |
