| 1 | PRCHAAC4 ;WIFO/CR-General Questions Utility ;7/8/05 1:43 PM
|
|---|
| 2 | V ;;5.1;IFCAP;**79,100**;Oct 20, 2000
|
|---|
| 3 | ;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | ;This routine is called from the input template for Detailed purchase
|
|---|
| 6 | ;card and any other place where the field Federal Supply Classification
|
|---|
| 7 | ;is used. It is also used in combination with tags EN10-EN101 of
|
|---|
| 8 | ;PRCHNPO7. The variable PRCHANS is not killed here. Instead, it is
|
|---|
| 9 | ;killed within various PO input templates where it is used.
|
|---|
| 10 | N L,M,X
|
|---|
| 11 | S L(1)=$TR($J("",60)," ","-")
|
|---|
| 12 | S L(2)=" Select one Item Type: Goods (G) or Services (S)"
|
|---|
| 13 | S L(3)=$TR($J("",60)," ","-")
|
|---|
| 14 | S M(1)=" Answer with G, g, S, s, or '^' to exit"
|
|---|
| 15 | ;
|
|---|
| 16 | D FT^PRC0A(.L,.M," Enter an Item Type","","")
|
|---|
| 17 | S X=$E(L,1,1) X "F %=1:1:$L(X) S:$E(X,%)?1L X=$E(X,0,%-1)_$C($A(X,%)-32)_$E(X,%+1,999)" S L=X
|
|---|
| 18 | I "GS^"'[L G V
|
|---|
| 19 | S PRCHANS=L
|
|---|
| 20 | QUIT
|
|---|
