| 1 | RMPRPCEP ;HCIOFO/RVD - Prosthetics/PCE DELETE 06/6/01
|
|---|
| 2 | ;;3.0;PROSTHETICS;**62**;Feb 09, 1996
|
|---|
| 3 | ;
|
|---|
| 4 | ; This routine contains the code for deleting a Prosthetic visit in PCE.
|
|---|
| 5 | ;
|
|---|
| 6 | ;DBIA #1889-B - this API is used to delete data from the VISIT file
|
|---|
| 7 | ; (9000010) and V files from PCE module
|
|---|
| 8 | ;
|
|---|
| 9 | PCED(RMIE60) ;delete PCE visit.
|
|---|
| 10 | D NEWVAR
|
|---|
| 11 | S (RMLOCK,RMERR)=0
|
|---|
| 12 | S RMSRC="PROSTHETICS DATA"
|
|---|
| 13 | S RMPKG=$O(^DIC(9.4,"B","PROSTHETICS",0))
|
|---|
| 14 | I 'RMPKG S RMERR=-1 G DELX
|
|---|
| 15 | ;
|
|---|
| 16 | ; get PCE IEn from file #660.
|
|---|
| 17 | S RMPCE=$P($G(^RMPR(660,RMIE60,10)),U,12)
|
|---|
| 18 | I 'RMPCE S RMERR=-1 G DELX
|
|---|
| 19 | ;
|
|---|
| 20 | ; Remove all workload data from the PCE visit file & related V files.
|
|---|
| 21 | ; check if the visit is already in PCE and remove workload,
|
|---|
| 22 | ; (sending RMPKG and RMSRC to ensure that only data that originally
|
|---|
| 23 | ; came from PROSTHETICS will be removed).
|
|---|
| 24 | ;
|
|---|
| 25 | S RMCHK=$$DELVFILE^PXAPI("ALL",.RMPCE,RMPKG,RMSRC,0,0,"")
|
|---|
| 26 | I RMCHK'=1 W !!,"*** Error in deleting PCE visit !!",! S RMERR=-1
|
|---|
| 27 | ;
|
|---|
| 28 | DELX ;exit
|
|---|
| 29 | Q RMERR
|
|---|
| 30 | ;
|
|---|
| 31 | NEWVAR ; new variables
|
|---|
| 32 | N RMCHK,RMPKG,RMSRC,RMPCE
|
|---|
| 33 | Q
|
|---|
