- 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 ---[H[J[2J[HSCAPMSG 1412 printed Feb 19, 2025@00:04:52 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