PXRMCSPE ; SLC/PKR - Entry points for CSV protocol event point. ;07/27/2012
;;2.0;CLINICAL REMINDERS;**26**;Feb 04, 2005;Build 404
;
Q
;==================================================
CPTPE ;CPT code set update
S ZTDESC="Clinical Reminders CPT code set update"
S ZTDTH=$H
S ZTIO=""
S ZTRTN="CPT^PXRMCSPE"
D ^%ZTLOAD
D BMES^XPDUTL("Clinical Reminder CPT Code Update - Task Number "_ZTSK_" queued.")
Q
;
;==================================================
CPT ;Do the CPT update.
D CSU^PXRMCSTX("CPT")
S ZTREQ="@"
Q
;
;==================================================
ICDPE ;ICD code set update.
S ZTDESC="Clinical Reminders ICD code set update"
S ZTDTH=$H
S ZTIO=""
S ZTRTN="ICD^PXRMCSPE"
D ^%ZTLOAD
D BMES^XPDUTL("Clinical Reminder ICD Code Update - Task Number "_ZTSK_" queued.")
Q
;
;==================================================
ICD ;Do the ICD update.
D CSU^PXRMCSTX("ICD")
S ZTREQ="@"
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRMCSPE 971 printed Dec 13, 2024@01:43:21 Page 2
PXRMCSPE ; SLC/PKR - Entry points for CSV protocol event point. ;07/27/2012
+1 ;;2.0;CLINICAL REMINDERS;**26**;Feb 04, 2005;Build 404
+2 ;
+3 QUIT
+4 ;==================================================
CPTPE ;CPT code set update
+1 SET ZTDESC="Clinical Reminders CPT code set update"
+2 SET ZTDTH=$HOROLOG
+3 SET ZTIO=""
+4 SET ZTRTN="CPT^PXRMCSPE"
+5 DO ^%ZTLOAD
+6 DO BMES^XPDUTL("Clinical Reminder CPT Code Update - Task Number "_ZTSK_" queued.")
+7 QUIT
+8 ;
+9 ;==================================================
CPT ;Do the CPT update.
+1 DO CSU^PXRMCSTX("CPT")
+2 SET ZTREQ="@"
+3 QUIT
+4 ;
+5 ;==================================================
ICDPE ;ICD code set update.
+1 SET ZTDESC="Clinical Reminders ICD code set update"
+2 SET ZTDTH=$HOROLOG
+3 SET ZTIO=""
+4 SET ZTRTN="ICD^PXRMCSPE"
+5 DO ^%ZTLOAD
+6 DO BMES^XPDUTL("Clinical Reminder ICD Code Update - Task Number "_ZTSK_" queued.")
+7 QUIT
+8 ;
+9 ;==================================================
ICD ;Do the ICD update.
+1 DO CSU^PXRMCSTX("ICD")
+2 SET ZTREQ="@"
+3 QUIT
+4 ;
