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

PRCNHLP.m

Go to the documentation of this file.
  1. PRCNHLP ;SSI/SEB-Help/lookup for NX ;[ 02/07/96 1:56 PM ]
  1. ;;1.0;Equipment/Turn-In Request;;Sep 13, 1996
  1. A ; Executable help for Contract field of vendor file (440)
  1. NEW I
  1. S V=$S($D(DG("0;2")):DG("0;2"),1:$P(^PRCN(413,DA(1),1,DA,0),U,2)),I=0
  1. Q:V="" W !,"Contracts on file for ",$P(^PRC(440,V,0),U),":"
  1. F J=1:1 S I=$O(^PRC(440,V,4,I)) W:I>0 ! G:I'>0 EXIT D
  1. . W:$P(^PRC(440,V,4,I,0),U,2)>DT !,$P(^PRC(440,V,4,I,0),U)
  1. G EXIT
  1. B ; Input transform for Contract field of vendor file (440)
  1. NEW I
  1. S V=$S($D(DG("0;2")):DG("0;2"),1:$P(^PRCN(413,DA(1),1,DA,0),U,2))
  1. Q:V=""
  1. S I=$O(^PRC(440,V,"B",4,X,""))
  1. I I]"" K:$P(^PRC(440,V,4,I,0),U,3)'=V!($P(^PRC(440,V,4,I,0),U,2)'>DT) X
  1. EXIT K I,J,V
  1. Q