TIUCCRPOST ;CCRA/LB,PB - POST INSTALL ROUTINE;JUN 17, 2020
;;1.0;TEXT INTEGRATION UTILITIES;**337**;Jun 17, 2020;Build 5
;
Q
;
POST ;CREATES A GENERIC CONSULT NOTE - JMC/337- ADD CHECKS FOR GMRCCCRA NOTIFICATIONS MAIL GROUP
N NAME,TYPE,STATUS,PARENT,STDTITLE,Y,X,VALM
;
S NAME="HSRM COMMUNITY CARE COORDINATION PLAN NOTE"
S TYPE="DOC"
S STATUS=11
S PARENT=$O(^TIU(8925.1,"B","CONSULTS","")) ;164
S STDTITLE=$O(^TIU(8926.1,"B","CONSULT","")) ;"CONSULT"
D CRDD^TIUCRDD(NAME,TYPE,STATUS,PARENT,STDTITLE)
;
D MAILGRP
Q
;
MAILGRP ;
; Mail Group already exists
N Y,X,VALM
I $D(^XMB(3.8,"B","GMRCCCRA TIU NOTIFICATIONS")) Q
;
; Mail Group does not exist
I '$D(^XMB(3.8,"B","GMRCCCRA TIU NOTIFICATIONS")) D
. K DO,DD
. S DIC(0)="",DIC="^XMB(3.8,",X="GMRCCCRA TIU NOTIFICATIONS"
. D FILE^DICN
. S VALM=+Y
. I $G(VALM)>0 D
. . S $P(^XMB(3.8,VALM,0),"^",2)="PU" ;Make this a public group
. . S $P(^XMB(3.8,VALM,0),"^",3)="y" ;Yes, you can add yourself to the list of recipients.
K DIC,DIC(0)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HTIUCCRPOST 1052 printed Dec 13, 2024@02:39:14 Page 2
TIUCCRPOST ;CCRA/LB,PB - POST INSTALL ROUTINE;JUN 17, 2020
+1 ;;1.0;TEXT INTEGRATION UTILITIES;**337**;Jun 17, 2020;Build 5
+2 ;
+3 QUIT
+4 ;
POST ;CREATES A GENERIC CONSULT NOTE - JMC/337- ADD CHECKS FOR GMRCCCRA NOTIFICATIONS MAIL GROUP
+1 NEW NAME,TYPE,STATUS,PARENT,STDTITLE,Y,X,VALM
+2 ;
+3 SET NAME="HSRM COMMUNITY CARE COORDINATION PLAN NOTE"
+4 SET TYPE="DOC"
+5 SET STATUS=11
+6 ;164
SET PARENT=$ORDER(^TIU(8925.1,"B","CONSULTS",""))
+7 ;"CONSULT"
SET STDTITLE=$ORDER(^TIU(8926.1,"B","CONSULT",""))
+8 DO CRDD^TIUCRDD(NAME,TYPE,STATUS,PARENT,STDTITLE)
+9 ;
+10 DO MAILGRP
+11 QUIT
+12 ;
MAILGRP ;
+1 ; Mail Group already exists
+2 NEW Y,X,VALM
+3 IF $DATA(^XMB(3.8,"B","GMRCCCRA TIU NOTIFICATIONS"))
QUIT
+4 ;
+5 ; Mail Group does not exist
+6 IF '$DATA(^XMB(3.8,"B","GMRCCCRA TIU NOTIFICATIONS"))
Begin DoDot:1
+7 KILL DO,DD
+8 SET DIC(0)=""
SET DIC="^XMB(3.8,"
SET X="GMRCCCRA TIU NOTIFICATIONS"
+9 DO FILE^DICN
+10 SET VALM=+Y
+11 IF $GET(VALM)>0
Begin DoDot:2
+12 ;Make this a public group
SET $PIECE(^XMB(3.8,VALM,0),"^",2)="PU"
+13 ;Yes, you can add yourself to the list of recipients.
SET $PIECE(^XMB(3.8,VALM,0),"^",3)="y"
End DoDot:2
End DoDot:1
+14 KILL DIC,DIC(0)
+15 QUIT
