Changeset 636 for FOIAVistA/tag/r/CLINICAL_REMINDERS-PXRM/PXRMPTD2.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/PXRMPTD2.m
r628 r636 1 PXRMPTD2 ; SLC/PKR/PJH - Reminder Inquiry print template routines.; 03/06/20072 ;;2.0;CLINICAL REMINDERS;**4 ,6**;Feb 04, 2005;Build 1231 PXRMPTD2 ; SLC/PKR/PJH - Reminder Inquiry print template routines.;10/07/2005 2 ;;2.0;CLINICAL REMINDERS;**4**;Feb 04, 2005;Build 21 3 3 ;================================================ 4 4 DATE(FIND0,PIECE,FLDNUM,TITLE,RJC,PAD,FILENUM,FLG) ;Standard DATE … … 6 6 S DATE=$P($G(FIND0),U,PIECE) 7 7 I DATE'="" D 8 .S DATE=$$FMTE^XLFDT(DATE," 5Z"),X=$$RJ^XLFSTR(TITLE,RJC,PAD),X=X_" "_DATE8 .S DATE=$$FMTE^XLFDT(DATE,"D"),X=$$RJ^XLFSTR(TITLE,RJC,PAD),X=X_" "_DATE 9 9 .D ^DIWP 10 10 Q
Note:
See TracChangeset
for help on using the changeset viewer.