LBRVCON9 ;SSI/JSR-START CHECKPOINTS ;[ 04/19/2000  10:29 AM ]
 ;;2.5;Library;**8**;APR 19, 2000
START  ;
  S NUM=0
  S ^XTMP("LBRY",LBRVSTA,0)=""
  S ^XTMP("LBRY",LBRVSTA,"STA")=$H
  S LBRTIM=$$NOW^XLFDT
  S:'$D(^XTMP("LBRY",LBRVSTA,"ODA1")) ^XTMP("LBRY",LBRVSTA,"ODA1")=NUM_"^"_LBRTIM
  S LBRTIM=$$NOW^XLFDT
  S:'$D(^XTMP("LBRY",LBRVSTA,"ODA2")) ^XTMP("LBRY",LBRVSTA,"ODA2")=NUM_"^"_LBRTIM
  S LBRTIM=$$NOW^XLFDT
  S:'$D(^XTMP("LBRY",LBRVSTA,"ODA3")) ^XTMP("LBRY",LBRVSTA,"ODA3")=NUM_"^"_LBRTIM
  S LBRTIM=$$NOW^XLFDT
  S:'$D(^XTMP("LBRY",LBRVSTA,"ODA4")) ^XTMP("LBRY",LBRVSTA,"ODA4")=NUM_"^"_LBRTIM
  S LBRTIM=$$NOW^XLFDT
  S:'$D(^XTMP("LBRY",LBRVSTA,"ODA5")) ^XTMP("LBRY",LBRVSTA,"ODA5")=NUM_"^"_LBRTIM
  S LBRTIM=$$NOW^XLFDT
  S:'$D(^XTMP("LBRY",LBRVSTA,"ODA6")) ^XTMP("LBRY",LBRVSTA,"ODA6")=NUM_"^"_LBRTIM
  S LBRTIM=$$NOW^XLFDT
  S:'$D(^XTMP("LBRY",LBRVSTA,"ODA7")) ^XTMP("LBRY",LBRVSTA,"ODA7")=NUM_"^"_LBRTIM
  S LBRTIM=$$NOW^XLFDT
  S:'$D(^XTMP("LBRY",LBRVSTA,"CON3")) ^XTMP("LBRY",LBRVSTA,"CON3")=NUM_"^"_LBRTIM
  S LBRTIM=$$NOW^XLFDT
  S:'$D(^XTMP("LBRY",LBRVSTA,"CON2")) ^XTMP("LBRY",LBRVSTA,"CON2")=NUM_"^"_LBRTIM
  
END ;
 Q