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 ---[H[J[2J[HLRJSAU3 1059 printed Nov 22, 2024@17:25:40 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
