Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXRMCSPE

PXRMCSPE.m

Go to the documentation of this file.
  1. PXRMCSPE ; SLC/PKR - Entry points for CSV protocol event point. ;07/27/2012
  1. ;;2.0;CLINICAL REMINDERS;**26**;Feb 04, 2005;Build 404
  1. ;
  1. Q
  1. ;==================================================
  1. CPTPE ;CPT code set update
  1. S ZTDESC="Clinical Reminders CPT code set update"
  1. S ZTDTH=$H
  1. S ZTIO=""
  1. S ZTRTN="CPT^PXRMCSPE"
  1. D ^%ZTLOAD
  1. D BMES^XPDUTL("Clinical Reminder CPT Code Update - Task Number "_ZTSK_" queued.")
  1. Q
  1. ;
  1. ;==================================================
  1. CPT ;Do the CPT update.
  1. D CSU^PXRMCSTX("CPT")
  1. S ZTREQ="@"
  1. Q
  1. ;
  1. ;==================================================
  1. ICDPE ;ICD code set update.
  1. S ZTDESC="Clinical Reminders ICD code set update"
  1. S ZTDTH=$H
  1. S ZTIO=""
  1. S ZTRTN="ICD^PXRMCSPE"
  1. D ^%ZTLOAD
  1. D BMES^XPDUTL("Clinical Reminder ICD Code Update - Task Number "_ZTSK_" queued.")
  1. Q
  1. ;
  1. ;==================================================
  1. ICD ;Do the ICD update.
  1. D CSU^PXRMCSTX("ICD")
  1. S ZTREQ="@"
  1. Q
  1. ;