Changeset 636 for FOIAVistA/tag/r/SCHEDULING-SD-SC/SDLT.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/SCHEDULING-SD-SC/SDLT.m
r628 r636 1 1 SDLT ;ALB/LDB - CANCELLATION LETTERS ; 14 Feb 2003 2 ;;5.3;Scheduling;**185,213,281,330,398 ,523**;Aug 13, 1993;Build 62 ;;5.3;Scheduling;**185,213,281,330,398**;Aug 13, 1993 3 3 ; 4 4 ;************************************************************************** … … 14 14 ; 15 15 ;WRITE GREETING AND OPENING TEXT OF LETTER 16 PRT S DFN=$P(A,U,1) ;SD*523 17 I $D(SDNOSH) I $D(^DPT(DFN,.1)) S POP=1 Q:POP ;SD/523 18 S Y=DT D DTS^SDUTL 16 PRT S Y=DT D DTS^SDUTL 19 17 I +$G(SDFIRST)=0 W @IOF ;SD*5.3*330 Form feed only after letter #1 20 18 K SDFIRST
Note:
See TracChangeset
for help on using the changeset viewer.