PXRMCSTX.m

PXRMCSTX ;SLC/PKR - Routines for taxonomy code set update. ;10/01/2014

 ;;2.0;CLINICAL REMINDERS;**9,12,17,18,26,47**;Feb 04, 2005;Build 291

 ;

 ;=====================================================

CSU(TYPE) ;Entry point for code set update.

 I TYPE'="CPT",TYPE'="ICD" Q

 N IND,NL,NLINES,OUTPUT,PTYPE,TO,XMSUB

 D RBLDUID^PXRMTAXD

 S PTYPE=$S(TYPE="CPT":"a CPT",TYPE="ICD":"an ICD")

 S ^TMP("PXRMXMZ",$J,1,0)="There was "_PTYPE_" code set update on "_$$FMTE^XLFDT($$NOW^XLFDT,"5Z")_"."

 S ^TMP("PXRMXMZ",$J,2,0)=" "

 S ^TMP("PXRMXMZ",$J,3,0)="The taxonomy 'AUID' index has been rebuilt. "

 S ^TMP("PXRMXMZ",$J,4,0)=" "

 S NL=4

 D REPTEXT^PXRMUIDR(.NLINES,.OUTPUT)

 F IND=1:1:NLINES S NL=NL+1,^TMP("PXRMXMZ",$J,NL,0)=OUTPUT(IND)

 I NLINES>3 D

 . S NL=NL+1,^TMP("PXRMXMZ",$J,NL,0)=" "

 . S NL=NL+1,^TMP("PXRMXMZ",$J,NL,0)="Please review the affected taxonomies and take appropriate action."

 S XMSUB="Clinical Reminder taxonomy updates, "_TYPE_" global was updated."

 S TO(DUZ)=""

 D SEND^PXRMMSG("PXRMXMZ",XMSUB,.TO,DUZ)

 K ^TMP("PXRMXMZ",$J)

 Q

 ;

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PXRMCSTX   1074     printed  Apr 09, 2024@20:49:38                                                                                                                                                                                                    Page 2

PXRMCSTX  ;SLC/PKR - Routines for taxonomy code set update. ;10/01/2014

 +1       ;;2.0;CLINICAL REMINDERS;**9,12,17,18,26,47**;Feb 04, 2005;Build 291

 +2       ;

 +3       ;=====================================================

CSU(TYPE) ;Entry point for code set update.

 +1        IF TYPE'="CPT"

               IF TYPE'="ICD"

                   QUIT 

 +2        NEW IND,NL,NLINES,OUTPUT,PTYPE,TO,XMSUB

 +3        DO RBLDUID^PXRMTAXD

 +4        SET PTYPE=$SELECT(TYPE="CPT":"a CPT",TYPE="ICD":"an ICD")

 +5        SET ^TMP("PXRMXMZ",$JOB,1,0)="There was "_PTYPE_" code set update on "_$$FMTE^XLFDT($$NOW^XLFDT,"5Z")_"."

 +6        SET ^TMP("PXRMXMZ",$JOB,2,0)=" "

 +7        SET ^TMP("PXRMXMZ",$JOB,3,0)="The taxonomy 'AUID' index has been rebuilt. "

 +8        SET ^TMP("PXRMXMZ",$JOB,4,0)=" "

 +9        SET NL=4

 +10       DO REPTEXT^PXRMUIDR(.NLINES,.OUTPUT)

 +11       FOR IND=1:1:NLINES

               SET NL=NL+1

               SET ^TMP("PXRMXMZ",$JOB,NL,0)=OUTPUT(IND)

 +12       IF NLINES>3

               Begin DoDot:1

 +13               SET NL=NL+1

                   SET ^TMP("PXRMXMZ",$JOB,NL,0)=" "

 +14               SET NL=NL+1

                   SET ^TMP("PXRMXMZ",$JOB,NL,0)="Please review the affected taxonomies and take appropriate action."

               End DoDot:1

 +15       SET XMSUB="Clinical Reminder taxonomy updates, "_TYPE_" global was updated."

 +16       SET TO(DUZ)=""

 +17       DO SEND^PXRMMSG("PXRMXMZ",XMSUB,.TO,DUZ)

 +18       KILL ^TMP("PXRMXMZ",$JOB)

 +19       QUIT 

 +20      ;