TIUCCRPOST.m

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 ---TIUCCRPOST   1052     printed  Apr 09, 2024@21:44:46                                                                                                                                                                                                  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