SCUTBK10.m

SCUTBK10 ;ALB/SCK - Scheduling Broker Utilities ; 04 Sep 2002  12:53 PM

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

 ;

 Q

 ;

PARSE(SC) ;

 S SCFILE=$G(SC("FILE"))

 S SCIEN=$G(SC("IEN"))

 S SCVAL=$G(SC("VALUE"))

 S SCSTATUS=$G(SC("STATUS"))

 S SCSUBJ=$G(SC("SUBJ"),"PCMM NOTIFICATION")

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

 S SCADR=$G(SC("ADDRESS"))

 S SCHIEN=$G(SC("HIEN"))

 Q

 ;

PTASGMM(SCOK,SC) ;  Send MailMan message on single patient assignment to either 

 ; a team or a position.

 ;

 ;   Input:   SC = BT^404.42 Ien   Sets before action for team assign.

 ;            SC = AT^404.42 Ien   Sets after action for team assign.

 ;            SC = BP^404.43 Ien  Sets before action for position assign

 ;            SC = BA^404.43 Ien  Sets after action for position assign 

 ;

 N SCACT,SCIEN

 ;

 D CHK^SCUTBK

 D TMP^SCUTBK

 ;

 S SCOK=0

 S SCACT=$P($G(SC),U,1)

 S SCIEN=$P($G(SC),U,2)

 G:SCACT="" PTASGNQ

 G:SCIEN="" PTASGNQ

 ;

 D @SCACT

 S SCOK=1

PTASGNQ Q

 ;

BT ;

 D BEFORETM^SCMCDD1(SCIEN)

 Q

AT ;

 D AFTERTM^SCMCDD1(SCIEN)

 Q

BP ;

 D BEFORETP^SCMCDD1(SCIEN)

 Q

AP ;

 D AFTERTP^SCMCDD1(SCIEN)

 Q

 ;

MAILC(SCOK,SC) ;   call to invoke broker to send a mailman message from the

 ;           client

 ;

 N SCSUBJ,SCTEXT

 ;

 D CHK^SCUTBK

 D TMP^SCUTBK

 ;

 S SCOK=0

 S SCSUBJ=$G(SC("SUBJ"),"PCMM NOTIFICATION")

 S SCADR=$G(SC("ADDRESS"))

 ;

 S XMDUZ=DUZ

 S XMSUB=SCSUBJ

 D XMZ^XMA2

 G:XMZ<1 MAILQ

 ;

 D BLDTEXT(.SC,.SCTEXT)

 S XMTEXT="SCTEXT("

 ;

 I $P(SCADR,U,2)="TEST" D

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

 ;

 I $P(SCADR,U,2)="S" D

 . S XMY($P(SCADR,U,1))=""

 ;

 I $D(XMY)>0 D

 . D ^XMD

 . S SCOK=XMZ

MAILQ Q

 ;

BLDTEXT(SCVAL,SCTXT) ;  Build the message text array from the client

 ;

 N SCLINE,CNT

 S SCLINE=""

 F  S SCLINE=$O(SCVAL(SCLINE)) Q:+SCLINE=0  D

 . S SCTXT(SCLINE)=SCVAL(SCLINE)

 Q

 ;

NEWHIST(SCOK,SC) ;  Call to invoke the broker to determine whether the date for

 ;          the history entry being added is valid.

 ;

 N SCFILE,SCIEN,SCDATE,SCSTATUS,SCVAL,SCERMSG

 D CHK^SCUTBK

 D TMP^SCUTBK

 ;

 S SCOK=0

 D PARSE(.SC)

 ;

 S SCOK=$$NEWHIST^SCMCDD(SCFILE,SCIEN,SCDATE,"SCERMSG",SCSTATUS)

NEWDTQ Q

 ;

NEWSTC(SCOK,SC) ;  Call to invoke the broker to determine whether the status

 ;          entry for the current entry is valid.

 ;

 N SCFILE,SCIEN,SCDATE,SCSTATUS,SCVAL,SCERMSG

 D CHK^SCUTBK

 D TMP^SCUTBK

 ;

 S SCOK=0

 D PARSE(.SC)

 ;

 S SCOK=$$NEWHIST^SCMCDD(SCFILE,SCIEN,SCDATE,"SCERMSG",SCSTATUS)

NEWSTQ Q

 ;

DELDTC(SCOK,SC) ;  Call to invoke the broker to see if the history entry can

 ;          be deleted.

 ;

 N SCFILE,SCHIEN,SCERMSG

 D CHK^SCUTBK

 D TMP^SCUTBK

 ;

 S SCOK=0

 D PARSE(.SC)

 ;

 S SCOK=$$OKDEL^SCMCDD(SCFILE,SCHIEN,"SCERMSG")

DELDTQ Q

 ;

INACTC(SCOK,SC) ;   Call to invoke the broker to see if the history entry can

 ;           be inactivated.

 ;

 N SCFILE,SCIEN,SCDATE

 D CHK^SCUTBK

 D TMP^SCUTBK

 ;

 S SCOK=0

 D PARSE(.SC)

 ;

 S SCOK=$$OKINACT^SCMCDD(SCFILE,SCIEN,SCDATE,"SCERMSG")

INACTQ Q

 ;

CHGDTC(SCOK,SC) ;  Call to see if the date change for the history entry is 

 ;          valid.

 ;

 N SCFILE,SCIEN,SCDATE,SCERMSG

 D CHK^SCUTBK

 D TMP^SCUTBK

 ;

 S SCOK=0

 D PARSE(.SC)

 ;

 S SCOK=$$OKCHGDT^SCMCDD(SCFILE,SCHIEN,SCDATE,"SCERMSG")

CHGDTQ Q

 ;

MNTEST(SCOK,SC) ;

 D CHK^SCUTBK

 D TMP^SCUTBK

 S DFN=+SC

 S SCOK=$$LST^DGMTU(DFN),$P(SCOK,U,10)=$$ONWAIT^SCMCWAIT(DFN),$P(SCOK,U,11)=$$SC^SCMCWAIT(SC)

 S $P(SCOK,U,12)=$$IU^SCMCTSK1(DFN)

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---SCUTBK10   3555     printed  Feb 19, 2025@00:10:43                                                                                                                                                                                                    Page 2

SCUTBK10  ;ALB/SCK - Scheduling Broker Utilities ; 04 Sep 2002  12:53 PM

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

 +2       ;

 +3        QUIT 

 +4       ;

PARSE(SC) ;

 +1        SET SCFILE=$GET(SC("FILE"))

 +2        SET SCIEN=$GET(SC("IEN"))

 +3        SET SCVAL=$GET(SC("VALUE"))

 +4        SET SCSTATUS=$GET(SC("STATUS"))

 +5        SET SCSUBJ=$GET(SC("SUBJ"),"PCMM NOTIFICATION")

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

 +7        SET SCADR=$GET(SC("ADDRESS"))

 +8        SET SCHIEN=$GET(SC("HIEN"))

 +9        QUIT 

 +10      ;

PTASGMM(SCOK,SC) ;  Send MailMan message on single patient assignment to either 

 +1       ; a team or a position.

 +2       ;

 +3       ;   Input:   SC = BT^404.42 Ien   Sets before action for team assign.

 +4       ;            SC = AT^404.42 Ien   Sets after action for team assign.

 +5       ;            SC = BP^404.43 Ien  Sets before action for position assign

 +6       ;            SC = BA^404.43 Ien  Sets after action for position assign 

 +7       ;

 +8        NEW SCACT,SCIEN

 +9       ;

 +10       DO CHK^SCUTBK

 +11       DO TMP^SCUTBK

 +12      ;

 +13       SET SCOK=0

 +14       SET SCACT=$PIECE($GET(SC),U,1)

 +15       SET SCIEN=$PIECE($GET(SC),U,2)

 +16       if SCACT=""

               GOTO PTASGNQ

 +17       if SCIEN=""

               GOTO PTASGNQ

 +18      ;

 +19       DO @SCACT

 +20       SET SCOK=1

PTASGNQ    QUIT 

 +1       ;

BT        ;

 +1        DO BEFORETM^SCMCDD1(SCIEN)

 +2        QUIT 

AT        ;

 +1        DO AFTERTM^SCMCDD1(SCIEN)

 +2        QUIT 

BP        ;

 +1        DO BEFORETP^SCMCDD1(SCIEN)

 +2        QUIT 

AP        ;

 +1        DO AFTERTP^SCMCDD1(SCIEN)

 +2        QUIT 

 +3       ;

MAILC(SCOK,SC) ;   call to invoke broker to send a mailman message from the

 +1       ;           client

 +2       ;

 +3        NEW SCSUBJ,SCTEXT

 +4       ;

 +5        DO CHK^SCUTBK

 +6        DO TMP^SCUTBK

 +7       ;

 +8        SET SCOK=0

 +9        SET SCSUBJ=$GET(SC("SUBJ"),"PCMM NOTIFICATION")

 +10       SET SCADR=$GET(SC("ADDRESS"))

 +11      ;

 +12       SET XMDUZ=DUZ

 +13       SET XMSUB=SCSUBJ

 +14       DO XMZ^XMA2

 +15       if XMZ<1

               GOTO MAILQ

 +16      ;

 +17       DO BLDTEXT(.SC,.SCTEXT)

 +18       SET XMTEXT="SCTEXT("

 +19      ;

 +20       IF $PIECE(SCADR,U,2)="TEST"

               Begin DoDot:1

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

               End DoDot:1

 +22      ;

 +23       IF $PIECE(SCADR,U,2)="S"

               Begin DoDot:1

 +24               SET XMY($PIECE(SCADR,U,1))=""

               End DoDot:1

 +25      ;

 +26       IF $DATA(XMY)>0

               Begin DoDot:1

 +27               DO ^XMD

 +28               SET SCOK=XMZ

               End DoDot:1

MAILQ      QUIT 

 +1       ;

BLDTEXT(SCVAL,SCTXT) ;  Build the message text array from the client

 +1       ;

 +2        NEW SCLINE,CNT

 +3        SET SCLINE=""

 +4        FOR 

               SET SCLINE=$ORDER(SCVAL(SCLINE))

               if +SCLINE=0

                   QUIT 

               Begin DoDot:1

 +5                SET SCTXT(SCLINE)=SCVAL(SCLINE)

               End DoDot:1

 +6        QUIT 

 +7       ;

NEWHIST(SCOK,SC) ;  Call to invoke the broker to determine whether the date for

 +1       ;          the history entry being added is valid.

 +2       ;

 +3        NEW SCFILE,SCIEN,SCDATE,SCSTATUS,SCVAL,SCERMSG

 +4        DO CHK^SCUTBK

 +5        DO TMP^SCUTBK

 +6       ;

 +7        SET SCOK=0

 +8        DO PARSE(.SC)

 +9       ;

 +10       SET SCOK=$$NEWHIST^SCMCDD(SCFILE,SCIEN,SCDATE,"SCERMSG",SCSTATUS)

NEWDTQ     QUIT 

 +1       ;

NEWSTC(SCOK,SC) ;  Call to invoke the broker to determine whether the status

 +1       ;          entry for the current entry is valid.

 +2       ;

 +3        NEW SCFILE,SCIEN,SCDATE,SCSTATUS,SCVAL,SCERMSG

 +4        DO CHK^SCUTBK

 +5        DO TMP^SCUTBK

 +6       ;

 +7        SET SCOK=0

 +8        DO PARSE(.SC)

 +9       ;

 +10       SET SCOK=$$NEWHIST^SCMCDD(SCFILE,SCIEN,SCDATE,"SCERMSG",SCSTATUS)

NEWSTQ     QUIT 

 +1       ;

DELDTC(SCOK,SC) ;  Call to invoke the broker to see if the history entry can

 +1       ;          be deleted.

 +2       ;

 +3        NEW SCFILE,SCHIEN,SCERMSG

 +4        DO CHK^SCUTBK

 +5        DO TMP^SCUTBK

 +6       ;

 +7        SET SCOK=0

 +8        DO PARSE(.SC)

 +9       ;

 +10       SET SCOK=$$OKDEL^SCMCDD(SCFILE,SCHIEN,"SCERMSG")

DELDTQ     QUIT 

 +1       ;

INACTC(SCOK,SC) ;   Call to invoke the broker to see if the history entry can

 +1       ;           be inactivated.

 +2       ;

 +3        NEW SCFILE,SCIEN,SCDATE

 +4        DO CHK^SCUTBK

 +5        DO TMP^SCUTBK

 +6       ;

 +7        SET SCOK=0

 +8        DO PARSE(.SC)

 +9       ;

 +10       SET SCOK=$$OKINACT^SCMCDD(SCFILE,SCIEN,SCDATE,"SCERMSG")

INACTQ     QUIT 

 +1       ;

CHGDTC(SCOK,SC) ;  Call to see if the date change for the history entry is 

 +1       ;          valid.

 +2       ;

 +3        NEW SCFILE,SCIEN,SCDATE,SCERMSG

 +4        DO CHK^SCUTBK

 +5        DO TMP^SCUTBK

 +6       ;

 +7        SET SCOK=0

 +8        DO PARSE(.SC)

 +9       ;

 +10       SET SCOK=$$OKCHGDT^SCMCDD(SCFILE,SCHIEN,SCDATE,"SCERMSG")

CHGDTQ     QUIT 

 +1       ;

MNTEST(SCOK,SC) ;

 +1        DO CHK^SCUTBK

 +2        DO TMP^SCUTBK

 +3        SET DFN=+SC

 +4        SET SCOK=$$LST^DGMTU(DFN)

           SET $PIECE(SCOK,U,10)=$$ONWAIT^SCMCWAIT(DFN)

           SET $PIECE(SCOK,U,11)=$$SC^SCMCWAIT(SC)

 +5        SET $PIECE(SCOK,U,12)=$$IU^SCMCTSK1(DFN)

 +6        QUIT 

 +7       ;