source: FOIAVistA/trunk/r/IFCAP-PRC-PRX--PRCA--PRCN/PRCHAAC4.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 883 bytes
Line 
1PRCHAAC4 ;WIFO/CR-General Questions Utility ;7/8/05 1:43 PM
2V ;;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
Note: See TracBrowser for help on using the repository browser.