Changeset 636 for FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMXPR.m
- Timestamp:
- Dec 4, 2009, 8:26:01 PM (14 years ago)
- Location:
- FOIAVistA/tag/r
- Files:
-
- 1 edited
- 1 copied
Legend:
- Unmodified
- Added
- Removed
-
FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMXPR.m
r628 r636 1 PXRMXPR ; SLC/PJH - Print Reminder Due report. ; 11/27/20062 ;;2.0;CLINICAL REMINDERS;**4 ,6**;Feb 04, 2005;Build 1231 PXRMXPR ; SLC/PJH - Print Reminder Due report. ;01/14/2006 2 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21 3 3 ; 4 4 ; Called/Jobbed after PXRMXSE1 … … 135 135 I ('DONE),$O(^XTMP(PXRMXTMP,PX,""))="" D NULL^PXRMXGPR G EXIT 136 136 ; Report selected patient sample with no patients 137 I $D(MISSED) ,PXRMPML=1D MISSED^PXRMXPR1(0,.MISSED)137 I $D(MISSED) D MISSED^PXRMXPR1(0,.MISSED) 138 138 ; 139 139 ;Print Patient List … … 143 143 I $D(^XTMP(PXRMXTMP,"ERROR"))>0!($D(^XTMP(PXRMXTMP,"CNBD"))>0) D ERROR^PXRMXBSY 144 144 EXIT ; 145 D TIMING^PXRMXGUT146 145 D EXIT^PXRMXGUT 147 146 ;
Note:
See TracChangeset
for help on using the changeset viewer.