Changeset 636 for FOIAVistA/tag/r/SCHEDULING-SD-SC/SCRPBK11.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/SCRPBK11.m
r628 r636 1 1 SCRPBK11 ;MJK/ALB - RPC Broker Utilities ; 27 FEB 96 2 ;;5.3;Scheduling;**41 ,520**;AUG 13, 1993;Build 262 ;;5.3;Scheduling;**41**;AUG 13, 1993 3 3 ; 4 4 GETSEL(SCDATA,SCTYPE,SCIEN) ; … … 83 83 D SET(" Division: "_$S($G(SC(SCFLE,SCIEN,3.5))]"":SC(SCFLE,SCIEN,3.5),1:SCDEF),.SCINC,.SCDATA) 84 84 D SET(" ",.SCINC,.SCDATA) 85 D SET("Asso ciated Teams and Positions:",.SCINC,.SCDATA)85 D SET("Assoicated Teams and Positions:",.SCINC,.SCDATA) 86 86 D SET("-------------------------------",.SCINC,.SCDATA) 87 S SCI=0 F S SCI=$O(^SCTM(404.57," E",SCID,SCI)) Q:'SCI D87 S SCI=0 F S SCI=$O(^SCTM(404.57,"D",SCID,SCI)) Q:'SCI D 88 88 . S X=$G(^SCTM(404.57,SCI,0)) 89 89 . D SET(" Team: "_$P($G(^SCTM(404.51,+$P(X,U,2),0)),U),.SCINC,.SCDATA)
Note:
See TracChangeset
for help on using the changeset viewer.