Changeset 636 for FOIAVistA/tag/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRPIYF.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• PROSTHETICS-RMPR-RMPO-RMPS/RMPRPIYF.m (modified) (2 diffs)

FOIAVistA/tag/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRPIYF.m

@@ -1 +1 @@
 RMPRPIYF ;PHX/RFM,RVD-EDIT ISSUE FROM STOCK ;8/2/02  07:27
- ;;3.0;PROSTHETICS;**61,117,139**;Feb 09, 1996;Build 4
+ ;;3.0;PROSTHETICS;**61,117**;Feb 09, 1996
  ; RVD #61 - phase III of PIP enhancement.
  ;
@@ -75 +75 @@
  ;
 DEL1 ;ENTRY POINT TO DELETE AN ISSUE FROM STOCK
- ;** MOVED TO RMPRPIFD DUE TO SIZE CONSTRAINTS
- G DEL1^RMPRPIFD
+ K DIR
+ S DIR("A")="Are you sure you want to DELETE this entry",DIR("B")="N",DIR(0)="Y"
+ D ^DIR I $D(DTOUT)!$D(DUOUT)!$D(DIRUT) G EXIT
+ I Y'=1 G CO^RMPRPIYE
+ ;
+DEL2 ;call API for returning item to PIP
+ S (RMCHK,RMERPCE)=0
+ S RMI68=$P($G(^RMPR(660,RMPRIEN,10)),U,1) I RMI68>0 D  I RMERPCE W !!,"** STOCK ISSUE DELETE ABORTED",!! G EXIT
+ .S RMCHK=$$DEL^RMPRPCED(RMPRIEN)
+ .I RMCHK'=0 W !!,"*** ERROR in PCE DELETE, Please notify your IRM..660 IEN = ",RMPRIEN,!! S RMERPCE=1 H 3
+ S RMPR60("IEN")=RMPRIEN
+ S RMCHK=$$DEL^RMPRPIU3(.RMPR60)
+ I $G(RMCHK) W !,"*** Error in API RMPRPIU3, ERROR = ",RMCHK,!,"*** Please inform your IRM !!",! G EXIT
+ ;
+ W $C(7),!?10,"Deleted..." H 1
 EXIT ;KILL VARIABLES AND EXIT ROUTINE
  I $G(RMPRIEN),$D(^RMPR(660,RMPRIEN)) L -^RMPR(660,RMPRIEN)