Changeset 636 for FOIAVistA/tag/r/IMAGING-MAG-ZMAG/MAGBRTUT.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/IMAGING-MAG-ZMAG/MAGBRTUT.m
r628 r636 117 117 N D0,MORE,N,P1,P4,P5,P6,P7,P8,TIME 118 118 S TIME=$$STAMP($H)+55,N=0,MORE=0 119 L +^MAGQUEUE(2006.03,0):1 E9 ; Background process must wait119 L +^MAGQUEUE(2006.03,0):19 ; Background process must wait 120 120 S D0="" F S D0=$O(^MAGQUEUE(2006.03,"B","EVAL",D0)) Q:D0="" D Q:MORE 121 121 . S X=$G(^MAGQUEUE(2006.03,D0,0)) … … 168 168 I KEY'=5,KEY'=6 S OUT="-3,Invalid key specified ("_KEY_")" Q 169 169 ; 170 L +^MAG(2006.587,0):1 E9 ; Background process MUST wait170 L +^MAG(2006.587,0):19 ; Background process MUST wait 171 171 S (N,D0)=0 F S D0=$O(^MAG(2006.587,D0)) Q:'D0 D 172 172 . S X=$G(^MAG(2006.587,D0,0)),ID=$P(X,"^",KEY) Q:ID'=OLD
Note:
See TracChangeset
for help on using the changeset viewer.