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