LRJSAU3.m

LRJSAU3 ;ALB/GTS/DK - Lab Vista Audit Utilities - 2;03/31/2009

 ;;5.2;LAB SERVICE;**425**;Sep 27, 1994;Build 30

 ;

LRADDNOD(LRNODECT,LRCUR,LRPREV,LROUTPT,LRMMARY) ;Include Prev value in string and add to mail array.

 ; INPUT:

 ;   LRNODECT - Node number

 ;   LRCUR    - Current entry display

 ;   LRPREV   - Previous entry display

 ;   LROUTPT  - Type of array to populate (Display or Mail)

 ;   LRMMARY  - Array of output for Mail messages

 ;   

 ; OUTPUT:

 ;   Display array

 ; 

 N LRLGTH

 S:$G(LRPREV)="" LRPREV=""

 S:$G(LROUTPT)="" LROUTPT="DISPLAY"

 S:$G(LRMMARY)="" LRMMARY=""

 S LRLGTH=$L(LRCUR)

 S LRCUR=LRCUR_$J(LRPREV,3+$L(LRPREV)+(42-LRLGTH))

 D:LROUTPT="DISPLAY" ADD^LRJSAU(.LRNODECT,LRCUR)

 D:LROUTPT="MAIL" LRADDLNE(.LRNODECT,LRCUR,LRMMARY)

 Q

 ;

LRADDLNE(LRNODECT,MSG,LRMMARY) ; -- add line to build display

 ;INPUT:

 ;  LRNODECT - Node number

 ;  MSG      - Text to mail

 ;  LRMMARY  - Array for MailMan call

 ;

 ;OUTPUT:

 ;  Array for Mail message

 ;  

 S LRNODECT=LRNODECT+1

 S @LRMMARY@(LRNODECT)=MSG

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LRJSAU3   1059     printed  Apr 09, 2024@21:16:46                                                                                                                                                                                                     Page 2

LRJSAU3   ;ALB/GTS/DK - Lab Vista Audit Utilities - 2;03/31/2009

 +1       ;;5.2;LAB SERVICE;**425**;Sep 27, 1994;Build 30

 +2       ;

LRADDNOD(LRNODECT,LRCUR,LRPREV,LROUTPT,LRMMARY) ;Include Prev value in string and add to mail array.

 +1       ; INPUT:

 +2       ;   LRNODECT - Node number

 +3       ;   LRCUR    - Current entry display

 +4       ;   LRPREV   - Previous entry display

 +5       ;   LROUTPT  - Type of array to populate (Display or Mail)

 +6       ;   LRMMARY  - Array of output for Mail messages

 +7       ;   

 +8       ; OUTPUT:

 +9       ;   Display array

 +10      ; 

 +11       NEW LRLGTH

 +12       if $GET(LRPREV)=""

               SET LRPREV=""

 +13       if $GET(LROUTPT)=""

               SET LROUTPT="DISPLAY"

 +14       if $GET(LRMMARY)=""

               SET LRMMARY=""

 +15       SET LRLGTH=$LENGTH(LRCUR)

 +16       SET LRCUR=LRCUR_$JUSTIFY(LRPREV,3+$LENGTH(LRPREV)+(42-LRLGTH))

 +17       if LROUTPT="DISPLAY"

               DO ADD^LRJSAU(.LRNODECT,LRCUR)

 +18       if LROUTPT="MAIL"

               DO LRADDLNE(.LRNODECT,LRCUR,LRMMARY)

 +19       QUIT 

 +20      ;

LRADDLNE(LRNODECT,MSG,LRMMARY) ; -- add line to build display

 +1       ;INPUT:

 +2       ;  LRNODECT - Node number

 +3       ;  MSG      - Text to mail

 +4       ;  LRMMARY  - Array for MailMan call

 +5       ;

 +6       ;OUTPUT:

 +7       ;  Array for Mail message

 +8       ;  

 +9        SET LRNODECT=LRNODECT+1

 +10       SET @LRMMARY@(LRNODECT)=MSG

 +11       QUIT