- 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 Mar 13, 2025@21:19:55 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
