34 lines
1023 B
Mathematica
34 lines
1023 B
Mathematica
|
RMPRPCEP ;HCIOFO/RVD - Prosthetics/PCE DELETE 06/6/01
|
||
|
|
;;3.0;PROSTHETICS;**62**;Feb 09, 1996
|
||
|
|
;
|
||
|
|
; This routine contains the code for deleting a Prosthetic visit in PCE.
|
||
|
|
;
|
||
|
|
;DBIA #1889-B - this API is used to delete data from the VISIT file
|
||
|
|
; (9000010) and V files from PCE module
|
||
|
|
;
|
||
|
|
PCED(RMIE60) ;delete PCE visit.
|
||
|
|
D NEWVAR
|
||
|
|
S (RMLOCK,RMERR)=0
|
||
|
|
S RMSRC="PROSTHETICS DATA"
|
||
|
|
S RMPKG=$O(^DIC(9.4,"B","PROSTHETICS",0))
|
||
|
|
I 'RMPKG S RMERR=-1 G DELX
|
||
|
|
;
|
||
|
|
; get PCE IEn from file #660.
|
||
|
|
S RMPCE=$P($G(^RMPR(660,RMIE60,10)),U,12)
|
||
|
|
I 'RMPCE S RMERR=-1 G DELX
|
||
|
|
;
|
||
|
|
; Remove all workload data from the PCE visit file & related V files.
|
||
|
|
; check if the visit is already in PCE and remove workload,
|
||
|
|
; (sending RMPKG and RMSRC to ensure that only data that originally
|
||
|
|
; came from PROSTHETICS will be removed).
|
||
|
|
;
|
||
|
|
S RMCHK=$$DELVFILE^PXAPI("ALL",.RMPCE,RMPKG,RMSRC,0,0,"")
|
||
|
|
I RMCHK'=1 W !!,"*** Error in deleting PCE visit !!",! S RMERR=-1
|
||
|
|
;
|
||
|
|
DELX ;exit
|
||
|
|
Q RMERR
|
||
|
|
;
|
||
|
|
NEWVAR ; new variables
|
||
|
|
N RMCHK,RMPKG,RMSRC,RMPCE
|
||
|
|
Q
|