Changeset 636 for FOIAVistA/tag/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPR29CA.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/RMPR29CA.m (modified) (7 diffs)

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

@@ -1 +1 @@
 RMPR29CA ;OI-HINES/HNC,SPS -WORK ORDER SUSPENSE RPC;12/27/2004
- ;;3.0;PROSTHETICS;**75,122,142**;Feb 09, 1996;Build 2
+ ;;3.0;PROSTHETICS;**75,122**;Feb 09, 1996;Build 2
 A1(RMIE68,RMPRDUZ,RMSUSTAT,RMPR6641,RMPRTXT) ;roll and scroll entry point
  G A2
 EN(RESULTS,RMIE68,RMPRDUZ,RMSUSTAT,RMPR6641,RMPRTXT) ;RPC entry point
 A2 ;
- S RESULTS(0)="",STP=0
+ S RESULTS(0)=""
  K ^TMP($J)
  ;
@@ -11 +11 @@
  ;3=cancel or 4=cancel and clone 
  S RMIE=0
- F  S RMIE=$O(^RMPR(664.1,RMPR6641,2,RMIE)) Q:RMIE'>0  D  Q:STP=1
- .S RMIE60=$P(^RMPR(664.1,RMPR6641,2,RMIE,0),U,5) Q:'RMIE60
+ F  S RMIE=$O(^RMPR(664.1,RMPR6641,2,RMIE)) Q:RMIE'>0  D
+ .S RMIE60=$P(^RMPR(664.1,RMPR6641,2,RMIE,0),U,5)
  .S ^TMP($J,RMIE60)=""
- .D FD
- .I STP=1 Q
- .D UPD
- I STP=1 G EXIT
+ .D FD,UPD
  I RMSUSTAT=1 D CNOTE
  I RMSUSTAT=0 D INOTE,FD
@@ -24 +21 @@
  I RMSUSTAT=4 D CANOTE^RMPR29CB
  ;set status
- G EXIT
+ Q
 CNOTE ;(#12) COMPLETION NOTE
  ;set file 668
@@ -101 +98 @@
  D ^DIC
  I Y=-1 S RESULTS(0)="1^Error Modifying Record!" Q
+ ;S DIE=DIC K DIC
  S (DA,RMPRDA2)=+Y
+ ;S DR="1" D ^DIE
  K DIE,DR,Y
+ ;S ^RMPR(668,RMIE68,1,0)="^668.011DA^1^1"
  N RMPRC
  S L="",LN=0
@@ -167 +167 @@
  S:RMSUSTAT="" RMSUSTAT=0
  L +^RMPR(660,RMIE60):2
- I $T=0 S RESULTS(0)="1^Someone else is Editing this entry! If this problem persists contact your IRM to clear the Lock Table",STP=1 Q
+ I $T=0 S RESULTS(0)="1^Someone else is Editing this entry!" G EXIT
  S RM680=$G(^RMPR(668,RMIE68,0))
  S RM688=$G(^RMPR(668,RMIE68,8))
@@ -202 +202 @@
  D FILE^DIE("","RMDAT","RMERROR")
  L -^RMPR(660,RMIE60)
- I $D(RMERROR) S RMERR=1,STP=1 G ERR
+ I $D(RMERROR) S RMERR=1 D ERR
  ;
  Q
 UPD ;update file 668 with 2319 records
- K DD,DO
+ K DD,D0
  S DA(1)=RMIE68
  S DIC="^RMPR(668,"_DA(1)_","_"10,"
  S DIC(0)="L",DLAYGO=668,X=RMIE60
  D FILE^DICN
- K X,DD,DO
  S DA(1)=RMIE68
  S DIC="^RMPR(668,"_DA(1)_","_"11,"
  S X=RMAMIS
  D FILE^DICN
- K DIC,X,DLAYGO,DO
+ K DIC,X,DLAYGO,D0
  Q
 A3 G A4
@@ -226 +225 @@
  Q
 ERR ;exit on error
- S RESULTS(0)="1^ERROR WAS "_RMERROR("DIERR",1,"TEXT",1)
 EXIT ;
- K %,BDC,RM688,RMAA,RMAMIS,RMCODT,RMDAT,RMDWRT,RMICD9,RMIE,RMIE60,RMINDT
- K RMPRCO,RMPRDI,RMSERV,RMSTAT,RMTRES,RMTYRE,STP
- Q
+ K RMTYRE,RMTRES,RMSUSTAT,RMSTAT,RMSERV,RMEQU,RMPRTST,RMPRDUZ,RMPRDI,RMPRCO,RMPR6641,RMIE68
+ K RMIE60,RMIE,RMICD9,RMDWRT,RMDAT,RMCODT,RMAMIS,RMAA,RM688,RMPRTXT
+ K BDC,BAD,%,RMINDT,RMPREQU