Changeset 636 for FOIAVistA/tag/r/SCHEDULING-SD-SC/SCAPMC14.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/SCAPMC14.m
r628 r636 1 1 SCAPMC14 ;ALB/REW - Team API's: PTPR ; JUN 30, 1995 2 ;;5.3;Scheduling;**41 ,520**;AUG 13, 1993;Build 262 ;;5.3;Scheduling;**41**;AUG 13, 1993 3 3 ;;1.0 4 4 PTPR(SC200,SCDATES,SCPURPA,SCROLEA,SCLIST,SCERR,SCYESCL) ; -- list patients for a pract (scyescl NOT supported) … … 67 67 .Q:'SCOK 68 68 .Q:'SCYESCL 69 .;S SC44=$P($G(^SCTM(404.57,+SCTP,0)),U,9) 70 .;Q:'SC44 71 .N CNAME,SC44 72 .D SETASCL^SCRPRAC2(SCTP,.CNAME,.SC44) 73 .N SCCNT S SCCNT=0 74 .F S SCCNT=$O(SC44(SCCNT)) Q:SCCNT="" S SCOK=$$PTCL^SCAPMC(SC44(SCCNT),"SCDTPR",.SCLIST,.SCERR) 69 .S SC44=$P($G(^SCTM(404.57,+SCTP,0)),U,9) 70 .Q:'SC44 71 .S SCOK=$$PTCL^SCAPMC(SC44,"SCDTPR",.SCLIST,.SCERR) 75 72 PRACQ Q $G(@SCERR@(0))<1 76 73 ;
Note:
See TracChangeset
for help on using the changeset viewer.