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 ---[H[J[2J[HPXRMCSTX 1074 printed Nov 22, 2024@16:53:34 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 ;
