Changeset 636 for FOIAVistA/tag/r/RECORD_TRACKING-RT/RTQ2.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/RECORD_TRACKING-RT/RTQ2.m
r628 r636 1 1 RTQ2 ;MJK,JSM/TROY ISC;Scheduling Link; ; 5/21/87 3:09 PM ; 2 ;; 2.0;Record Tracking;**13,15,21,45**;10/22/91;Build 73 BLD I $D(SDPL)S RTINP=+$P(^RTV(195.9,RTB,0),"^",3)2 ;;v 2.0;Record Tracking;**13,15,21**;10/22/91 3 BLD I SDPL S RTINP=+$P(^RTV(195.9,RTB,0),"^",3) 4 4 E S RTINP=0 5 5 F RTBLD=0:0 S RTBLD=$O(^RTV(195.9,RTB,"RECS",RTBLD)) Q:'RTBLD S X=$G(^(RTBLD,0)) I X]"" D
Note:
See TracChangeset
for help on using the changeset viewer.