Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: BZHRINDX

BZHRINDX.m

Go to the documentation of this file.
  1. BZHRINDX ;NEW PROGRAM [ 07/29/1999 10:24 AM ]
  1. ;Remove space from PO# flds which have no PO#
  1. S X=0,Z=1
  1. F S X=$O(^ASUMS(40007,1,X)) Q:X=""!(X="B") D
  1. .S REC=^ASUMS(40007,1,X,0)
  1. .F Y=1:1:32 D ;20,25,30 D
  1. ..I Y'=14 D ;NOT THE VENDOR NAME FIELD
  1. ...S L=$L($P(REC,"^",Y))
  1. ...I L=1 S $P(REC,"^",Y)=$TR($P(REC,"^",Y)," ")
  1. .S ^ASUMS(40007,1,X,0)=REC
  1. Q