PXCSPE ; SLC/PKR - Entry points for Code Setup update protocol event point. ;04/13/2017
;;1.0;PCE PATIENT CARE ENCOUNTER;**211**;Aug 12, 1996;Build 454
Q
;
;==================================================
CPTPE ;CPT code set update
S ZTDESC="PCE CPT code set update"
S ZTDTH=$H
S ZTIO=""
S ZTRTN="CPT^PXCSPE"
D ^%ZTLOAD
D BMES^XPDUTL("PCE CPT Code Update - Task Number "_ZTSK_" queued.")
Q
;
;==================================================
CPT ;Do the CPT update.
D CSU^PXMCICHK("CPT")
S ZTREQ="@"
Q
;
;==================================================
ICDPE ;ICD code set update.
S ZTDESC="PCE ICD code set update"
S ZTDTH=$H
S ZTIO=""
S ZTRTN="ICD^PXCSPE"
D ^%ZTLOAD
D BMES^XPDUTL("PCE ICD Code Update - Task Number "_ZTSK_" queued.")
Q
;
;==================================================
ICD ;Do the ICD update.
D CSU^PXMCICHK("ICD")
S ZTREQ="@"
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXCSPE 930 printed Oct 16, 2024@18:29:13 Page 2
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
+2 QUIT
+3 ;
+4 ;==================================================
CPTPE ;CPT code set update
+1 SET ZTDESC="PCE CPT code set update"
+2 SET ZTDTH=$HOROLOG
+3 SET ZTIO=""
+4 SET ZTRTN="CPT^PXCSPE"
+5 DO ^%ZTLOAD
+6 DO BMES^XPDUTL("PCE CPT Code Update - Task Number "_ZTSK_" queued.")
+7 QUIT
+8 ;
+9 ;==================================================
CPT ;Do the CPT update.
+1 DO CSU^PXMCICHK("CPT")
+2 SET ZTREQ="@"
+3 QUIT
+4 ;
+5 ;==================================================
ICDPE ;ICD code set update.
+1 SET ZTDESC="PCE ICD code set update"
+2 SET ZTDTH=$HOROLOG
+3 SET ZTIO=""
+4 SET ZTRTN="ICD^PXCSPE"
+5 DO ^%ZTLOAD
+6 DO BMES^XPDUTL("PCE ICD Code Update - Task Number "_ZTSK_" queued.")
+7 QUIT
+8 ;
+9 ;==================================================
ICD ;Do the ICD update.
+1 DO CSU^PXMCICHK("ICD")
+2 SET ZTREQ="@"
+3 QUIT
+4 ;
