source: WorldVistAEHR/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMCSPE.m@ 691

Last change on this file since 691 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 965 bytes
RevLine 
[613]1PXRMCSPE ; SLC/PKR - Entry points for CSV protocol event point. ;11/03/2003
2 ;;2.0;CLINICAL REMINDERS;;Feb 04, 2005
3 ;
4 Q
5 ;==================================================
6CPTPE ;CPT code set update
7 S ZTDESC="Clinical Reminders CPT code set update"
8 S ZTDTH=$H
9 S ZTIO=""
10 S ZTRTN="CPT^PXRMCSPE"
11 D ^%ZTLOAD
12 D BMES^XPDUTL("Clinical Reminder CPT Code Update - Task Number "_ZTSK_" queued.")
13 Q
14 ;
15 ;==================================================
16CPT ;Do the CPT update.
17 D CSU^PXRMCSTX("CPT")
18 D DLG^PXRMCSD("ICPT")
19 S ZTREQ="@"
20 Q
21 ;
22 ;==================================================
23ICDPE ;ICD code set update.
24 S ZTDESC="Clinical Reminders ICD code set update"
25 S ZTDTH=$H
26 S ZTIO=""
27 S ZTRTN="ICD^PXRMCSPE"
28 D ^%ZTLOAD
29 D BMES^XPDUTL("Clinical Reminder ICD Code Update - Task Number "_ZTSK_" queued.")
30 Q
31 ;
32 ;==================================================
33ICD ;Do the ICD update.
34 D CSU^PXRMCSTX("ICD")
35 D DLG^PXRMCSD("ICD9")
36 S ZTREQ="@"
37 Q
38 ;
Note: See TracBrowser for help on using the repository browser.