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

RAMAGU11.m

Go to the documentation of this file.
  1. RAMAGU11 ;HCIOFO/SG - ORDERS/EXAMS API (DEBUG UTILITIES) ; 1/31/08 9:34am
  1. ;;5.0;Radiology/Nuclear Medicine;**90**;Mar 16, 1998;Build 20
  1. ;
  1. Q
  1. ;
  1. ;***** WRITES VARIABLES AND THEIR VALUES
  1. ;
  1. ; ZZVLST List of variables separated by commas
  1. ;
  1. ; [FLAGS] Flags that control execution (can be combined):
  1. ;
  1. ; 1 Each variable on a new line
  1. ; S Skip a line before the output
  1. ;
  1. VARS(ZZVLST,FLAGS) ;
  1. N ZZBUF,ZZI,ZZVAR
  1. S FLAGS=$G(FLAGS),ZZBUF=""
  1. D:FLAGS["S" W("","!")
  1. F ZZI=1:1 S ZZVAR=$$TRIM^XLFSTR($P(ZZVLST,",",ZZI)) Q:ZZVAR="" D
  1. . I FLAGS'["1" S:ZZI>1 ZZBUF=ZZBUF_" "
  1. . S ZZBUF=ZZBUF_ZZVAR_"="
  1. . I '($D(@ZZVAR)#10) S ZZBUF=ZZBUF_"<UNDEF>"
  1. . E I +@ZZVAR=@ZZVAR S ZZBUF=ZZBUF_@ZZVAR
  1. . E S ZZBUF=ZZBUF_""""_@ZZVAR_""""
  1. . I FLAGS["1" D W(ZZBUF,"!",IOM-10) S ZZBUF=""
  1. D:FLAGS'["1" W(ZZBUF,"!",IOM-10)
  1. Q
  1. ;
  1. ;***** WRITES A LONG STRING
  1. ;
  1. ; STR Text
  1. ;
  1. ; [FORMAT] Format characters for the WRITE command. By default
  1. ; ('$D(FORMAT)), "!" is assumed.
  1. ;
  1. ; [RM] Right margin for the output. By default
  1. ; ($G(RM)'>0), the (IOM-1) value is assumed.
  1. ;
  1. W(STR,FORMAT,RM) ;
  1. N MAXWD
  1. S:'$D(FORMAT) FORMAT="!"
  1. S MAXWD=$S($G(RM)>0:RM,1:(IOM-1))-$P(FORMAT,"?",2)
  1. ;--- Write the first segment
  1. D PAGE^RAUTL22()
  1. W:FORMAT'="" @FORMAT W $E(STR,1,MAXWD)
  1. ;--- Write remaining segments
  1. S FORMAT="!"_$TR(FORMAT,"!")
  1. F S $E(STR,1,MAXWD)="" Q:STR="" D
  1. . D PAGE^RAUTL22()
  1. . W @FORMAT,$E(STR,1,MAXWD)
  1. Q