ECXEC1.m

ECXEC1 ;ALB/CMD - Event Capture Extract Message ;May 12, 2021@21:12:10

 ;;3.0;DSS EXTRACTS;**181**;Dec 22, 1997;Build 71

 ;

 ;Reference to ^XMD supported by ICR #10113

 ;Reference to ^XMB("NETNAME") supported by ICR #1131

 ;Reference to ^TMP($J  supported by SACC 2.3.2.5.1

 ;

EN ;entry point from ECXEC

 N ECMSG,ECX,XMSUB,XMDUZ,XMY,XMTEXT

 ;send missing DSS Unit message

 S ECX=$O(^TMP($J,"ECXECM","NODSS",0))

 I ECX="" Q

 S XMSUB="PATIENTS WITH MISSING DSS UNIT in File #721",XMDUZ="DSS SYSTEM"

 K XMY S XMY("G.DSS-"_ECGRP_"@"_^XMB("NETNAME"))=""

 S ECMSG(1,0)="The DSS-"_ECPACK_" extract (#"_$P(EC23,U,2)_") for "_ECSDN_" through "_ECEDN

 S ECMSG(2,0)="contains the following records which do not have DSS UNITS in EVENT CAPTURE"

 S ECMSG(3,0)="PATIENT File #721.  Please use the option Event Capture - Enter/Edit Patient"

 S ECMSG(4,0)="Procedures to edit the records."

 S ECMSG(5,0)=""

 S ECMSG(6,0)="Patient (SSN)                              Procedure   Date/Time"

 S ECMSG(7,0)="------------------------------------------------------------------------------"

 S ECMSG(8,0)=""

 S ECX=0

 F  S ECX=$O(^TMP($J,"ECXECM","NODSS",ECX)) Q:ECX=""  S ECMSG(8+ECX,0)=^TMP($J,"ECXECM","NODSS",ECX,0)

 S XMTEXT="ECMSG(" D ^XMD

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ECXEC1   1251     printed  Apr 09, 2024@20:56:13                                                                                                                                                                                                      Page 2

ECXEC1    ;ALB/CMD - Event Capture Extract Message ;May 12, 2021@21:12:10

 +1       ;;3.0;DSS EXTRACTS;**181**;Dec 22, 1997;Build 71

 +2       ;

 +3       ;Reference to ^XMD supported by ICR #10113

 +4       ;Reference to ^XMB("NETNAME") supported by ICR #1131

 +5       ;Reference to ^TMP($J  supported by SACC 2.3.2.5.1

 +6       ;

EN        ;entry point from ECXEC

 +1        NEW ECMSG,ECX,XMSUB,XMDUZ,XMY,XMTEXT

 +2       ;send missing DSS Unit message

 +3        SET ECX=$ORDER(^TMP($JOB,"ECXECM","NODSS",0))

 +4        IF ECX=""

               QUIT 

 +5        SET XMSUB="PATIENTS WITH MISSING DSS UNIT in File #721"

           SET XMDUZ="DSS SYSTEM"

 +6        KILL XMY

           SET XMY("G.DSS-"_ECGRP_"@"_^XMB("NETNAME"))=""

 +7        SET ECMSG(1,0)="The DSS-"_ECPACK_" extract (#"_$PIECE(EC23,U,2)_") for "_ECSDN_" through "_ECEDN

 +8        SET ECMSG(2,0)="contains the following records which do not have DSS UNITS in EVENT CAPTURE"

 +9        SET ECMSG(3,0)="PATIENT File #721.  Please use the option Event Capture - Enter/Edit Patient"

 +10       SET ECMSG(4,0)="Procedures to edit the records."

 +11       SET ECMSG(5,0)=""

 +12       SET ECMSG(6,0)="Patient (SSN)                              Procedure   Date/Time"

 +13       SET ECMSG(7,0)="------------------------------------------------------------------------------"

 +14       SET ECMSG(8,0)=""

 +15       SET ECX=0

 +16       FOR 

               SET ECX=$ORDER(^TMP($JOB,"ECXECM","NODSS",ECX))

               if ECX=""

                   QUIT 

               SET ECMSG(8+ECX,0)=^TMP($JOB,"ECXECM","NODSS",ECX,0)

 +17       SET XMTEXT="ECMSG("

           DO ^XMD

 +18       QUIT