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

PSOQUTIL.m

Go to the documentation of this file.
  1. PSOQUTIL ;HINES/RMS - MISCELLANEOUS UTILITIES ; 30 Nov 2007 7:59 AM
  1. ;;7.0;OUTPATIENT PHARMACY;**294,282,631**;DEC 1997;Build 5
  1. ;
  1. LSIG(SIG) ;EXPAND A SIG
  1. S SGY="" F P=1:1:$L(SIG," ") S X=$P(SIG," ",P) D:X]"" ;
  1. .;PSO*7*282 Intended Use Check
  1. .N PSOIN S PSOIN=$O(^PS(51,"B",X,0)) I PSOIN,($P(^PS(51,PSOIN,0),"^",4)<2)&($D(^PS(51,"A",X))) S %=^(X),X=$P(%,"^") I $P(%,"^",2)]"" S Y=$P(SIG,"",P-1),Y=$E(Y,$L(Y)) S:Y>1 X=$P(%,"^",2)
  1. .S SGY=SGY_X_" "
  1. Q $$UP^XLFSTR(SGY)
  1. ;
  1. WRAPTEXT(TEXT,LIMIT,CSPACES) ;
  1. ;;FUNCTION TO DISPLAY (WRITE) TEXT WRAPPED TO A CERTAIN COLUMN LENGTH
  1. ;;DEFAULT=74 CHARACTERS WITH NO SPACES IN FRONT
  1. N WORDS,COUNT,LINE,NEXTWORD
  1. Q:$G(TEXT)']"" ""
  1. S LIMIT=$G(LIMIT,74)
  1. S CSPACES=$S($G(CSPACES):CSPACES,1:0)
  1. S WORDS=$L(TEXT," ")
  1. W !,$$REPEAT^XLFSTR(" ",CSPACES)
  1. F COUNT=1:1:WORDS D
  1. . S NEXTWORD=$P(TEXT," ",COUNT)
  1. . Q:NEXTWORD="" ;TO REMOVE LEADING OR DOUBLE SPACES
  1. . S LINE=$G(LINE)_NEXTWORD_" "
  1. . I $L($G(LINE))>LIMIT&(COUNT'=WORDS) W !,$$REPEAT^XLFSTR(" ",CSPACES) K LINE
  1. . W NEXTWORD_" "
  1. Q