- 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 Jan 18, 2025@02:44:35 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 ;