Changeset 636 for FOIAVistA/tag/r/SCHEDULING-SD-SC/SDNOS0.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/SDNOS0.m
r628 r636 1 1 SDNOS0 ;ALB/LDB - NO SHOW REPORT ; 07 May 99 10:21 AM 2 ;;5.3;Scheduling;**20,194,410,517 ,523**;Aug 13, 1993;Build 62 ;;5.3;Scheduling;**20,194,410,517**;Aug 13, 1993;Build 4 3 3 D END1^SDNOS 4 4 S (SDV1,SDIN,SDNM,SDNM1)=0,SDDIVO=SDDIV … … 33 33 Q 34 34 ;Added 2nd Quit below SD/517 35 ;SD/523 - added Q:SDPAT="" to For loop 36 CHK S SDAPP=0 F S SDAPP=$O(^SC(SDCL,"S",SDBEG1,1,SDAPP)) Q:'SDAPP Q:'$D(^(SDAPP,0)) I $D(^SC(SDCL,"S",SDBEG1,1,SDAPP))=10,$P(^(SDAPP,0),U,9)'="C" S SDPAT=$P(^SC(SDCL,"S",SDBEG1,1,SDAPP,0),U,1) Q:SDPAT="" I $D(^DPT(SDPAT,"S",SDBEG1)) D CHK1 35 CHK S SDAPP=0 F S SDAPP=$O(^SC(SDCL,"S",SDBEG1,1,SDAPP)) Q:'SDAPP Q:'$D(^(SDAPP,0)) I $D(^SC(SDCL,"S",SDBEG1,1,SDAPP))=10,$P(^(SDAPP,0),U,9)'="C" S SDPAT=$P(^SC(SDCL,"S",SDBEG1,1,SDAPP,0),U,1) I $D(^DPT(SDPAT,"S",SDBEG1)) D CHK1 37 36 Q 38 37 ;
Note:
See TracChangeset
for help on using the changeset viewer.