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 |