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

RMPRPIYA.m

Go to the documentation of this file.
  1. RMPRPIYA ;HINCIO/ODJ - UP - Stock Reconciliation ;3/8/01
  1. ;;3.0;PROSTHETICS;**61**;Feb 09, 1996
  1. Q
  1. ;
  1. ; Replaces UP option in old PIP (cf UPD^RMPR5NTU)
  1. UP N RMPRERR,RMPRSTN,RMPREXC,RMPR5,RMPR6,RMPR11,RMPRV,RMPR,RMPRI,RMPROVAL
  1. N RMPR1,RMPRLCN
  1. ;
  1. ; Station
  1. STN S RMPROVAL=$G(RMPRSTN("IEN"))
  1. W @IOF S RMPRERR=$$STN^RMPRPIY1(.RMPRSTN,.RMPREXC)
  1. I RMPRERR G UPX
  1. I RMPREXC'="" G UPX
  1. I RMPROVAL'=RMPRSTN("IEN") K RMPR1,RMPR11
  1. ;
  1. ;***** HCPCS - prompt for HCPCS and Item
  1. HCPCS W !!,"Reconcile Inventory item quantities on hand...",!
  1. K RMPR11,RMPR6,RMPRVEND,RMPR5,RMPRQTY,RMPR1
  1. D HCPCS^RMPRPIY1(RMPRSTN("IEN"),$G(RMPR1("HCPCS")),.RMPR1,.RMPR11,.RMPREXC)
  1. I RMPREXC="P" G STN
  1. I RMPREXC="T" G UPX
  1. I RMPREXC="^" G UPX
  1. S (RMPR11("STATION"),RMPR11("STATION IEN"))=RMPRSTN("IEN")
  1. ;
  1. ;***** LOCN - prompt for location (if more than 1)
  1. LOCN W ! S RMPRLCN=$$LOC1^RMPRPIYB(RMPRSTN("IEN"))
  1. I RMPRLCN D G VEND0
  1. . K RMPR5
  1. . S RMPR5("IEN")=RMPRLCN
  1. . S RMPRERR=$$GET^RMPRPIX5(.RMPR5)
  1. . W !,"Location: "_RMPR5("NAME")
  1. . Q
  1. D LOCNM^RMPRPIY7(RMPRSTN("IEN"),.RMPR5,.RMPREXC)
  1. I RMPREXC="T" G UPX
  1. I RMPREXC="^" G HCPCS
  1. I RMPREXC="P" G HCPCS
  1. ;
  1. ; Vendor
  1. VEND0 K RMPR
  1. S RMPR("STATION IEN")=RMPRSTN("IEN")
  1. S RMPR("LOCATION IEN")=RMPR5("IEN")
  1. S RMPR("HCPCS")=RMPR11("HCPCS")
  1. S RMPR("ITEM")=RMPR11("ITEM")
  1. K RMPRV
  1. S RMPRERR=$$STOCK^RMPRPIUV(.RMPR,.RMPRV)
  1. I RMPRV=0 G VEND
  1. S RMPRVEND("IEN")=$O(RMPRV(""))
  1. S RMPRVEND("NAME")=$P(RMPRV(RMPRVEND("IEN")),"^",3)
  1. S RMPRQTY=$P(RMPRV(RMPRVEND("IEN")),"^",1)
  1. I RMPRV>1 D
  1. . W !,"The following Vendors of the selected Item exist in this location..."
  1. . S RMPRI=""
  1. . F S RMPRI=$O(RMPRV(RMPRI)) Q:RMPRI="" D
  1. .. W !,$E($$GETVEN(RMPRI),1,20)
  1. .. W ?22,$P(RMPRV(RMPRI),"^",1)_" units on hand"
  1. .. Q
  1. . Q
  1. VEND D VEND^RMPRPIY5(.RMPRVEND,.RMPREXC)
  1. I RMPREXC="T" G UPX
  1. I RMPREXC="^" G HCPCS
  1. I RMPREXC="P" G HCPCS
  1. ;
  1. ; Quantity
  1. QTY D QTY^RMPRPIY5(.RMPRQTY,.RMPREXC)
  1. I RMPREXC="T" G UPX
  1. I RMPREXC="^" G HCPCS
  1. I RMPREXC="P" G VEND
  1. ;
  1. ; Now create reconciliation record
  1. TRANS S RMPR11("STATION")=RMPRSTN("IEN")
  1. S RMPR11("STATION IEN")=RMPRSTN("IEN")
  1. S RMPR6("QUANTITY")=RMPRQTY
  1. S RMPR6("VENDOR")=RMPRVEND("IEN")
  1. S RMPR6("VENDOR IEN")=RMPRVEND("IEN")
  1. S RMPRERR=$$REC^RMPRPIU9(.RMPR6,.RMPR11,.RMPR5)
  1. I RMPRERR D
  1. . W !,"*** There were problems with the reconciliation, please contact support."
  1. . Q
  1. E D
  1. . W !,"*** Item was reconciled..."
  1. . Q
  1. H 1
  1. K RMPR11,RMPR6,RMPRVEND,RMPR5,RMPRQTY,RMPR1
  1. G HCPCS
  1. UPX D KILL^XUSCLEAN
  1. Q
  1. Q
  1. ;
  1. ; Return Vendor Name
  1. GETVEN(RMPRIEN) ;
  1. N RMPRFDA,RMPRI,RMPRO,X,Y,DA
  1. S RMPRI=RMPRIEN_","
  1. D GETS^DIQ(440,RMPRI,".01","","RMPRO")
  1. Q RMPRO(440,RMPRI,.01)