SCAPMSG.m

SCAPMSG ;ALB/SCK - PCMM MESSAGE GENERATOR ; 22 SEP 95

 ;;5.3;Scheduling;**41**;AUG 13, 1993

 ;;1

 Q

 ; mailman message generator for the primary care management

 ; module.

 ;

PARSE(SC) ;

 ;  -- array parsing for messages

 ;     SCDUZ  -  DUZ of user triggering the message

 ;     SCIENS -  The Internal entry number of the team, position, or

 ;               patient, etc.

 ;     SCDATE -  The date and/or time of the change or incident that

 ;               triggered the notification in external format.

 ;     SCSUBJ -  The subject for the message

 ;     SCMSG  -  The message type

 ;     SCTEXT -  text line to be added to the message

 ;

 S SCDUZ=$G(SC("DUZ"))

 S SCIENS=$G(SC("IENS"))

 S SCDATE=$G(SC("DATE"))

 S SCSUBJ=$G(SC("SUBJECT"))

 S SCMSG=$G(SC("MESSAGE"))

 S SCTEXT=$G(SC("TEXT"))

 Q

 ;

MAILC(SCOK,SCROOT) ;

 ;

 N SCTEXT,SCSUBJ,SCDUZ

 D CHK^SCUTBK

 D TMP^SCUTBK

 ;

 S SCOK=0

 ;

 D BLDMSG(.SCROOT,.SCSUBJ,.SCDUZ)

 ;

 S XMDUZ=$S($G(SCDUZ)]"":SCDUZ,1:"PRIMARY CARE MANAGEMENT")

 S XMSUB=$S($G(SCSUBJ)]"":SCSUBJ,1:"PCMM NOTIFICATION")

 D XMZ^XMA2

 G:XMZ<1 MAILQ

 S XMTEXT="SCTEXT("

 S XMY("G.PCM MESSAGING@DEVFEX.ISC-ALBANY.DOMAIN.EXT")=""

 ;

 D ^XMD

 S SCOK=XMZ

MAILQ Q

 ;

BLDMSG(SCROOT,SCSUBJ,SCDUZ) ;

 ;

 N I

 S SCDUZ=$P($G(SCROOT(1,0)),U,1)

 S SCSUBJ=$P($G(SCROOT(1,0)),U,2)

 ;

 S I=0

 F  S I=$O(SCROOT(1,I)) Q:'I  S SCTEXT(I)=SCROOT(1,I)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SCAPMSG   1412     printed  Apr 09, 2024@21:54:03                                                                                                                                                                                                     Page 2

SCAPMSG   ;ALB/SCK - PCMM MESSAGE GENERATOR ; 22 SEP 95

 +1       ;;5.3;Scheduling;**41**;AUG 13, 1993

 +2       ;;1

 +3        QUIT 

 +4       ; mailman message generator for the primary care management

 +5       ; module.

 +6       ;

PARSE(SC) ;

 +1       ;  -- array parsing for messages

 +2       ;     SCDUZ  -  DUZ of user triggering the message

 +3       ;     SCIENS -  The Internal entry number of the team, position, or

 +4       ;               patient, etc.

 +5       ;     SCDATE -  The date and/or time of the change or incident that

 +6       ;               triggered the notification in external format.

 +7       ;     SCSUBJ -  The subject for the message

 +8       ;     SCMSG  -  The message type

 +9       ;     SCTEXT -  text line to be added to the message

 +10      ;

 +11       SET SCDUZ=$GET(SC("DUZ"))

 +12       SET SCIENS=$GET(SC("IENS"))

 +13       SET SCDATE=$GET(SC("DATE"))

 +14       SET SCSUBJ=$GET(SC("SUBJECT"))

 +15       SET SCMSG=$GET(SC("MESSAGE"))

 +16       SET SCTEXT=$GET(SC("TEXT"))

 +17       QUIT 

 +18      ;

MAILC(SCOK,SCROOT) ;

 +1       ;

 +2        NEW SCTEXT,SCSUBJ,SCDUZ

 +3        DO CHK^SCUTBK

 +4        DO TMP^SCUTBK

 +5       ;

 +6        SET SCOK=0

 +7       ;

 +8        DO BLDMSG(.SCROOT,.SCSUBJ,.SCDUZ)

 +9       ;

 +10       SET XMDUZ=$SELECT($GET(SCDUZ)]"":SCDUZ,1:"PRIMARY CARE MANAGEMENT")

 +11       SET XMSUB=$SELECT($GET(SCSUBJ)]"":SCSUBJ,1:"PCMM NOTIFICATION")

 +12       DO XMZ^XMA2

 +13       if XMZ<1

               GOTO MAILQ

 +14       SET XMTEXT="SCTEXT("

 +15       SET XMY("G.PCM MESSAGING@DEVFEX.ISC-ALBANY.DOMAIN.EXT")=""

 +16      ;

 +17       DO ^XMD

 +18       SET SCOK=XMZ

MAILQ      QUIT 

 +1       ;

BLDMSG(SCROOT,SCSUBJ,SCDUZ) ;

 +1       ;

 +2        NEW I

 +3        SET SCDUZ=$PIECE($GET(SCROOT(1,0)),U,1)

 +4        SET SCSUBJ=$PIECE($GET(SCROOT(1,0)),U,2)

 +5       ;

 +6        SET I=0

 +7        FOR 

               SET I=$ORDER(SCROOT(1,I))

               if 'I

                   QUIT 

               SET SCTEXT(I)=SCROOT(1,I)

 +8        QUIT