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

ACDFUNC.m

Go to the documentation of this file. 
  1. ACDFUNC ;IHS/ADC/EDE/KML - VARIOUS EXTRINSICS;
  1.  ;;4.1;CHEMICAL DEPENDENCY MIS;;MAY 11, 1998
  1.  ;;
  1. DD(Y) ;EP-get external date
  1.  X ^DD("DD")
  1.  Q Y
  1. SETS(X) ;EP-Convert sets to op format
  1.  ;file is X(1), field is X(2), and code is X(3)
  1.  ;
  1.  I X(3)="" S ACDX="UNKNOWN" Q ACDX
  1.  S ACDX=$P(^DD(X(1),X(2),0),U,3),ACDX=$P(ACDX,X(3)_":",2),ACDX=$P(ACDX,";") I ACDX="" S ACDX="UNKNOWN"
  1.  Q ACDX
  1.  ;
  1. LZERO(V,L) ;EP-left zero fill
  1.  NEW %,I
  1.  S %=$L(V),Z=L-% F I=1:1:Z S V="0"_V
  1.  Q V
  1. RZERO(V,L) ;EP-right zero fill 
  1.  NEW %,I
  1.  S %=$L(V),Z=L-% F I=1:1:Z S V=V_"0"
  1.  Q V
  1. LBLNK(V,L) ;EP-left blank fill
  1.  NEW %,I
  1.  S %=$L(V),Z=L-% F I=1:1:Z S V=" "_V
  1.  Q V
  1. RBLNK(V,L) ;EP-right blank fill 
  1.  NEW %,I
  1.  S %=$L(V),Z=L-% F I=1:1:Z S V=V_" "
  1.  Q V