Changeset 636 for FOIAVistA/tag/r/LAB_SERVICE-LR-LS/LRWLST1.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/LAB_SERVICE-LR-LS/LRWLST1.m
r628 r636 1 1 LRWLST1 ;DALOI/CJS/RWF/FHS - ACCESSION SETUP ; July 19, 2006 2 ;;5.2;LAB SERVICE;**48,65,121,153,261,286,331 ,379**;Sep 27, 1994;Build 22 ;;5.2;LAB SERVICE;**48,65,121,153,261,286,331**;Sep 27, 1994;Build 7 3 3 ; 4 4 ; Reference to ^DIC(42 supported by IA #10039 … … 99 99 . S FDA(2,68.05,"+1,"_LR6802,.01)=LRSPEC 100 100 . S FDA(2,68.05,"+1,"_LR6802,1)=$P(LRSAMP,";",1) 101 . ; 102 . ; Modification to prevent lock failures - loop 10 times to give system a chance to get lock 103 . N LRLOCKOK,LRLOOPCT 104 . S LRLOCKOK=0 105 . F LRLOOPCT=1:1:10 Q:LRLOCKOK D I 'LRLOCKOK H 5 106 . . K LRDIE(2) 107 . . D UPDATE^DIE("","FDA(2)","FDAIEN","LRDIE(2)") 108 . . S:$D(LRDIE(2))=0 LRLOCKOK=1 109 . K LRLOCKOK,LRLOOPCT 110 . ; 111 . ;D UPDATE^DIE("","FDA(2)","FDAIEN","LRDIE(2)") 101 . D UPDATE^DIE("","FDA(2)","FDAIEN","LRDIE(2)") 112 102 . I $D(LRDIE(2)) D MAILALRT 113 103 ; … … 287 277 S FDAIEN(1)=LRAN 288 278 S FDA(2,68.02,"+1,"_LR6802,.01)=LRDFN 289 ; 290 ; Modification to prevent lock failures - loop 10 times to give system a chance to get lock 291 N LRLOCKOK,LRLOOPCT 292 S LRLOCKOK=0 293 F LRLOOPCT=1:1:10 Q:LRLOCKOK D I 'LRLOCKOK H 5 294 . K LRDIE(2) 295 . D UPDATE^DIE("","FDA(2)","FDAIEN","LRDIE(2)") 296 . S:$D(LRDIE(2))=0 LRLOCKOK=1 297 K LRLOCKOK,LRLOOPCT 298 ; 299 ;D UPDATE^DIE("","FDA(2)","FDAIEN","LRDIE(2)") 279 D UPDATE^DIE("","FDA(2)","FDAIEN","LRDIE(2)") 300 280 I $D(LRDIE(2)) D MAILALRT 301 281 Q
Note:
See TracChangeset
for help on using the changeset viewer.