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

PRCPSFIU.m

Go to the documentation of this file.
  1. PRCPSFIU ;WISC/RFJ/DGL-fms utility (lookup fcp data) ; 7/22/99 1:50pm
  1. V ;;5.1;IFCAP;;Oct 20, 2000
  1. ;Per VHA Directive 10-93-142, this routine should not be modified.
  1. Q
  1. ;
  1. ;
  1. IVDATA(TRANDA,INVPT) ; get fund control point data for iv doc
  1. ; tranda=issue book ien; invpt=whse inventory point
  1. N PRC,TRANNO
  1. S TRANNO=$P($G(^PRCS(410,TRANDA,0)),"^")
  1. ; seller=whse data
  1. S PRCPWSTA=$P($P($G(^PRCP(445,INVPT,0)),"^"),"-")
  1. S PRCPWFCP=+$O(^PRC(420,"AE",PRCPWSTA,INVPT,0)) ; Multiple FCP not supported
  1. S PRCPWBFY=$$BBFY^PRCSUT(PRCPWSTA,$P(TRANNO,"-",2),PRCPWFCP)
  1. ; buyer data
  1. S PRCPPSTA=$P(TRANNO,"-")
  1. S PRCPPFCP=+$P($G(^PRCS(410,TRANDA,3)),"^") I 'PRCPPFCP S PRCPPFCP=+$P(TRANNO,"-",4)
  1. S PRCPPBFY=$P($G(^PRCS(410,TRANDA,3)),"^",11) I PRCPPBFY'="" S PRCPPBFY=(17+$E(PRCPPBFY))_$E(PRCPPBFY,2,3)
  1. I PRCPPBFY="" S PRCPPBFY=$$BBFY^PRCSUT(PRCPPSTA,$P(TRANNO,"-",2),PRCPPFCP)
  1. Q
  1. ;
  1. ;
  1. SVDATA(INVPT) ; get fund control point data for sv doc
  1. ; invpt=whse inventory point
  1. N PRC
  1. S PRCPWSTA=$P($P($G(^PRCP(445,INVPT,0)),"^"),"-")
  1. S PRCPWFCP=+$O(^PRC(420,"AE",PRCPWSTA,INVPT,0)) ; Multiple FCP not supported
  1. S PRCPWBFY=$$BBFY^PRCSUT(PRCPWSTA,$E(DT,2,3),PRCPWFCP)
  1. Q