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