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

VAFADDR.m

Go to the documentation of this file.
  1. VAFADDR ;ALB/MIR - ADDRESS UTILITIES (INPUT AND OUTPUT TRANSFORM) ; 25 JAN 93
  1. ;;5.3;Registration;;Aug 13, 1993
  1. ;
  1. ; This routine contains generic input and output transforms for the
  1. ; ZIP+extension fields which reside in DHCP
  1. ;
  1. ZIPIN ; input transform for ZIP - massages user input and returns data
  1. ; in FileMan internal format (no '-'s)
  1. ;
  1. ; Input: X as user entered value
  1. ; Output: X as internal value of user input OR
  1. ; undefined if input from user was invalid
  1. ;
  1. N %
  1. I X'?.N F %=1:1:$L(X) I $E(X,%)?1P S X=$E(X,0,%-1)_$E(X,%+1,20),%=%-1
  1. I X'?5N,(X'?9N) K X
  1. Q
  1. ;
  1. ;
  1. ZIPOUT ; output transform for ZIP - prints either ZIP or ZIP+4 (in 12345-1234)
  1. ; format.
  1. ;
  1. ; Input: Y as FileMan internal value
  1. ; Output: Y as external format (12345 or 12345-1234)
  1. ;
  1. S Y=$E(Y,1,5)_$S($E(Y,6,9)]"":"-"_$E(Y,6,9),1:"")
  1. Q