Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RMPRPIXB

RMPRPIXB.m

Go to the documentation of this file.
  1. RMPRPIXB ;HINCIO/ODJ - SUB TRANSACTION FILE 661.69 APIs ;3/8/01
  1. ;;3.0;PROSTHETICS;**61**;Feb 09, 1996
  1. Q
  1. ;
  1. ; CRE - Create a stock reconciliation gain/loss record (661.69)
  1. CRE(RMPR6) ;
  1. N RMPRERR,RMPRFDA,RMPRFME,RMPRIEN,X,Y,DA
  1. S RMPRERR=0
  1. S RMPRFDA(661.69,"+1,",.01)=RMPR6("TRANS IEN")
  1. S RMPRFDA(661.69,"+1,",2)=RMPR6("GAIN/LOSS")
  1. S RMPRFDA(661.69,"+1,",3)=RMPR6("GAIN/LOSS VALUE")
  1. D UPDATE^DIE("","RMPRFDA","RMPRIEN","RMPRFME")
  1. I $D(RMPRFME) S RMPRERR=99 G CREX
  1. CREX Q RMPRERR
  1. ;
  1. ; UPD - Update a stock reconciliation gain/loss record
  1. UPD(RMPR69) ;
  1. N RMPRERR,RMPRFDA,RMPRIEN,RMPRFME,X,Y,DA
  1. S RMPRERR=0
  1. S RMPRIEN=$O(^RMPR(661.69,"B",RMPR69("TRANS IEN"),""))
  1. S RMPRIEN=RMPRIEN_","
  1. S:$D(RMPR69("GAIN/LOSS")) RMPRFDA(661.69,RMPRIEN,2)=RMPR69("GAIN/LOSS")
  1. S:$D(RMPR69("GAIN/LOSS VALUE")) RMPRFDA(661.69,RMPRIEN,3)=RMPR69("GAIN/LOSS VALUE")
  1. D:$D(RMPRFDA) FILE^DIE("","RMPRFDA","RMPRFME")
  1. I $D(RMPRFME) S RMPRERR=3
  1. UPDX Q RMPRERR
  1. ;
  1. ; GET - Get a stock reconciliation gain/loss record
  1. GET(RMPR6) ;
  1. N RMPRERR,RMPRFME,RMPROUP,RMPRIEN,X,Y,DA
  1. S RMPRERR=0
  1. I $G(RMPR6("TRANS IEN"))="" S RMPRERR=1 G GETX
  1. S RMPRIEN=$O(^RMPR(661.69,"B",RMPR6("TRANS IEN"),""))
  1. I RMPRIEN="" S RMPRERR=1 G GETX
  1. S RMPR6("IEN")=RMPRIEN
  1. S RMPRIEN=RMPRIEN_","
  1. D GETS^DIQ(661.69,RMPRIEN,"*","","RMPROUP","RMPRFME")
  1. I $D(RMPRFME) S RMPRERR=1 G GETX
  1. S RMPR6("GAIN/LOSS")=RMPROUP(661.69,RMPRIEN,2)
  1. S RMPR6("GAIN/LOSS VALUE")=RMPROUP(661.69,RMPRIEN,3)
  1. GETX Q RMPRERR