- 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 Feb 18, 2025@23:54:53 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 ;