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

PXCSPE.m

Go to the documentation of this file.
  1. PXCSPE ; SLC/PKR - Entry points for Code Setup update protocol event point. ;04/13/2017
  1. ;;1.0;PCE PATIENT CARE ENCOUNTER;**211**;Aug 12, 1996;Build 454
  1. Q
  1. ;
  1. ;==================================================
  1. CPTPE ;CPT code set update
  1. S ZTDESC="PCE CPT code set update"
  1. S ZTDTH=$H
  1. S ZTIO=""
  1. S ZTRTN="CPT^PXCSPE"
  1. D ^%ZTLOAD
  1. D BMES^XPDUTL("PCE CPT Code Update - Task Number "_ZTSK_" queued.")
  1. Q
  1. ;
  1. ;==================================================
  1. CPT ;Do the CPT update.
  1. D CSU^PXMCICHK("CPT")
  1. S ZTREQ="@"
  1. Q
  1. ;
  1. ;==================================================
  1. ICDPE ;ICD code set update.
  1. S ZTDESC="PCE ICD code set update"
  1. S ZTDTH=$H
  1. S ZTIO=""
  1. S ZTRTN="ICD^PXCSPE"
  1. D ^%ZTLOAD
  1. D BMES^XPDUTL("PCE ICD Code Update - Task Number "_ZTSK_" queued.")
  1. Q
  1. ;
  1. ;==================================================
  1. ICD ;Do the ICD update.
  1. D CSU^PXMCICHK("ICD")
  1. S ZTREQ="@"
  1. Q
  1. ;