RAMAGU11.m

RAMAGU11 ;HCIOFO/SG - ORDERS/EXAMS API (DEBUG UTILITIES) ; 1/31/08 9:34am

 ;;5.0;Radiology/Nuclear Medicine;**90**;Mar 16, 1998;Build 20

 ;

 Q

 ;

 ;***** WRITES VARIABLES AND THEIR VALUES

 ;

 ; ZZVLST        List of variables separated by commas

 ;

 ; [FLAGS]       Flags that control execution (can be combined):

 ;

 ;                 1  Each variable on a new line

 ;                 S  Skip a line before the output

 ;

VARS(ZZVLST,FLAGS) ;

 N ZZBUF,ZZI,ZZVAR

 S FLAGS=$G(FLAGS),ZZBUF=""

 D:FLAGS["S" W("","!")

 F ZZI=1:1  S ZZVAR=$$TRIM^XLFSTR($P(ZZVLST,",",ZZI))  Q:ZZVAR=""  D

 . I FLAGS'["1"  S:ZZI>1 ZZBUF=ZZBUF_"  "

 . S ZZBUF=ZZBUF_ZZVAR_"="

 . I '($D(@ZZVAR)#10)   S ZZBUF=ZZBUF_"<UNDEF>"

 . E  I +@ZZVAR=@ZZVAR  S ZZBUF=ZZBUF_@ZZVAR

 . E  S ZZBUF=ZZBUF_""""_@ZZVAR_""""

 . I FLAGS["1"  D W(ZZBUF,"!",IOM-10)  S ZZBUF=""

 D:FLAGS'["1" W(ZZBUF,"!",IOM-10)

 Q

 ;

 ;***** WRITES A LONG STRING

 ;

 ; STR           Text

 ;

 ; [FORMAT]      Format characters for the WRITE command. By default

 ;               ('$D(FORMAT)), "!" is assumed.

 ;

 ; [RM]          Right margin for the output. By default

 ;               ($G(RM)'>0), the (IOM-1) value is assumed.

 ;

W(STR,FORMAT,RM) ;

 N MAXWD

 S:'$D(FORMAT) FORMAT="!"

 S MAXWD=$S($G(RM)>0:RM,1:(IOM-1))-$P(FORMAT,"?",2)

 ;--- Write the first segment

 D PAGE^RAUTL22()

 W:FORMAT'="" @FORMAT  W $E(STR,1,MAXWD)

 ;--- Write remaining segments

 S FORMAT="!"_$TR(FORMAT,"!")

 F  S $E(STR,1,MAXWD)=""  Q:STR=""  D

 . D PAGE^RAUTL22()

 . W @FORMAT,$E(STR,1,MAXWD)

 Q

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

 +2       ;

 +3        QUIT 

 +4       ;

 +5       ;***** WRITES VARIABLES AND THEIR VALUES

 +6       ;

 +7       ; ZZVLST        List of variables separated by commas

 +8       ;

 +9       ; [FLAGS]       Flags that control execution (can be combined):

 +10      ;

 +11      ;                 1  Each variable on a new line

 +12      ;                 S  Skip a line before the output

 +13      ;

VARS(ZZVLST,FLAGS) ;

 +1        NEW ZZBUF,ZZI,ZZVAR

 +2        SET FLAGS=$GET(FLAGS)

           SET ZZBUF=""

 +3        IF FLAGS["S"

               DO W("","!")

 +4        FOR ZZI=1:1

               SET ZZVAR=$$TRIM^XLFSTR($PIECE(ZZVLST,",",ZZI))

               IF ZZVAR=""

                   QUIT 

               Begin DoDot:1

 +5                IF FLAGS'["1"

                       IF ZZI>1

                           SET ZZBUF=ZZBUF_"  "

 +6                SET ZZBUF=ZZBUF_ZZVAR_"="

 +7                IF '($DATA(@ZZVAR)#10)

                       SET ZZBUF=ZZBUF_"<UNDEF>"

 +8               IF '$TEST

                       IF +@ZZVAR=@ZZVAR

                           SET ZZBUF=ZZBUF_@ZZVAR

 +9               IF '$TEST

                       SET ZZBUF=ZZBUF_""""_@ZZVAR_""""

 +10               IF FLAGS["1"

                       DO W(ZZBUF,"!",IOM-10)

                       SET ZZBUF=""

               End DoDot:1

 +11       IF FLAGS'["1"

               DO W(ZZBUF,"!",IOM-10)

 +12       QUIT 

 +13      ;

 +14      ;***** WRITES A LONG STRING

 +15      ;

 +16      ; STR           Text

 +17      ;

 +18      ; [FORMAT]      Format characters for the WRITE command. By default

 +19      ;               ('$D(FORMAT)), "!" is assumed.

 +20      ;

 +21      ; [RM]          Right margin for the output. By default

 +22      ;               ($G(RM)'>0), the (IOM-1) value is assumed.

 +23      ;

W(STR,FORMAT,RM) ;

 +1        NEW MAXWD

 +2        IF '$DATA(FORMAT)

               SET FORMAT="!"

 +3        SET MAXWD=$SELECT($GET(RM)>0:RM,1:(IOM-1))-$PIECE(FORMAT,"?",2)

 +4       ;--- Write the first segment

 +5        DO PAGE^RAUTL22()

 +6        IF FORMAT'=""

               WRITE @FORMAT

           WRITE $EXTRACT(STR,1,MAXWD)

 +7       ;--- Write remaining segments

 +8        SET FORMAT="!"_$TRANSLATE(FORMAT,"!")

 +9        FOR 

               SET $EXTRACT(STR,1,MAXWD)=""

               IF STR=""

                   QUIT 

               Begin DoDot:1

 +10               DO PAGE^RAUTL22()

 +11               WRITE @FORMAT,$EXTRACT(STR,1,MAXWD)

               End DoDot:1

 +12       QUIT