- BZHRINDX ;NEW PROGRAM [ 07/29/1999 10:24 AM ]
- ;Remove space from PO# flds which have no PO#
- S X=0,Z=1
- F S X=$O(^ASUMS(40007,1,X)) Q:X=""!(X="B") D
- .S REC=^ASUMS(40007,1,X,0)
- .F Y=1:1:32 D ;20,25,30 D
- ..I Y'=14 D ;NOT THE VENDOR NAME FIELD
- ...S L=$L($P(REC,"^",Y))
- ...I L=1 S $P(REC,"^",Y)=$TR($P(REC,"^",Y)," ")
- .S ^ASUMS(40007,1,X,0)=REC
- Q
- BZHRINDX ;NEW PROGRAM [ 07/29/1999 10:24 AM ]
- +1 ;Remove space from PO# flds which have no PO#
- +2 SET X=0
- SET Z=1
- +3 FOR
- SET X=$ORDER(^ASUMS(40007,1,X))
- IF X=""!(X="B")
- QUIT
- Begin DoDot:1
- +4 SET REC=^ASUMS(40007,1,X,0)
- +5 ;20,25,30 D
- FOR Y=1:1:32
- Begin DoDot:2
- +6 ;NOT THE VENDOR NAME FIELD
- IF Y'=14
- Begin DoDot:3
- +7 SET L=$LENGTH($PIECE(REC,"^",Y))
- +8 IF L=1
- SET $PIECE(REC,"^",Y)=$TRANSLATE($PIECE(REC,"^",Y)," ")
- End DoDot:3
- End DoDot:2
- +9 SET ^ASUMS(40007,1,X,0)=REC
- End DoDot:1
- +10 QUIT